2008-02-01 07:16 PM
ww=wall_direction
add2 label_position [2][1]+label_position [3][1],
label_position [2][2]+label_position [3][2]
IF ww = 180 THEN ww = 0
IF ww = 270 THEN ww = 90
ROT2 ww+90
IF mir=1 THEN rot2 180
PEN LP
SET FILL BP
line2 ell*A_,0,-el*A_,0
HOTSPOT2 ell*A_,0
HOTSPOT2 -el*A_,0
If UDS=1 THEN
FS=FS1
ENDIF
PEN OP
rect2 ell*A_,(-s/2)*A_,(ell+s)*A_,(s/2)*A_
HOTSPOT2 0,0
HOTSPOT2 ell*A_, (-s/2)*A_
HOTSPOT2 ell*A_, (s/2)*A_
HOTSPOT2 (ell+s)*A_, (s/2)*A_
HOTSPOT2 (ell+s)*A_, (-s/2)*A_
rot2 -90
add2 0,(ell+s/2)*A_
rot2 -ww
if mir = 1 then ROT2 180
PEN TP
DEFINE STYLE "AC_STYLE_1" F,
FS*25.4/72, 5, 0
SET STYLE "AC_STYLE_1"
HOTSPOT2 0,0
TEXT2 0, 0, T2008-02-04 07:45 PM
2008-02-04 07:59 PM
2008-02-04 08:12 PM
2008-02-04 09:13 PM
FILL "empty fill" POLY2_B 5, 3, 1, BP, ell*A_, (-s/2)*A_, 1, (ell+s)*A_, (-s/2)*A_, 1, (ell+s)*A_,(s/2)*A_, 1, ell*A_,(s/2)*A_, 1, ell*A_, (-s/2)*A_, -1
2008-02-05 12:01 AM