Nozzle orientation drawing

var !ori p1 dir wrt/*
!O = !ORI.PART(1,'')
!R = !ORI.PART(2,'')
!I = !ORI.PART(3,'')


!N = |0|
!E = |90|
!S = |180|
!W = |270|
!F = |360|


IF(|$!ORI| EQ |N|) THEN
!ANG = ($!N)
ELSEIF(|$!ORI| EQ |E|) THEN
!ANG = ($!E)
ELSEIF(|$!ORI| EQ |S|) THEN
!ANG = ($!S)
ELSEIF(|$!ORI| EQ |W|) THEN
!ANG = ($!W)
ELSEIF((|$!O| EQ |N|) AND (|$!I| EQ |E|)) THEN
!ANG = (|$!R|)
ELSEIF((|$!O| EQ |E|) AND (|$!I| EQ |S|)) THEN
!ANG = ($!E + $!R)
ELSEIF((|$!O| EQ |S|) AND (|$!I| EQ |W|)) THEN
!ANG = ($!S + $!R)
ELSEIF((|$!O| EQ |W|) AND (|$!I| EQ |N|)) THEN
!ANG = ($!W + $!R)
ELSEIF((|$!O| EQ |N|) AND (|$!I| EQ |W|)) THEN
!ANG = ($!F - $!R)
ELSEIF((|$!O| EQ |W|) AND (|$!I| EQ |S|)) THEN
!ANG = ($!W - $!R)
ELSEIF((|$!O| EQ |S|) AND (|$!I| EQ |E|)) THEN
!ANG = ($!S - $!R)
ELSEIF((|$!O| EQ |E|) AND (|$!I| EQ |N|)) THEN
!ANG = ($!E - $!R)
ELSE
ENDIF


IF (|$!ORI| EQ |U|) THEN
!ANGLE = ||
ELSEIF (|$!ORI| EQ |D|) THEN
!ANGLE = ||
ELSE
!ANGLE = |Angle| + | | + |$!ANG|
ENDIF
$p $!ANGLE

var !ori p1 dir wrt/*
!O = !ORI.PART(1,'')
!R = !ORI.PART(2,'')
!I = !ORI.PART(3,'')


!N = |0|
!E = |90|
!S = |180|
!W = |270|
!F = |360|


IF(|$!ORI| EQ |N|) THEN
!ANG = ($!N)
ELSEIF(|$!ORI| EQ |E|) THEN
!ANG = ($!E)
ELSEIF(|$!ORI| EQ |S|) THEN
!ANG = ($!S)
ELSEIF(|$!ORI| EQ |W|) THEN
!ANG = ($!W)
ELSEIF((|$!O| EQ |N|) AND (|$!I| EQ |E|)) THEN
!ANG = (|$!R|)
ELSEIF((|$!O| EQ |E|) AND (|$!I| EQ |S|)) THEN
!ANG = ($!E + $!R)
ELSEIF((|$!O| EQ |S|) AND (|$!I| EQ |W|)) THEN
!ANG = ($!S + $!R)
ELSEIF((|$!O| EQ |W|) AND (|$!I| EQ |N|)) THEN
!ANG = ($!W + $!R)
ELSEIF((|$!O| EQ |N|) AND (|$!I| EQ |W|)) THEN
!ANG = ($!F - $!R)
ELSEIF((|$!O| EQ |W|) AND (|$!I| EQ |S|)) THEN
!ANG = ($!W - $!R)
ELSEIF((|$!O| EQ |S|) AND (|$!I| EQ |E|)) THEN
!ANG = ($!S - $!R)
ELSEIF((|$!O| EQ |E|) AND (|$!I| EQ |N|)) THEN
!ANG = ($!E - $!R)
ELSE
ENDIF


IF (|$!ORI| EQ |U|) THEN
!ANGLE = ||
ELSEIF (|$!ORI| EQ |D|) THEN
!ANGLE = ||
ELSE
!ANGLE = |Angle| + | | + |$!ANG|
ENDIF
$p $!ANGLE