GLBasic forum

Codesnippets => Code Snippets => Topic started by: PeeJay on 2008-Feb-13

Title: Pretty simple stuff
Post by: PeeJay on 2008-Feb-13
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)
Title: Pretty simple stuff
Post by: S.O.P.M. on 2008-Feb-13
Nice! I love POLYVECTOR!