equal
deleted
inserted
replaced
719 glScalef(ScaleX, ScaleY, ScaleZ); |
719 glScalef(ScaleX, ScaleY, ScaleZ); |
720 {$ENDIF} |
720 {$ENDIF} |
721 end; |
721 end; |
722 |
722 |
723 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
723 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
724 { workaround for pascal bug http://bugs.freepascal.org/view.php?id=27222 } |
724 { workaround for pascal bug https://bugs.freepascal.org/view.php?id=27222 } |
725 var tmpdir: LongInt; |
725 var tmpdir: LongInt; |
726 begin |
726 begin |
727 tmpdir:=dir; |
727 tmpdir:=dir; |
728 {$IFDEF GL2} |
728 {$IFDEF GL2} |
729 hglRotatef(RotX, RotY, RotZ, tmpdir); |
729 hglRotatef(RotX, RotY, RotZ, tmpdir); |