Code archives/Miscellaneous/Smiley Face

This code has been declared by its author to be Public Domain code.

Download source code

Smiley Face by Xzider
(Posted 20 years ago)
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