equal
deleted
inserted
replaced
1572 if not isFirstFrame and ((ScreenFadeValue = 0) or (ScreenFadeValue = sfMax)) then |
1572 if not isFirstFrame and ((ScreenFadeValue = 0) or (ScreenFadeValue = sfMax)) then |
1573 ScreenFade:= sfNone |
1573 ScreenFade:= sfNone |
1574 end |
1574 end |
1575 end; |
1575 end; |
1576 |
1576 |
1577 // rec |
1577 {$IFDEF USE_VIDEO_RECORDING} |
|
1578 // during video prerecording draw red blinking circle and text 'rec' |
1578 if flagPrerecording then |
1579 if flagPrerecording then |
1579 begin |
1580 begin |
1580 if recTexture = nil then |
1581 if recTexture = nil then |
1581 begin |
1582 begin |
1582 s:= 'rec'; |
1583 s:= 'rec'; |
1596 glVertex2f(-(cScreenWidth shr 1) + 30 + sin(i*2*Pi/20)*10, 35 + cos(i*2*Pi/20)*10); |
1597 glVertex2f(-(cScreenWidth shr 1) + 30 + sin(i*2*Pi/20)*10, 35 + cos(i*2*Pi/20)*10); |
1597 glEnd(); |
1598 glEnd(); |
1598 Tint($FF, $FF, $FF, $FF); |
1599 Tint($FF, $FF, $FF, $FF); |
1599 glEnable(GL_TEXTURE_2D); |
1600 glEnable(GL_TEXTURE_2D); |
1600 end; |
1601 end; |
|
1602 {$ENDIF} |
1601 |
1603 |
1602 SetScale(zoom); |
1604 SetScale(zoom); |
1603 |
1605 |
1604 // Cursor |
1606 // Cursor |
1605 if isCursorVisible then |
1607 if isCursorVisible then |