SCREEN 200,150,32,2
Smooth2D ON
w=ScreenWidth()-1
h=ScreenHeight()-1
w2=w/2
h2=h/2
Dim texels(ScreenWidth(),ScreenHeight()) As Float
Dim texels2(ScreenWidth(),ScreenHeight()) As Float
img=LoadImage("media/level.bmp")
img2=LoadImage("media/level.bmp")
ResizeImage img2,w,h
For i=1 To 10' kuvan pehmennys, että näyttäisi nätimmältä.
ResizeImage img,w*2,h*2
ResizeImage img,w,h
Next i
Dim paletti(255)
For i=0 To 255
'b=i^1.1'i*0.9+0.1*255
'If b<0 Then b=0
'If b>255 Then b=255
Color Sin(i/2.833)*230,Sin(i/2.833)*230,(i/16.0)^2'Sin(i/2.833)*230'+(I/5.0)'b
Dot 0,0
paletti(i)=GetPixel(0,0,SCREEN())
Next i
For x=1 To ScreenWidth()
For y=1 To ScreenHeight()
PickImageColor img2,x,y
s2=((getRGB(RED)+getRGB(GREEN)+getRGB(BLUE))/3-128)*2+128
PickImageColor img,x,y
texels(x,y)=(((getRGB(RED)+getRGB(GREEN)+getRGB(BLUE))/3-128)*8+128+s2*3)/4 'Max(0.1,min(255,10255/Distance(x,y,140,100)^2))'Rand(0,255)
Next y
Next x
korkeus=45
Repeat
SetWindow Str(FPS())+" "+(Timer()-aika)+" "+korkeus+" Nuolet ylös ja alas"
aika=Timer()
Lock SCREEN()
vl#=vl+3
vx=w2+Sin(vl)*(w2*0.85)
vy=h2+Sin(vl*1.3817)*(h2*0.85)
If UpKey() Then korkeus+3
If DownKey() Then korkeus-2
kulma=WrapAngle(kulma)
For x=1 To w'279
v+1:If v=2 Then v=0
For y=1+v To h step 2'199'v To 199 Step 2
kulma=GetAngle(vy,vx,y,x)
kulma2=kulma-(kulma Mod 45)-45
kulma3#=((kulma Mod 45)/45.0)
eka=texels(x+Int(Cos(kulma2)),y+Int(Sin(kulma2)))*(kulma3)
toka=texels(x+Int(Cos(kulma2-45)),y+Int(Sin(kulma2-45)))*(1-kulma3)
d=(eka+toka)*0.85
a=texels(x,y)-d+Sin(ATan(korkeus/Distance(vx,vy,x,y)))*250
If a>255 Then a=255
If a<0 Then a=0
PutPixel2 x,y, paletti(a)
Next y
Next x
Unlock
DrawScreen OFF
Forever