equal
deleted
inserted
replaced
1263 // enable 2d textures by default |
1263 // enable 2d textures by default |
1264 glEnable(GL_TEXTURE_2D); |
1264 glEnable(GL_TEXTURE_2D); |
1265 end; |
1265 end; |
1266 |
1266 |
1267 procedure SetScale(f: GLfloat); |
1267 procedure SetScale(f: GLfloat); |
1268 var |
|
1269 {$IFDEF IPHONEOS} |
|
1270 scale: GLfloat = 1.5; |
|
1271 {$ELSE} |
|
1272 scale: GLfloat = 2.0; |
|
1273 {$ENDIF} |
|
1274 begin |
1268 begin |
1275 // leave immediately if scale factor did not change |
1269 // leave immediately if scale factor did not change |
1276 if f = cScaleFactor then exit; |
1270 if f = cScaleFactor then exit; |
1277 |
1271 |
1278 if f = scale then |
1272 if f = cDefaultZoomLevel then |
1279 glPopMatrix // "return" to default scaling |
1273 glPopMatrix // "return" to default scaling |
1280 else // other scaling |
1274 else // other scaling |
1281 begin |
1275 begin |
1282 glPushMatrix; // save default scaling |
1276 glPushMatrix; // save default scaling |
1283 glLoadIdentity; |
1277 glLoadIdentity; |
1284 {$IFDEF IPHONEOS} |
1278 {$IFDEF IPHONEOS} |
1285 glRotatef(rotationQt, 0, 0, 1); |
1279 glRotatef(rotationQt, 0, 0, 1); |