equal
deleted
inserted
replaced
759 glMatrixMode(GL_MODELVIEW); |
759 glMatrixMode(GL_MODELVIEW); |
760 end; |
760 end; |
761 |
761 |
762 procedure SetScale(f: GLfloat); |
762 procedure SetScale(f: GLfloat); |
763 begin |
763 begin |
764 cScaleFactor:=f; |
764 if cScaleFactor <> f then |
765 UpdateProjection; |
765 begin |
|
766 cScaleFactor:=f; |
|
767 UpdateProjection; |
|
768 end; |
766 end; |
769 end; |
767 |
770 |
768 //////////////////////////////////////////////////////////////////////////////// |
771 //////////////////////////////////////////////////////////////////////////////// |
769 procedure AddProgress; |
772 procedure AddProgress; |
770 var r: TSDL_Rect; |
773 var r: TSDL_Rect; |