summaryrefslogtreecommitdiff
path: root/epost.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'epost.lpr')
-rw-r--r--epost.lpr13
1 files changed, 12 insertions, 1 deletions
diff --git a/epost.lpr b/epost.lpr
index 1ca8c3c..15d1fcf 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -284,7 +284,7 @@ begin
aufraeumen;
halt(1);
end;
- if startetMit('Fitte Gauße an ',s) then begin
+ if startetMit('fitte Gauße an ',s) then begin
i:=findeWerte(s,nil,@wertes,@Konturen,false);
if i<0 then begin
aufraeumen;
@@ -358,6 +358,17 @@ begin
aufraeumen;
halt(1);
end;
+ if startetMit('extrahiere Einhüllende von ',s) then begin
+ i:=findeWerte(s,nil,@wertes,@Konturen,false);
+ if i<0 then begin
+ aufraeumen;
+ halt(1);
+ end;
+ if wertes[i].extrahiereEinhuellende(syntaxtest,inf,maxthreads,Warnstufe) then
+ continue;
+ aufraeumen;
+ halt(1);
+ end;
if startetMit('integriere ',s) then begin
j:=findeWerte(erstesArgument(s),nil,@wertes,@Konturen,false);
if j<0 then begin