XProfan

 {$cleq}
const apptitle=oglscrl
#include oglhelper.inc
ogl.window(apptitle,1,800,600,,,,,60)
long 	tex.bg1=ogl.loadTex(bild1.tex,,,false),
tex.bg2=ogl.loadTex(bild2.tex,,,false),
tex.bg3=ogl.loadTex(bild3.tex,,,false),
float t,y
casenot ogl.vsync(true)==true : err(Cant init V-Sync.)

do {

    ogl.main()
    t=t+2
    y=y+(mousey-y)*0.1
    case mousePressed : break

}

ogl.done()

ogl.main(){

    ogl.clear
    ogl.2dnow()
    ogl(color,1,1,1,1)
    ogl.scrollPlane(tex.bg2,-t mod 6400*0.25,600)
    ogl(color,1,1,1,0.7)
    ogl.scrollPlane(tex.bg2,(-t mod 3200)*0.5,1200)
    ogl(color,1,1,1,1)
    ogl.2dmove(0,y*-0.1)
    ogl.scrollPlane(tex.bg1,(-t mod 1600),700)
    ogl.2dmove(0,370-y*0.5)
    ogl.scrollPlane(tex.bg3,(-t mod 800)*2,600)
    ogl.show

}

ogl.scrollPlane(long tex,float p,y){

    ogl(texture,tex,1)
    ogl.rectangle(p+0,0,p+800,y)
    ogl.rectangle(p+1600,0,p+2400,y)
    ogl.rectangle(p+1600,0,p+800,y)

}

err(string s){

    messagebox(s,apptitle,4096)
    end

}