posuvMx = .12 'X sinus speed
posuvbmx = .32 'Y sinus speed
z = 10
MoX = .5
MoY = .5
'_DISPLAYORDER _GLRENDER: ' _SCREENMOVE _MIDDLE 'FAILS if is this uncommented, because screen position create _glOrtho in this case!!!!
points
(pc
).R
= _RED32(POINT(xp
, yp
)) / 256 'for correct color to use in opengl muss be values converted to range 0 - 1 for statement _glColor2f pc = pc + 1
LOCATE 23, 1:
PRINT "The flag of the Czech Republic. OpenGL demo by Petr. Use mouse, z or x for zoom."
SHARED posuvMx
, posuvbmx
, posuvb
, x
, y
, sinus
, posuv
, H
, w
, s&
, MoX
, MoY
_glOrtho (-w
/ 2) * z
, (w
/ 2) * z
* (2 * MoX
), (-H
/ 3) * z
, (H
/ 3) * (2 * MoY
) * z
, -1, 1
posuv = posuv + posuvMx
IF posuv
> 1.7 OR posuv
< -1.7 THEN posuvMx
= posuvMx
* -1 posuvb = posuvb + posuvbmx
IF posuvb
> 1.7 OR posuvb
< -1.7 THEN posuvbmx
= posuvbmx
* -1
pc = 0
bs = bs - .034
sinus = sinus + .024 'sinus + periode
_glColor3f points
(pc
).R
, points
(pc
).G
, points
(pc
).B
_glVertex2f H
- (x
- 0) + SIN(bs
) * posuvb
* 12, w
- y
- 0 + SIN(sinus
) * 22 * posuv
'_RGB32(_RED32(bod&), _GREEN32(bod&), _BLUE32(bod&)) ' cislo urcuje vysku oblouku pc = pc + 1
sinus = 0
bs = 0