New Ideas (New Features)

by Jim ⌂ @, Russell, KY, Monday, December 31, 2012, 06:08 (1812 days ago) @ M Santos

another smile program

dim smile(1)
smile = {0,0 ,5,0 ,5,1 ,1,1 ,1,2 ,2,2 ,2,1 ,3,1 ,3,2 ,4,2 ,4,1 ,5,1 ,5,3 ,3,3 ,3,4 ,2,4 ,2,3 ,1,3 ,1,5 ,4,5 ,4,3 ,5,3 ,5,6 ,0,6}

clg
fastgraphics
a = 0
z = 1

while true
clg
color black
rect 0,0,300,300
color yellow
stamp 150,150,z,a,smile
refresh
pause .1
a = a + pi/10
z = z + .1
end while


Complete thread:

 RSS Feed of thread

powered by my little forum