Code archives/Miscellaneous/Smiley Face
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
This takes simple commands and makes a smiley face... Not the best way to do it, but I am bored. | |||||
Graphics 800,600,32,2 Speed% = Input("Drawing Speed In Milli-Seconds (1000 Milli-Seconds = 1 Second - ") Size% = Input("Size of smiley? (250-400 recommended) - ") Cls Color 0,255,0 For degree = 0 To 359 Delay Speed%/200 x = Cos(degree)*Size% y = Sin(degree)*Size% Rect(GraphicsWidth()/2+x,GraphicsHeight()/2+y,Size/50,Size/50) Next Color 0,0,255 Delay Speed% xx = -Size%/2 yy = -Size%/2 Rect(GraphicsWidth()/2+xx,GraphicsHeight()/2+yy,Size/25,Size/25) Delay Speed% xx = -Size/2+Size yy = -Size/2 Rect(GraphicsWidth()/2+xx,GraphicsHeight()/2+yy,Size/25,Size/25) Delay Speed% Color 0,255,255 xx = -Size/2 For i = 0 To Size/5 Delay Speed%/20 xx = xx + 5 yy = Size/2 Rect(GraphicsWidth()/2+xx,GraphicsHeight()/2+yy,Size/50,Size/50) Next Delay Speed% yy = Size/2 yyy = Size/2 t=xx For i = 1 To Size/15 Delay Speed%/200 xx = -Size/2 + 5 yy = yy - Size/100 Rect(GraphicsWidth()/2+xx,GraphicsHeight()/2+yy,Size/50,Size/50) Delay Speed%/200 xxx = t yyy = yyy - Size/100 Rect(GraphicsWidth()/2+xxx,GraphicsHeight()/2+yyy,Size/50,Size/50) Delay Speed%/200 Next Delay Speed%/500 Color 255,0,0 Text GraphicsWidth()/2,GraphicsHeight()/2,"I'm so happy!" WaitKey |
Comments
None.
Code Archives Forum