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