' Beispiel zu Linienrotation

SCREEN 12
INPUT "Startpunkt"; x1!, y1!
INPUT "Endpunkt"; x2!, y2!
INPUT "Radius (halbe Breite)"; r!

dx! = x2! - x1!
dy! = y2! - y1!
a! = SQR(dx! * dx! + dy! * dy!)
u! = r! * dx! / a!
v! = r! * dy! / a!
CIRCLE (x1!, y1!), r!, 9, , , 1!
CIRCLE (x2!, y2!), r!, 9, , , 1!
LINE (x1! + v!, y1! - u!)-(x2! + v!, y2! - u!), 15
LINE (x2! + v!, y2! - u!)-(x2! - v!, y2! + u!), 15
LINE (x2! - v!, y2! + u!)-(x1! - v!, y1! + u!), 15
LINE (x1! - v!, y1! + u!)-(x1! + v!, y1! - u!), 15
PSET (x1! + v!, y1! - u!), 12
PSET (x2! + v!, y2! - u!), 12
PSET (x2! - v!, y2! + u!), 12
PSET (x1! - v!, y1! + u!), 12

d$ = INPUT$(1)
SCREEN 0