diff options
Diffstat (limited to 'Game/Code/Classes/UDraw.pas')
| -rw-r--r-- | Game/Code/Classes/UDraw.pas | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas index 22b1263d..90a3875b 100644 --- a/Game/Code/Classes/UDraw.pas +++ b/Game/Code/Classes/UDraw.pas @@ -243,10 +243,13 @@ begin lTmpA := (Right-Left);
lTmpB := (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+ {$IFDEF FPC}
+(*
writeln( 'UDRAW (Right-Left) : ' + floattostr( lTmpA ) );
writeln( 'UDRAW : ' + floattostr( lTmpB ) );
writeln( '' );
-
+*)
+ {$ENFIF}
if ( lTmpA > 0 ) AND
( lTmpB > 0 ) THEN
@@ -476,10 +479,13 @@ begin lTmpA := (Right-Left);
lTmpB := (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+ {$IFDEF FPC}
+{*
writeln( 'UDRAW (Right-Left) : ' + floattostr( lTmpA ) );
writeln( 'UDRAW : ' + floattostr( lTmpB ) );
writeln( '' );
-
+*}
+ {$ENDIF}
if ( lTmpA > 0 ) AND
( lTmpB > 0 ) THEN
|