' Dieses Programm bestimmt die Parallele
' bei gegebenen Abstand
'
DEFDBL a-z

INPUT "Erster Punkt der Gerade";x1,y1
INPUT "Zweiter Punkt";x2,y2
INPUT "Abstand";a

VerschiebeParallel x1,y1,x2,y2,a,xp1,yp1,xp2,yp2

LINE (x1,y1)-(x2,y2),1
LINE (xp1,yp1)-(xp2,yp2),2

END

SUB VerschiebeParallel (x1,y1,x2,y2,a,xp1,yp1,xp2,yp2) STATIC
  dx=x2-x1
  dy=y2-y1
  a1=SQR(dx*dx+dy*dy)
  w1=dy*a/a1
  w2=dx*a/a1
  xp1=x1-w1
  yp1=y1+w2
  xp2=x2-w1
  yp2=y2+w2
END SUB