<< Click here to display Table of Contents >> Examples:
Rotate example
Rotate(Angle: number);
In this example, text and digits are shown at a range of angles to form a protractor for text.
// REDTITAN RS2 CONTROL
circle(1200,1200,600); ANGLE:=0; TANGLE:=inttostr(ANGLE); N:=15; ROT:=ANGLE;
repeat TANGLE:= inttostr(ROT); rotate(ROT); text(1200,1200,'. .......... ' + TANGLE + ' degrees'); ROT:=ROT+N; until ROT>350;
halt(1);