!Versuch mit lsel,s,tan1
!aus dem Forum von Hicham13
!Schätzing, 13.8.2014

fini  $/cle
*abbr,hicham,/input,hicham,txt

x1=1
y1=1
z1=0

x2=6
y2=6
z2=0

/prep7 

!-----Geometrie-------
k,1,x1,y1,z1
k,2,x2,y2,z2

l,1,2

pi=4*atan(1)
winkel=sin(45*pi/180)

lsel,s,tan1,x,-0.7071

lsel,s,tan2,x,+0.7071