changeset 1906 | 644f93d8f148 |
parent 1896 | fdacad5d0acc |
child 1911 | 6283bd8a960b |
1905:b1ec8db513f2 | 1906:644f93d8f148 |
---|---|
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 unit uMisc; |
19 unit uMisc; |
20 interface |
20 interface |
21 uses uConsts, SDLh, uFloat, GL; |
21 uses uConsts, SDLh, |
22 {$IFDEF IPHONE} |
|
23 gles11, |
|
24 {$ELSE} |
|
25 GL, |
|
26 {$ENDIF} |
|
27 uFloat; |
|
22 {$INCLUDE options.inc} |
28 {$INCLUDE options.inc} |
23 var |
29 var |
24 isCursorVisible : boolean = false; |
30 isCursorVisible : boolean = false; |
25 isTerminated : boolean = false; |
31 isTerminated : boolean = false; |
26 isInLag : boolean = false; |
32 isInLag : boolean = false; |
442 if c < 3 then t:= t - c; |
448 if c < 3 then t:= t - c; |
443 |
449 |
444 byte(DecodeBase64[0]):= t - 1 |
450 byte(DecodeBase64[0]):= t - 1 |
445 end; |
451 end; |
446 |
452 |
447 const GL_BGR = $80E0; // some opengl headers don't have that const (?) |
453 const GL_BGR = $80E0; // some opengl headers don't have that const (?)' |
448 procedure MakeScreenshot(s: shortstring); |
454 procedure MakeScreenshot(s: shortstring); |
449 const head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24); |
455 const head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24); |
450 var p: Pointer; |
456 var p: Pointer; |
451 size: Longword; |
457 size: Longword; |
452 f: file; |
458 f: file; |