This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menuok=DOESFILEEXIST(FileName$)
PRINT ok,10,10
SHOWSCREEN
MOUSEWAIT
LIMITFPS 40
// use up and down arrows
WHILE TRUE
IF KEY(200 ) THEN gravity=gravity + 0.1
IF KEY(208 ) THEN gravity=gravity - 0.1
IF gravity >=1.0 THEN gravity =1.0
IF gravity <=-1.0 THEN gravity =-1.0
PRINT "gravity="+gravity,10,10
SHOWSCREEN
WEND
X_LOADSHADER(0, "Bright.vert", "Bright.frag")
X_SETSHADER 0;
DRAWSPRITE
X_SETSHADER -1
X_SETSHADER 0;
X_DRAWOBJ
X_SETSHADER -1
X_COLORSHADER( 0.5, 0.0, 0.0 )
X_COLORSHADER( 0.5, 0.0, 0.0 )
X_SETTEXTURE Texture0 ,-1
X_DRAWOBJ Object0, 0
X_SETSHADER -1
FUNCTION X_COLORSHADER: R,G,B //RGB Addition
STATIC Initialize, Test
IF Initialize<>TRUE
Initialize=TRUE
Test=X_LOADSHADER(11,"Color.vert","Color.frag")
ENDIF
X_SETSHADER 11
X_PUTSHADER "R",R
X_PUTSHADER "G",G
X_PUTSHADER "B",B
RETURN Test
ENDFUNCTION