have fun for a while.
Code: Select all
SCREEN 320,240
Global wAmp#,wFreq#,x#,m#,cx,dx
wAmp =22.0
wfreq=10.0
s1 = LoadImage("png/coollogo.png")
s2 = LoadImage("png/stupid.bmp")
While KeyDown(27)=0
DrawImage s1,0,0
x=x-10.5
m=x
For cx=0 To ImageHeight(s2)-1
m =m+wfreq
For dx=0 To ImageHeight(s2)-1
PickImageColor s2,dx,cx
If getRGB(RED)+getRGB(GREEN)*256+getRGB(BLUE)*65536 >0 Then
Box 100+dx*4+Sin(m)*wamp+1*4,100+cx*2,4,4
EndIf
Next dx
Next cx
Color 0,0,255
Text 120,16,"HELLO"
DrawScreen OFF
Wend