! »»» Rotation of the system
IF ef_rotation AND ef_rot_htspt AND ef_help>0 THEN
htspt=7000 : HOTSPOT 0,0,0, htspt
!» X-rotation handle at Z-axis
htspt=htspt+1 : HOTSPOT 0, 0,0, htspt, ef_rotX, 6
htspt=htspt+1 : HOTSPOT 0,0,.1, htspt, ef_rotX, 4+128
htspt=htspt+1 : HOTSPOT .1,0,0, htspt, ef_rotX, 7
ROTX ef_rotX
htspt=htspt+1 : HOTSPOT 0,0,ef_help, htspt, ef_rotX, 5
IF ef_StiftHL>0 THEN
PEN ef_StiftHL
LIN_ 0,0,0,0,0,ef_help
PEN SYMB_VIEW_PEN
ENDIF
!» Y-rotation handle at X-axis
htspt=htspt+1 : HOTSPOT 0,0, 0, htspt, ef_rotY, 6
htspt=htspt+1 : HOTSPOT .1,0, 0, htspt, ef_rotY, 4+128
htspt=htspt+1 : HOTSPOT 0,.1,0, htspt, ef_rotY, 7
ROTY ef_rotY
htspt=htspt+1 : HOTSPOT 2*ef_help/3,0,0, htspt, ef_rotY, 5
IF ef_StiftHL>0 THEN
PEN ef_StiftHL
LIN_ 0,0,0,2*ef_help/3,0,0
PEN SYMB_VIEW_PEN
ENDIF
!» Z-rotation handle at X-axis
IF ef_rot_type="X+Y+Z" THEN
htspt=htspt+1 : HOTSPOT 0, 0,0, htspt, ef_rotZ, 6
htspt=htspt+1 : HOTSPOT .1, 0,0, htspt, ef_rotZ, 4+128
htspt=htspt+1 : HOTSPOT 0,0,.1, htspt, ef_rotZ, 7
ROTZ ef_rotZ
htspt=htspt+1 : HOTSPOT ef_help/3,0,0, htspt, ef_rotZ, 5
IF ef_StiftHL>0 THEN
PEN ef_StiftHL
LIN_ 0,0,0,ef_help/3,0,0
PEN SYMB_VIEW_PEN
ENDIF
ELSE
ROTZ 0
ENDIF
ELSE
!»» rotation if handles switched off or hlp lines too short.
ROTX ef_rotX
ROTY ef_rotY
IF ef_rot_type="X+Y+Z" THEN ROTZ ef_rotZ ELSE ROTZ 0
ENDIF
!»» ………