equal
deleted
inserted
replaced
101 procedure openglPopMatrix (); inline; |
101 procedure openglPopMatrix (); inline; |
102 procedure openglTranslatef (X, Y, Z: GLfloat); inline; |
102 procedure openglTranslatef (X, Y, Z: GLfloat); inline; |
103 |
103 |
104 |
104 |
105 implementation |
105 implementation |
106 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uVariables, uUtils, uConsts |
106 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}uVariables, uUtils, uConsts |
107 {$IFDEF GL2}, uMatrix, uConsole{$ENDIF}, uPhysFSLayer, uDebug; |
107 {$IFDEF GL2}, uMatrix, uConsole{$ENDIF}, uPhysFSLayer, uDebug; |
108 |
108 |
109 {$IFDEF USE_TOUCH_INTERFACE} |
109 {$IFDEF USE_TOUCH_INTERFACE} |
110 const |
110 const |
111 FADE_ANIM_TIME = 500; |
111 FADE_ANIM_TIME = 500; |
460 |
460 |
461 repeat |
461 repeat |
462 begin |
462 begin |
463 // print up to 3 extentions per row |
463 // print up to 3 extentions per row |
464 // ExtractWord will return empty string if index out of range |
464 // ExtractWord will return empty string if index out of range |
465 AddFileLog(TrimRight( |
465 //AddFileLog(TrimRight( |
|
466 AddFileLog(( |
466 ExtractWord(tmpint, tmpstr, [' ']) + ' ' + |
467 ExtractWord(tmpint, tmpstr, [' ']) + ' ' + |
467 ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' + |
468 ExtractWord(tmpint+1, tmpstr, [' ']) + ' ' + |
468 ExtractWord(tmpint+2, tmpstr, [' ']) |
469 ExtractWord(tmpint+2, tmpstr, [' ']) |
469 )); |
470 )); |
470 tmpint := tmpint + 3; |
471 tmpint := tmpint + 3; |