Sorry your browser is not supported!

Set display mode 1024,768,32
origcol=rgb(rnd(255),rnd(255),rnd(255))
abcol=rgb(rnd(255),rnd(255),rnd(255))
cdcol=rgb(rnd(255),rnd(255),rnd(255))
abx=rnd(300)+200
aby=rnd(200)-100
cdx=rnd(200)-100
cdy=rnd(300)+200
origx=rnd(300)+100
origy=rnd(300)+100
size=sqrt((cdx*cdx)+(cdy*cdy)+(abx*abx)+(aby*aby))

lock pixels

For x = 0 to size
For y = 0 to size-x
Red=RGBR(origcol)+(((RGBR(abcol)-RGBR(origcol))*x)/size)+(((RGBR(cdcol)-RGBR(origcol))*y)/size)
Green=RGBG(origcol)+(((RGBG(abcol)-RGBG(origcol))*x)/size)+(((RGBG(cdcol)-RGBG(origcol))*y)/size)
Blue=RGBB(origcol)+(((RGBB(abcol)-RGBB(origcol))*x)/size)+(((RGBB(cdcol)-RGBB(origcol))*y)/size)
XPos=0+(x*abx)/size+(y*cdx)/size
YPos=0+(x*aby)/size+(y*cdy)/size
DOT xPos+origx,yPos+origy,RGB(Red,Green,Blue)
DOT xPos+origx+1,yPos+origy,RGB(Red,Green,Blue)
DOT xPos+origx,yPos+origy+1,RGB(Red,Green,Blue)

Next y
Next x
unlock pixels
wait key

Set display mode 1024,768,32
origcol=rgb(rnd(255),rnd(255),rnd(255))
abcol=rgb(rnd(255),rnd(255),rnd(255))
cdcol=rgb(rnd(255),rnd(255),rnd(255))
abx=rnd(300)+200
aby=rnd(200)-100
cdx=rnd(200)-100
cdy=rnd(300)+200
origx=rnd(300)+100
origy=rnd(300)+100
size=sqrt((cdx*cdx)+(cdy*cdy)+(abx*abx)+(aby*aby))

sync on : sync rate 0

For x = 0 to size
For y = 0 to size-x
Red=RGBR(origcol)+(((RGBR(abcol)-RGBR(origcol))*x)/size)+(((RGBR(cdcol)-RGBR(origcol))*y)/size)
Green=RGBG(origcol)+(((RGBG(abcol)-RGBG(origcol))*x)/size)+(((RGBG(cdcol)-RGBG(origcol))*y)/size)
Blue=RGBB(origcol)+(((RGBB(abcol)-RGBB(origcol))*x)/size)+(((RGBB(cdcol)-RGBB(origcol))*y)/size)
XPos=0+(x*abx)/size+(y*cdx)/size
YPos=0+(x*aby)/size+(y*cdy)/size
ink RGB(Red,Green,Blue),0
DOT xPos+origx,yPos+origy
DOT xPos+origx+1,yPos+origy
DOT xPos+origx,yPos+origy+1

Next y
Next x

sync
wait key

gosub dos
if spacekey() then gosub dos

dos:
Set display mode 1024,768,32
origcol=rgb(rnd(255),rnd(255),rnd(255))
abcol=rgb(rnd(255),rnd(255),rnd(255))
cdcol=rgb(rnd(255),rnd(255),rnd(255))
abx=rnd(300)+200
aby=rnd(200)-100
cdx=rnd(200)-100
cdy=rnd(300)+200
origx=rnd(300)+100
origy=rnd(300)+100
size=sqrt((cdx*cdx)+(cdy*cdy)+(abx*abx)+(aby*aby))

lock pixels

For x = 0 to size
For y = 0 to size-x
Red=RGBR(origcol)+(((RGBR(abcol)-RGBR(origcol))*x)/size)+(((RGBR(cdcol)-RGBR(origcol))*y)/size)
Green=RGBG(origcol)+(((RGBG(abcol)-RGBG(origcol))*x)/size)+(((RGBG(cdcol)-RGBG(origcol))*y)/size)
Blue=RGBB(origcol)+(((RGBB(abcol)-RGBB(origcol))*x)/size)+(((RGBB(cdcol)-RGBB(origcol))*y)/size)
XPos=0+(x*abx)/size+(y*cdx)/size
YPos=0+(x*aby)/size+(y*cdy)/size
DOT xPos+origx,yPos+origy,RGB(Red,Green,Blue)
DOT xPos+origx+1,yPos+origy,RGB(Red,Green,Blue)
DOT xPos+origx,yPos+origy+1,RGB(Red,Green,Blue)

Next y
Next x
unlock pixels
wait key
return