setup Form !!sampleForm
exit
define method .sampleMethod()
DO
ID GLAB SLAB @
HANDLE ANY
GOLABEL /FINISH
ENDHANDLE
!GLAB = !!CE
!LAYE = !!CE.OWNER
[COLOR=#0000ff]IF !!CE.DDNAME.BADREF().EQ(TRUE) THEN
RETURN
ENDIF
IF !!CE.DDNAME.TYPE.NEQ('SCTN') Then
RETURN
ENDIF[/COLOR]
!START = !!CE.DDNAME.POSS.WRT(WORLD)
!END = !!CE.DDNAME.POSE.WRT(WORLD)
!!CE = !LAYE
NEW VNOTE FUNC 'ANGLE-MACRO'
!VNOTE = !!CE
NEW STRA FPT $!START TPT $!END
!ADEG = !!CE.ADEG
!!CE = !VNOTE
DELETE VNOTE
!!CE = !GLAB
IF !ADEG.REAL().LT(-90) THEN
ADEG ($!ADEG + 180)
ELSEIF !ADEG.REAL().GT(90) THEN
ADEG($!ADEG - 180)
ELSE
ADEG $!ADEG
ENDIF
REFRESH
ENDDO
LABEL /FINISH