POINT Function Programming Example
This example redraws an ellipse drawn with the CIRCLE statement, using
POINT to find the border of the ellipse by testing for a change in
color:
DEFINT X, Y
INPUT "Enter angle of tilt in degrees (0 to 90): ",Ang
SCREEN 1 'Medium resolution screen.
Ang = (3.1415926# / 180) * Ang 'Convert degrees to radians.
Cs = COS(Ang) : Sn = SIN(Ang)
CIRCLE (45, 70), 50, 2, , , 2 'Draw ellipse.
PAINT (45, 70), 2 'Paint interior of ellipse.
FOR Y = 20 TO 120
FOR X = 20 TO 70
'Check each point in rectangle enclosing ellipse.
IF POINT(X, Y) <> 0 THEN
'If the point is in the ellipse, plot a corresponding
'point in the "tilted" ellipse.
Xnew = (X * Cs - Y * Sn) + 200 : Ynew = (X * Sn + Y * Cs)
PSET(Xnew, Ynew), 2
END IF
NEXT
NEXT
END