diff options
| -rw-r--r-- | epostunit.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas index 42c7151..d25dcfb 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -113,7 +113,8 @@ type function xscale: extended; function tscale: extended; function dichtenParameterErkannt(st: boolean; s: string; threads,xmin,xmax,tmin,tmax: longint): boolean; - function kont2disk(dir: char; x: extended): longint; + function kont2disk(senkrecht: boolean; x: extended): longint; overload; inline; + function kont2disk(dir: char; x: extended): longint; overload; function kont2diskFak(senkrecht: boolean; x: extended): extended; overload; inline; function kont2diskFak(dir: char; x: extended): extended; overload; function disk2kont(dir: char; x: longint): extended; @@ -1604,6 +1605,11 @@ begin result:=false; end; +function tWerte.kont2disk(senkrecht: boolean; x: extended): longint; +begin + result:=kont2disk(char(ord('x')+byte(senkrecht)),x); +end; + function tWerte.kont2disk(dir: char; x: extended): longint; begin case dir of |