equal
deleted
inserted
replaced
533 glScalef(ScaleX, ScaleY, ScaleZ); |
533 glScalef(ScaleX, ScaleY, ScaleZ); |
534 {$ENDIF} |
534 {$ENDIF} |
535 end; |
535 end; |
536 |
536 |
537 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
537 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
538 begin |
538 { workaround for pascal bug http://bugs.freepascal.org/view.php?id=27222 } |
539 {$IFDEF GL2} |
539 var tmpdir: LongInt; |
540 hglRotatef(RotX, RotY, RotZ, dir); |
540 begin |
|
541 tmpdir:=dir; |
|
542 {$IFDEF GL2} |
|
543 hglRotatef(RotX, RotY, RotZ, tmpdir); |
541 {$ELSE} |
544 {$ELSE} |
542 glRotatef(RotX, RotY, RotZ, dir); |
545 glRotatef(RotX, RotY, RotZ, tmpdir); |
543 {$ENDIF} |
546 {$ENDIF} |
544 end; |
547 end; |
545 |
548 |
546 procedure openglUseColorOnly(b :boolean); inline; |
549 procedure openglUseColorOnly(b :boolean); inline; |
547 begin |
550 begin |