Computer Science Canada :: View topic - Happy Smiling Face(fully graphical)

setscreen ("graphics")
setscreen ("graphics:788;502")
var x, y, r : int
const colo := yellow
const colo_eye := black
const colo_mouth := brightred
loop
randint (r, 1, 100)
randint (x, r, maxx - r)
randint (y, r, maxy - r)
const eye := r div 5
drawfilloval (x, y, r, r, colo)
drawoval (x, y, r, r, black)
drawfilloval (x + r div 3, y + r div 3, eye, eye, colo_eye)
drawfilloval (x - r div 3, y + r div 3, eye, eye, colo_eye)
drawarc (x, y - r div 4, r div 2, r div 3, 180, 360, colo_mouth)
for decreasing i : eye .. 1
drawfilloval (x + r div 3, y + r div 3, eye, i, colo_eye)
delay (50)
drawfilloval (x + r div 3, y + r div 3, eye, i, colo)
end for
for i : 1 .. eye
drawfilloval (x + r div 3, y + r div 3, eye, i, colo_eye)
delay (50)
drawfilloval (x + r div 3, y + r div 3, eye, i, colo)
end for
drawfilloval (x + r div 3, y + r div 3, eye, eye, colo_eye)
end loop

Author:	shorthair [ Sat Jan 17, 2004 2:59 pm ]
Post subject:
Good job ( pssss , its been done ) but its well done , good use of variable aswell

Author:	DanShadow [ Sat Jan 17, 2004 10:14 pm ]
Post subject:
hmmm...I think that program was stolen sport...by you! I have seen that exact program done by someone else...except slightly different, like changed variable names. If you did indeed steal that and post it, let Vengeance be brought down upon you...but if you did truthfully make it, good job. [[PS]] Shorthair, where did you get 1300 bits from???

Author:	sport [ Sat Jan 17, 2004 11:20 pm ]
Post subject:	Reply
The code was not stolen, but I did help a couple of guys finishes their programs in school so if they posted their programs they might be somewhat alike, but I did right this program from start to the end.

Author:	shorthair [ Sun Jan 18, 2004 10:32 am ]
Post subject:
Ive been saving my bits dan, i got 1000 from mazer a while back for this exact program , but i spent that on email forwarding ,

Author:	Prettyjnk [ Thu Apr 29, 2004 3:43 pm ]
Post subject:
nice faces, i like it!