HACKERBOT

shotting.cc

DEFCON-1

HOME

WELCOME TO SHOTTING.CC

Procedure Circle (oX,oY,rad:integer;Col:Byte); VAR deg:real; X,Y:integer; BEGIN deg:=0; repeat X:=round(rad*COS (deg)); Y:=round(rad*sin (deg)); putpixel (x+ox,y+oy,Col); deg:=deg+0.005; until (deg>6.4); END; LINK HERE: http://shotting.cc/Wikka/CategoryCirclesAndLines