Sync On: Sync rate 60:Autocam Off
Color Backdrop 0,0
Create Bitmap 1,1024,1024
Ink 0,0
Box 0,0,1024,1024
For i=1 to 5000
   x=Rnd(1024)
   y=Rnd(1024)
   Ink rgb(0,150,0),0
   Box x-1,y-1,x+1,y+1
   Ink Rgb(0,255,0),0
   Dot x,y
Next i
Get Image 1,0,0,1023,1023,1
Set Current Bitmap 0
Delete Bitmap 1
 
Make Object Triangle 101,0,0,0,0,.1,0,0,0,0
 
For i = 1 to 50
   s#=i
   Make Object Plain i,100-s#*.01,100-s#*.01
   Texture Object i,1
   Set Object i,1,1,0
   Set Object Transparency i,3
   Set Alpha Mapping on i,102-i*2
   Set Object Emissive i,Rgb(0,255,0)
   `Set Object Smoothing i,100
   Pitch Object Down i,90
   y#=i
   y#=y#*.05-20.0
   Position Object i,0,y#,50
Next i
Ink Rgb(60,100,0),0
Box 0,0,128,128
For i = 1 to 500
   Ink Rgb(Rnd(50)+20,Rnd(50)+50,0),0
   Dot rnd(128),rnd(128)
Next i
Get Image 2,0,0,127,127,1
 
 
Make object Plain 51,100,100
Texture Object 51,2
Set Object Emissive 51,Rgb(0,0,0)
Pitch Object Down 51,90
Position Object 51,0,-20,50
 
Do
   Control Camera Using Arrowkeys 0,1,3
   Gosub Windy
   Sync
Loop
End
 
Windy:
wx#=wx#+rnd(200.0)/100000.0-rnd(200.0)/100000.0
wz#=wz#+rnd(200.0)/100000.0-rnd(200.0)/100000.0
If wx#>.005 then wx#=.005
If wx#<-.005 then wx#=-.005
If wz#>.005 then wz#=.005
If wz#<-.005 then wz#=-.005
Offsetx# = Offsetx# + wx#
If Offsetx#>1 Then Offsetx#=1
If Offsetx#<-1 Then Offsetx#=-1
Offsetz# = Offsetz# + wz#
If Offsetz#>1 Then Offsetz#=1
If Offsetz#<-1 Then Offsetz#=-1
Position Object 101,Object Position X(1),Object Position Y(1),Object Position Z(1)
Point Object 101,Offsetx#,3.0-20.0,50.0+Offsetz#
For i# = 1.0 to 50.0
   Position Object i#,Object Position X(101),Object Position Y(101),Object Position Z(101)
   Move object 101,.05
Next i#
Return