Sorry your browser is not supported!

deviceX = 1600
deviceY = 900
SetVirtualResolution( deviceX, deviceY  )
SetWindowSize( deviceX, deviceY, 1 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetSyncRate(30,0)
clearScreen()
CreateRenderImage (1,deviceX, deviceY,0,0)
while getRawKeyPressed( 27 )=  0

	cls = random(1,1000)
	if cls > 997 then clearImage()
	if GetResumed() then clearScreen()
	X1 = Random(1,deviceX)
	X2 = Random(1,deviceX)
	Y1 = Random(1,deviceY)
	Y2 = Random(1,deviceY)
	color1 = 25
	color2 = 25
	color3 = 25
	color4 = 255	
	DrawBox( X1, Y1, X2, Y2, color1, color2, color3, color4, 1 )




	setrendertoscreen ()
	createsprite(1,1)
    sync()
	setRenderToImage (1,0)	
	
endwhile
deleteSprite( 1 )
end




function clearImage()

	SetRenderToImage (1,0) 
	ClearScreen()

endfunction

sw=1024 //screen width
sh=768 //screen height

// set window properties
SetWindowTitle( "Snowflake" )
SetWindowSize( sw, sh, 0 )

// set display properties
SetVirtualResolution( sw, sh )


// Have fun to make experiments with changing parameters!!!

r=300 // Radius
x=sw/2 // start x, center of image
y=sh/2 // start y, center of image

//create image with size 1024x768 suitable for rendering
CreateRenderImage (1,sw,sh,0,0) 

Do

//set following drawcommands to the renderimage 1
SetRenderToImage (1,0) 

//draw one line with random colours
drawLine( x,y,x,y-r,Random(0,255),random(0,255),random(0,255)) 
t=random (0,100) //distance of first feather from center
distance=random(1,50) //distance between feathers


For u= t To 300 Step distance
        i=random (5,80) //Lenght of feather
        red=random (0,255) //value for red colour
        green=random (0,255) 
        blue=random (0,255)
        
        //make lines in angles of 60 degree
        drawLine (x,y-u,x+1.333*i,y-u-i,red, green, blue) 
        drawLine (x,y-u,x-1.333*i,y-u-i,red, green, blue)
Next u

//set following drawcommands to screen
setrendertoscreen () 

//create sprite ID 1 with image 1 at zero degree
//our renderimage with the first line and random colours
createsprite(1,1) 

//clone sprite 1 to sprite 2 and so on until sprite 5
For t=1 To 5
        cloneSprite (t+1,1) 
        //draw lines with interval of 60 degrees 
        setspriteangle( t+1,t*60) 
Next t

sync() //refresh screen

sleep (1000) //wait one second

//set a clear screen to the image 1 to delete previous snowflake
SetRenderToImage (1,0) 
`ClearScreen()


loop