Pretty simple stuff

Previous topic - Next topic

PeeJay

I was just playing with some code, I won't bore you with why, but this was a little experimental snippet

Code (glbasic) Select
SETSCREEN 640,480,0
LIMITFPS 60

DRAWRECT 0,0,640,480,RGB(255,255,255)
GRABSPRITE 0,0,0,640,480

ang=0

WHILE TRUE

INC ang,1
IF ang>359 THEN DEC ang,360

BLACKSCREEN

STARTPOLY 0
POLYVECTOR 320+(230*SIN(ang)),240+(230*COS(ang)),320+(230*SIN(ang)),240+(230*COS(ang)),RGB(255,0,0)
POLYVECTOR 320+(230*SIN(ang+60)),240+(230*COS(ang+60)),320+(230*SIN(ang+60)),240+(230*COS(ang+60)),RGB(192,192,0)
POLYVECTOR 320+(230*SIN(ang+120)),240+(230*COS(ang+120)),320+(230*SIN(ang+120)),240+(230*COS(ang+120)),RGB(0,255,0)
POLYVECTOR 320+(230*SIN(ang+180)),240+(230*COS(ang+180)),320+(230*SIN(ang+180)),240+(230*COS(ang+180)),RGB(0,192,192)
POLYVECTOR 320+(230*SIN(ang+240)),240+(230*COS(ang+240)),320+(230*SIN(ang+240)),240+(230*COS(ang+240)),RGB(0,0,255)
POLYVECTOR 320+(230*SIN(ang+300)),240+(230*COS(ang+300)),320+(230*SIN(ang+300)),240+(230*COS(ang+300)),RGB(192,0,192)
ENDPOLY

STARTPOLY 0
POLYVECTOR 320+(200*SIN(ang)),240+(200*COS(ang)),320+(200*SIN(ang)),240+(200*COS(ang)),0
POLYVECTOR 320+(200*SIN(ang+60)),240+(200*COS(ang+60)),320+(200*SIN(ang+60)),240+(200*COS(ang+60)),0
POLYVECTOR 320+(200*SIN(ang+120)),240+(200*COS(ang+120)),320+(200*SIN(ang+120)),240+(200*COS(ang+120)),0
POLYVECTOR 320+(200*SIN(ang+180)),240+(200*COS(ang+180)),320+(200*SIN(ang+180)),240+(200*COS(ang+180)),0
POLYVECTOR 320+(200*SIN(ang+240)),240+(200*COS(ang+240)),320+(200*SIN(ang+240)),240+(200*COS(ang+240)),0
POLYVECTOR 320+(200*SIN(ang+300)),240+(200*COS(ang+300)),320+(200*SIN(ang+300)),240+(200*COS(ang+300)),0
ENDPOLY

SHOWSCREEN

WEND
Quick edit just to make it a hollow shape (with a black polyvector)
www.peejays-remakes.co.uk
For games, remakes, and GL Basic Tutorials
Artificial Intelligence is no match for Natural Stupidity

S.O.P.M.

Nice! I love POLYVECTOR!
Notebook PC Samsung E372 Core i5 @ 2,6 GHz; 4 GB RAM; Win 7 Home Premium