1134 cGPUVendor:= gvIntel; |
1134 cGPUVendor:= gvIntel; |
1135 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two'); |
1135 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two'); |
1136 {$ENDIF} |
1136 {$ENDIF} |
1137 |
1137 |
1138 // set view port to whole window |
1138 // set view port to whole window |
|
1139 {$IFDEF IPHONEOS} |
|
1140 glViewport(0, 0, cScreenHeight, cScreenWidth); |
|
1141 {$ELSE} |
1139 glViewport(0, 0, cScreenWidth, cScreenHeight); |
1142 glViewport(0, 0, cScreenWidth, cScreenHeight); |
|
1143 {$ENDIF} |
1140 |
1144 |
1141 glMatrixMode(GL_MODELVIEW); |
1145 glMatrixMode(GL_MODELVIEW); |
1142 // prepare default translation/scaling |
1146 // prepare default translation/scaling |
1143 glLoadIdentity(); |
1147 glLoadIdentity(); |
|
1148 {$IFDEF IPHONEOS} |
|
1149 glRotatef(-90, 0, 0, 1); |
|
1150 {$ENDIF} |
1144 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
1151 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
1145 glTranslatef(0, -cScreenHeight / 2, 0); |
1152 glTranslatef(0, -cScreenHeight / 2, 0); |
1146 |
1153 |
1147 // enable alpha blending |
1154 // enable alpha blending |
1148 glEnable(GL_BLEND); |
1155 glEnable(GL_BLEND); |
1149 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); |
1156 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); |
1150 end; |
1157 end; |
1151 |
1158 |
1152 procedure SetScale(f: GLfloat); |
1159 procedure SetScale(f: GLfloat); |
|
1160 var |
|
1161 {$IFDEF IPHONEOS} |
|
1162 scale: GLfloat = 1.5; |
|
1163 {$ELSE} |
|
1164 scale: GLfloat = 2.0; |
|
1165 {$ENDIF} |
1153 begin |
1166 begin |
1154 // leave immediately if scale factor did not change |
1167 // leave immediately if scale factor did not change |
1155 if f = cScaleFactor then exit; |
1168 if f = cScaleFactor then exit; |
1156 |
1169 |
1157 if f = 2.0 then glPopMatrix // "return" to default scaling |
1170 if f = scale then glPopMatrix // "return" to default scaling |
1158 else // other scaling |
1171 else // other scaling |
1159 begin |
1172 begin |
1160 glPushMatrix; // save default scaling |
1173 glPushMatrix; // save default scaling |
1161 glLoadIdentity; |
1174 glLoadIdentity; |
|
1175 {$IFDEF IPHONEOS} |
|
1176 glRotatef(-90, 0, 0, 1); |
|
1177 {$ENDIF} |
1162 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0); |
1178 glScalef(f / cScreenWidth, -f / cScreenHeight, 1.0); |
1163 glTranslatef(0, -cScreenHeight / 2, 0); |
1179 glTranslatef(0, -cScreenHeight / 2, 0); |
1164 end; |
1180 end; |
1165 |
1181 |
1166 cScaleFactor:= f; |
1182 cScaleFactor:= f; |