Sorry your browser is not supported!

SetWindowTitle( "funflight" )
SetWindowSize( 640, 640, 0 )

// set display properties
SetVirtualResolution( 100, 100 )
SetOrientationAllowed( 1, 1, 1, 1 )

dim x#[500]
dim y#[500]

dim oldx#[500]
dim oldy#[500]
dim colr[500]
dim colg[500]
dim colb[500]

dim speed#[500]

for t= 1 to 500
	x#[t] = (Random(1,1000)/1000.0)-0.5
	y#[t] = (Random(1,1000)/1000.0)-0.5
	speed#[t] = (Random(1,1000)/13000.0)+1.0
	colr[t] = random(1,255)
	colg[t] = random(1,255)
	colb[t] = random(1,255)
next t

do
    
if GetRawKeyState(27)=1
	end
endif

for t = 1 to 500

	oldx#[t]=x#[t]
	oldy#[t]=y#[t]

	x#[t]=x#[t]*speed#[t]
	y#[t]=y#[t]*speed#[t]
	
	if x#[t]>50.0 
		x#[t]=x#[t]-50.0
		oldx#[t]=x#[t]
	endif
	if x#[t]<-50.0 
		x#[t]=x#[t]+50.0
		oldx#[t]=x#[t]
	endif
	if y#[t]>50.0 
		y#[t]=y#[t]-50.0
		oldy#[t]=y#[t]
	endif
	if y#[t]<-50.0 
		y#[t]=y#[t]+50.0
	oldy#[t]=y#[t]
	endif
	
	drawFatline(x#[t]+50.0,y#[t]+50.0,oldx#[t]+50.0,oldy#[t]+50.0,2,colr[t],colg[t],colb[t])

next t

sync()
	
loop


function drawFatline(aX as float, aY as float, bX as float, bY as float, thickness as float, color_red as integer, color_green as integer, color_blue as integer)
 	lineimage=CreateImageColor(color_red,color_green,color_blue,255)
	lineSprite = createSprite(lineImage)
	setSpriteOffset(lineSprite, 0, getSpriteHeight(lineSprite) * 0.5)
	setSpriteSize(lineSprite, thickness, thickness)
    dX# = bX - aX
    dY# = bY - aY
	dY# = dY#/GetDisplayAspect()  
    angle# = aTanFull(dX#, dY#)
    length# = sqrt((dX# * dX#) + (dY# * dY#))
    setSpritePositionByOffset(lineSprite, aX, aY)
    setSpriteAngle(lineSprite, angle# - 90.0)
    setSpriteSize(lineSprite, length#, 2)
    DrawSprite(lineSprite)
    DeleteSprite(linesprite)
    DeleteImage(lineimage)
endfunction

// Project: Christmas Particles 
// Created: 2015-12-24
// by Rich Dersheimer
// Merry Christmas!

// set window properties
SetWindowTitle("Christmas Particles")
SetWindowSize(640,640,0)

// set display properties
SetVirtualResolution(640,640)
SetOrientationAllowed(1,1,1,1)

// some colors
colorLightRed = Makecolor(255,155,155)
colorRed = MakeColor(255,0,0)
colorDarkRed = MakeColor(155,0,0)
colorLightGreen = MakeColor(155,255,255)
colorGreen = MakeColor(0,255,0)
colorDarkGreen = MakeColor(0,155,0)
colorLightBlue = MakeColor(155,155,255)
colorBlue = MakeColor(0,0,255)
colorDarkBlue = MakeColor(0,0,155)
colorDarkGrey = MakeColor(100,100,100)
colorLightGrey = MakeColor(200,200,200)
colorWhite = MakeColor(255,255,255)
colorblack = Makecolor(0,0,0)
colorBrown = MakeColor(100,90,60)
colorDarkBrown = MakeColor(50,30,15)

// drawing the images
ClearScreen()

drawline(0,0,64,64,colorWhite,colorWhite)
drawline(1,-1,65,65,colorWhite,colorWhite)
drawline(-1,0,63,64,colorWhite,colorWhite)

drawline(0,64,64,0,colorWhite,colorWhite)
drawline(0,63,63,0,colorWhite,colorWhite)
drawline(1,64,65,0,colorWhite,colorWhite)

DrawEllipse(0,0,6,9,colorWhite,colorWhite,1)
DrawEllipse(32,0,6,9,colorWhite,colorWhite,1)
DrawEllipse(64,0,6,9,colorWhite,colorWhite,1)
DrawEllipse(0,64,6,9,colorWhite,colorWhite,1)
DrawEllipse(32,64,6,9,colorWhite,colorWhite,1)
DrawEllipse(64,64,6,9,colorWhite,colorWhite,1)


drawbox(30,0,34,64,colorWhite,colorWhite,colorWhite,colorWhite,1)

Snowflake = getimage(0,0,64,64)

ClearScreen()

for x = 25 to 35 step 5
	DrawEllipse(x,11,10,8,colorWhite,colorWhite,0)
next x
    
drawbox(0,20,64,64,colorLightGreen,colorGreen,colorGreen,colorDarkGreen,1)
drawbox(0,35,64,45,colorLightRed,colorRed,colorDarkRed,colorDarkRed,1)
drawbox(24,20,36,64,colorLightRed,colorRed,colorDarkRed,colorDarkRed,1)

GreenGift = GetImage(0,0,64,64)

drawbox(0,20,64,64,colorLightBlue,colorBlue,colorBlue,colorDarkBlue,1)
drawbox(0,35,64,45,colorWhite,colorLightGrey,colorLightGrey,colorDarkGrey,1)
drawbox(24,20,36,64,colorWhite,colorLightGrey,colorLightGrey,colorDarkGrey,1)

BlueGift = GetImage(0,0,64,64)

drawbox(0,20,64,64,colorWhite,colorLightGrey,colorLightGrey,colorDarkGrey,1)
for y = 35 to 50
	drawline(0,y,-16+y,20,colorDarkBlue,colorDarkBlue)
	drawline(64,y,y,64,colorDarkBlue,colorDarkBlue)
next y

WhiteGift = GetImage(0,0,64,64)

drawbox(0,0,640,640,colorBrown,colorBrown,colorDarkBrown,colorDarkBrown,1)
for x = 64 to 640 step 64
	drawline(x,0,x,640,colorDarkGrey,colorDarkGrey)
	drawline(x-1,0,x-1,640,colorBlack,colorBlack)
next x
drawbox(0,540,640,640,colorDarkBrown,colorDarkBrown,colorDarkBrown,colorDarkBrown,1)
drawline(0,540,640,540,colorDarkGrey,colorDarkGrey)

DrawEllipse(320,590,250,40,colorDarkRed,colorRed,1)

for x = 300 to 340
	drawline(x,64,320,0,colorDarkGreen,colorDarkGreen)
next x
for x = 250 to 390
	drawline(x,200,320,32,colorDarkGreen,colorDarkGreen)
next x
for x = 200 to 440
	drawline(x,400,320,80,colorDarkGreen,colorDarkGreen)
next x
for x = 120 to 520
	drawline(x,600,320,210,colorDarkGreen,colorDarkGreen)
next x

Backdrop = GetImage(0,0,640,640)
BackdropSpr = CreateSprite(Backdrop)

GreenSpr = CreateSprite(GreenGift)
GreenSpr2 = CreateSprite(GreenGift)
BlueSpr = CreateSprite(BlueGift)
BlueSpr2 = CreateSprite(BlueGift)
WhiteSpr = CreateSprite(WhiteGift)
WhiteSpr2 = CreateSprite(WhiteGift)

SetSpriteSize(GreenSpr,96,96)
SetSpriteSize(BlueSpr,128,96)
SetSpriteSize(WhiteSpr,64,96)
SetSpritePositionByOffset(GreenSpr2,410,585)
SetSpriteDepth(GreenSpr2,2)
SetSpriteSize(WhiteSpr2,100,64)
SetSpritePositionByOffset(Whitespr2,300,590)
SetSpritePositionByOffset(BlueSpr2,205,586)

SetSpritePositionByOffset(WhiteSpr,450,560)
SetSpritePositionByOffset(BlueSpr,320,560)
SetSpritePositionByOffset(GreenSpr,180,560)

// let it snow!
Snow = CreateParticles(0,0)
SetParticlesImage(Snow, SnowFlake)
SetParticlesDirection(Snow, 0, 64 ) 
SetParticlesAngle(Snow,0)  
SetParticlesFrequency(Snow,10) 
SetParticlesSize(Snow,32.0)
SetParticlesStartZone(Snow, 0, 0, 640, 0 ) 
SetParticlesLife(Snow,10) 
SetParticlesRotationRange(Snow,-180,180) 

do
	if getrawkeyreleased(27) then end
    Sync()
loop