Mystify... - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|595\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Mystify...
Sat, 06 May 2023, 08:44
spinal	Mystify... As I am making a start on the backgrounds for Max FPS, I'll plonk them in the forum here. The first is a basic 'Mysstify' screenaver type thingy. Const SCREENX=800 ; 2 Const for the set Resolution Const SCREENY=600 Dim x(4,20), y(4,20) Dim dx(4), dy(4) Dim col(4,20) Global ret_R%, ret_G%, ret_B% Start() End ; End program... bye bye Function Start() AppTitle "Max FPS background" Graphics SCREENX,SCREENY,0,2 SetBuffer BackBuffer() FlushKeys() FlushMouse() MoveMouse 0,0 hue = 0 ; start with hue = 0 For t = 0 To 3 x(t,0) = Rand(1,SCREENX-1) y(t,0) = Rand(1,SCREENY-1) dx(t) = Rand(0,1) If dx(t) = 0 Then dx(t) = -1 dy(t) = Rand(0,1) If dy(t) = 0 Then dy(t) = -1 dx(t) = dx(t) * 5 dy(t) = dy(t) * 5 Next Repeat Cls hsl_to_rgb(hue, 255, 128) ; set color using HSL, with fixed saturation and lightness col(0,0) = ret_r% col(1,0) = ret_g% col(2,0) = ret_b% For s = 0 To 20 ox = x(3,s) oy = y(3,s) Color( col(0,s), col(1,s), col(2,s) ) For t = 0 To 3 Line ox,oy,x(t,s),y(t,s) ox = x(t,s) oy = y(t,s) Next Next For t = 0 To 3 If x(t,0)+dx(t) < 0 Or x(t,0)+dx(t) > SCREENX Then dx(t) =-dx(t) x(t,0) = x(t,0) + dx(t) If y(t,0)+dy(t) < 0 Or y(t,0)+dy(t) > SCREENY Then dy(t) =-dy(t) y(t,0) = y(t,0) + dy(t) Next For s = 20 To 1 Step -1 col(0,s) = col(0,s-1) col(1,s) = col(1,s-1) col(2,s) = col(2,s-1) For t = 0 To 3 x(t,s) = x(t,s-1) y(t,s) = y(t,s-1) Next Next Flip Delay 50 hue = (hue + 1) Mod 360 ; increment hue by 1 and wrap around to 0-359 range Until GetMouse() <> 0 Or GetKey() <> 0 End Function Function hsl_to_rgb(h%, s%, l%) If s% = 0 Then ret_r% = l% ret_g% = l% ret_b% = l% Else If l% < 128 Then temp2% = l% * (255 + s%) / 255 Else temp2% = (l% + s%) - (l% * s%) / 255 temp1% = 2 * l% - temp2% rtemp3% = h% + 120 If rtemp3% > 360 Then rtemp3% = rtemp3% - 360 gtemp3% = h% btemp3% = h% + 240 If btemp3% > 360 Then btemp3% = btemp3% - 360 If rtemp3% < 60 Then ; Set red ret_R% = temp1% + (temp2% - temp1%) * rtemp3% / 60 ElseIf rtemp3% < 180 Then ret_R% = temp2% ElseIf rtemp3% < 240 Then ret_R% = temp1% + (temp2% - temp1%) * (240 - rtemp3%) / 60 Else ret_R% = temp1% EndIf If gtemp3% < 60 Then ; Set green ret_G% = temp1% + (temp2% - temp1%) * gtemp3% / 60 ElseIf gtemp3% < 180 Then ret_G% = temp2% ElseIf gtemp3% < 240 Then ret_G% = temp1% + (temp2% - temp1%) * (240 - gtemp3%) / 60 Else ret_G% = temp1% EndIf If btemp3% < 60 Then ; Set blue ret_B% = temp1% + (temp2% - temp1%) * btemp3% / 60 ElseIf btemp3% < 180 Then ret_B% = temp2% ElseIf btemp3% < 240 Then ret_B% = temp1% + (temp2% - temp1%) * (240 - btemp3%) / 60 Else ret_B% = temp1% EndIf EndIf End Function --v -=-=- Check out my excellent homepage!