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-01 10:43 PM
2008-02-01 11:09 PM
2008-02-02 12:36 AM
2008-02-02 12:46 AM
2008-02-02 12:47 AM
2008-02-02 01:02 AM
2008-02-02 01:32 AM
2008-02-04 05:42 PM
2008-02-04 07:08 PM