diff options
Diffstat (limited to 'epost.lpr')
-rw-r--r-- | epost.lpr | 13 |
1 files changed, 12 insertions, 1 deletions
@@ -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 |