Draw a Glass Sphere

[hartnell]

This is based on some things I learned while studying sprite art. Somewhere I have a scalable one for use in stat bars. Here it is :

Code Select Expand


SetFPS 60

Do
Cls 0
CircleC 100,100, 21, True, $242424
CircleC 100,100,20, True, $6D0000
CircleC 100, 100, 18, True, $FF2400
CircleC 98, 98, 18, True, $6D0000
CircleC 92, 92, 3, True, $FFFFB6
Sync
Loop


Eyeball coming soon.

-- Shawn

[hartnell]

A little bit more complex, a slightly bit more ... creepy.

Draw an eyeball.

Code Select Expand


SetFPS 60

Do
Cls 0
CircleC 200, 200, 74, True, $494924
CircleC 200, 200, 73, True, $CCCCCC
CircleC 198, 194, 66, True, $FFFFFF
CircleC 200, 200, 37, True, $B6B6B6
CircleC 200, 200, 36, True, $000049
CircleC 200, 200, 29, True, $0000B6
CircleC 198, 198, 24, True, $0000FF
CircleC 200, 200, 15, True, $000049
CircleC 189, 189,  4, True, $FFFFFF
Sync
Loop


-- Shawn

[ATLUS]

Cool eye!:-)