MACRO ZOUT2
ZOUT;2
ENDM


MACRO ZIN2
ZIN;2
ENDM


MACRO DOOR1
ECOFF
SELSAVE
SAVESETTINGS
:MacroDone
GETSETTINGS
SELREST
ECON
ENDM


MACRO DOOR2
ECOFF
SELSAVE
SAVESETTINGS
GE vline1 ^DSelect first line
GP vpoint ^DSelect another point outside line
COLOR 2
LINE vline1 vpoint;
:MacroDone
GETSETTINGS
SELREST
ECON
ENDM


MACRO DOOR3
ECOFF
SELSAVE
SAVESETTINGS
GE vline1 ^DSelect first line at insertion point
IFERR MacroDone
GP PM vline1
GOLAYER TOERASE
SELBY1
CHANGEL vline1 TOERASE
GE vline2 ^DSelect second line
IFERR MacroDone
CHANGEL vline2 TOERASE
GOLAYER JDRWALL
COLOR 2
LWIDTH 1
GV vdoorw 2.5
GV vdoorw ^DEnter Door Width: (2.5')
IFZ vdoorw MacroDone
GBRNG vAngle1 % 0 vLine1 % 100 vLine1
GP PE ref PM <vAngle1,vdoorW/2
GP PF ref PM <vAngle1+180,vdoorw/2
LINE % 100 vLine1;PE;
LINE % 0 vLine1;PF;
:MacroDone
GETSETTINGS
SELREST
ECON
ENDM

MACRO DOOR4
ECOFF
SELSAVE
SAVESETTINGS
GE vline1 ^DSelect first line at insertion point
IFERR MacroDone
GP PM vline1
GOLAYER TOERASE
SELBY1
CHANGEL vline1 TOERASE
GE vline2 ^DSelect second line
IFERR MacroDone
CHANGEL vline2 TOERASE
GOLAYER JDRWALL
COLOR 2
LWIDTH 1
GV vdoorw 2.5
GV vdoorw ^DEnter Door Width: (2.5')
IFZ vdoorw MacroDone
GBRNG vAngle1 % 0 vLine1 % 100 vLine1
GP PE ref PM <vAngle1,(vdoorW/2)
GP PF ref PM <vAngle1+180,(vdoorw/2)
LINE % 100 vLine1;PE;
LINE % 0 vLine1;PF;
GETX vxC % 0 vLine2
GETY vyC % 0 vLine2
GETX vxD % 100 vLine2
GETY vyD % 100 vLine2
GETX vxE PE
GETY vyE PE
GETX vxF PF
GETY vyF PF
GETX vxM PM
GETY vyM PM
GV vdot1 (vxC-vxD)*(vxM-vxE)+(vyC-vyD)*(vyM-vyE)
GV vdot2 (vxE-vxD)*(vxM-vxE)+(vyE-vyD)*(vyM-vyE)
GV vk (vdot2/vdot1)
GV vxH vxD+vk*(vxC-vxD)
GV vyH vyD+vk*(vyC-vyD)
GP PH vxH,vyH
COLOR 1
LINE PE;PH;
:MacroDone
GETSETTINGS
SELREST
ECON
ENDM


MACRO DOOR5
ECOFF
SELSAVE
SAVESETTINGS
GE vline1 ^DSelect first line at insertion point
IFERR MacroDone
GP PM vline1
GOLAYER TOERASE
SELBY1
CHANGEL vline1 TOERASE
GE vline2 ^DSelect second line
IFERR MacroDone
CHANGEL vline2 TOERASE
GOLAYER JDRWALL
GV vdoorw 2.5
GV vdoorw ^DEnter Door Width: (2.5')
IFZ vdoorw MacroDone
GBRNG vAngle1 % 0 vLine1 % 100 vLine1
GP PE ref PM <vAngle1,(vdoorW/2)
GP PF ref PM <vAngle1+180,(vdoorw/2)
GETX vxC % 0 vLine2
GETY vyC % 0 vLine2
GETX vxD % 100 vLine2
GETY vyD % 100 vLine2
GETX vxE PE
GETY vyE PE
GETX vxF PF
GETY vyF PF
GETX vxM PM
GETY vyM PM
GV vdot1 (vxC-vxD)*(vxM-vxE)+(vyC-vyD)*(vyM-vyE)
GV absdot1 vdot1
IFP absdot1 AbsoluteDone
GV absdot1 -absdot1
:AbsoluteDone
IFN absdot1-(vdoorw/1000) Lperp
GV vdot2 (vxE-vxD)*(vxM-vxE)+(vyE-vyD)*(vyM-vyE)
GV vk (vdot2/vdot1)
GV vxH vxD+vk*(vxC-vxD)
GV vyH vyD+vk*(vyC-vyD)
GP PH vxH,vyH
GV vdot1 (vxC-vxD)*(vxM-vxF)+(vyC-vyD)*(vyM-vyF)
GV vdot2 (vxF-vxD)*(vxM-vxF)+(vyF-vyD)*(vyM-vyF)
GV vk (vdot2/vdot1)
GV vxG vxD+vk*(vxC-vxD)
GV vyG vyD+vk*(vyC-vyD)
GP PG vxG,vyG
LWIDTH 1
COLOR 2
LINE % 100 vLine1;PE;
LINE % 0 vLine1;PF;
COLOR 1
LINE PE;PH;
COLOR 3
LINE PF;PG;
GO MacroDone
:Lperp
MSGBOX Macro Aborted
Your lines are perpendicular
or almost so. 

:MacroDone
GETSETTINGS
SELREST
ECON
ENDM


MACRO DOOR
ECOFF
SELSAVE
SAVESETTINGS
GE vline1 ^DSelect first line at insertion point
IFERR MacroDone
GP PM vline1
GOLAYER TOERASE
SELBY1
CHANGEL vline1 TOERASE
GE vline2 ^DSelect second line
IFERR MacroDone
CHANGEL vline2 TOERASE
GOLAYER JDRWALL
GV vdoorw 2.5
GV vdoorw ^DEnter Door Width: (2.5')
IFZ vdoorw MacroDone
GBRNG vAngle1 % 0 vLine1 % 100 vLine1
GP PE ref PM <vAngle1,(vdoorW/2)
GP PF ref PM <vAngle1+180,(vdoorw/2)
GETX vxC % 0 vLine2
GETY vyC % 0 vLine2
GETX vxD % 100 vLine2
GETY vyD % 100 vLine2
GETX vxE PE
GETY vyE PE
GETX vxF PF
GETY vyF PF
GETX vxM PM
GETY vyM PM
GV vdot1 (vxC-vxD)*(vxM-vxE)+(vyC-vyD)*(vyM-vyE)
GV absdot1 vdot1
IFP absdot1 AbsoluteDone
GV absdot1 -absdot1
:AbsoluteDone
IFN absdot1-(vdoorw/1000) Lperp
GV vdot2 (vxE-vxD)*(vxM-vxE)+(vyE-vyD)*(vyM-vyE)
GV vk (vdot2/vdot1)
GV vxH vxD+vk*(vxC-vxD)
GV vyH vyD+vk*(vyC-vyD)
GP PH vxH,vyH
GV vdot1 (vxC-vxD)*(vxM-vxF)+(vyC-vyD)*(vyM-vyF)
GV vdot2 (vxF-vxD)*(vxM-vxF)+(vyF-vyD)*(vyM-vyF)
GV vk (vdot2/vdot1)
GV vxG vxD+vk*(vxC-vxD)
GV vyG vyD+vk*(vyC-vyD)
GP PG vxG,vyG
LINE % 100 vLine1;PE;
LINE % 0 vLine1;PF;
LINE PE;PH;
LINE PF;PG;
GP PC % 0 vLine2
GP PD % 100 vLine2
IFN vdot1 DCok
GP vBufP PD
GP PD PC
GP PC vBufP
:DCok
LINE PD;PH;
LINE PC;PG;
ASKBOX Erase lines ?

IFERR MacroDone
SELBYA
LAYER TOERASE
HIDEA
ERA
SHOWA
GO MacroDone
:Lperp
MSGBOX Macro Aborted
Your lines are perpendicular
or almost so. 

:MacroDone
LAYER JDRWALL
GETSETTINGS
SELREST
ECON
ENDM