Kaleidoscope & Piano Music (Source Included)

BlitzMax Forums/BlitzMax Programming/Kaleidoscope & Piano Music (Source Included)

dw817 (Posted 2016) [#1]

I actually wrote my first Kaleidoscope program on the Commodore Amiga years ago. Because you could rotate the palette, the kaleidoscope constantly changed colors - but you didn't have any ALPHA for transparency effects nor could you take an image and rotate it. Years later I made one in QBasic on IBM-pc, also rotating the palette, then GFABasic with a larger playfield, 640x480 instead of 320x200, and now ... BlitzMAX. But instead of drawing vectors, this kaleidoscope is simplified to easy moving rotating bars that paint the screen. The music method is from seeing that you can access a website inside BlitzMAX. Enjoi ! ' ______________________________________ ' // // ' // Kaleidoscope v0.014 // ' // Written by David W - 12/31/15 // '//___________________________________// Import MaxGui.Drivers Strict SeedRnd MilliSecs() ' ensure random results each time Global spd#=4 ' 1=fast ' 4=slow Local window:TGadget Local mainview:tgadget Local htmlview:tgadget window=createwindow("",0,0,0,0,,0) ' create 'dead' window maximizewindow(window) ' maximize above window (full-screen, no need to read coords) Global mx=clientwidth(window),my=clientheight(window) ' retrieve screen size now htmlview=createhtmlview(0,0,0,0,window) ' open invisible HTML window HtmlViewGo htmlview,"http://bit.ly/22Cv21e" ' a little soft music if you please mainview=createcanvas(-2,-2,mx+4,my+4,window,1) ' actual drawing screen activategadget mainview SetGraphics canvasgraphics(mainview) SetBlend alphablend ' so we can use alpha transparency Flip Global x#,y#,xa,ya,r,g,b,rd,gd,bd,n,i,rr# AutoMidHandle 1 ' all images created will have a natural center now Global img:TImage=CreateImage(512,8) For i=0 To 255 ' draw our paint bar SetColor i,i,i DrawLine i,0,i,7 DrawLine 511-i,0,511-i,7 Next GrabImage img,0,0 ' grab it as an image now SetAlpha .5 ' half transparency x#=Rand(0,mx/2) ' start paint at random position y#=Rand(0,my/2) xa=Rand(1,2) ' with a random tilt ya=Rand(1,2) n=Rand(500,1000) ' Countdown till bar changes direction Cls Repeat If r=rd And g=gd And b=bd ' if seek color found Repeat rd=Rand(0,255) ' randomize for new ones gd=Rand(0,255) bd=Rand(0,255) Until Abs(rd-gd)>64 Or Abs(gd-bd)>64 Or Abs(bd-rd)>64 ' ensure 'radical' color EndIf SetColor r,g,b rr#:+.1 ' Rotation, increase for more skew SetRotation rr# DrawImage img,x#,y# DrawImage img,mx-x#,my-y# SetRotation 359-rr DrawImage img,x#,my-y# DrawImage img,mx-x#,y# x#:+xa/spd# ' move our color bar in the direction assigned y#:+ya/spd# n:-1 If n=0 ' timeout, flip one direction n=Rand(2) If n=0 xa=-xa Else ya=-ya EndIf n=Rand(500,1000) ' reseed for new timeout EndIf If x#<-50 ' if too far over, reverse direction xa=Rand(1,2) ElseIf x#>mx+50 ' ditto xa=-Rand(1,2) EndIf If y#<-50 ' ditto ya=Rand(1,2) ElseIf y#>my+50 ' ditto ya=-Rand(1,2) EndIf r:+Sgn(rd-r) ' slowly move our color to destination color g:+Sgn(gd-g) b:+Sgn(bd-b) Flip If PollEvent() ' necessary to read key and play BG music If CurrentEvent.id=event_keydown End ' any key will end program EndIf EndIf Forever