Hi, I was wondering if someone can help me with two items:
1. Why is the triangle not showing up?
2. How can I remove the extra space after the first roof slope entry. i.e. “6 :12” to “6:12”
Thanks for any help everyone.
A=B
STYLE 'arialbold'
IF GLOB_CONTEXT=4 then
GOSUB 500
ENDIF
IF SA then
GOSUB 200
ENDIF
GOSUB 300
IF SUI then
GOSUB 400
ENDIF
END
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!! ELEVATION SYMBOL !!!!!!!!!!!!!!!!!!!!!!!!!
500:
!!!!!!!!!!!!if AC_pitch<0 then mul2 -1,1 !!!corrects direction for negative pitch
IF FO=0 THEN
HOTSPOT2 0,0
HOTSPOT2 -A,B/2
HOTSPOT2 0,B/2
HOTSPOT2 -A,0
MUL2 -1,1
PEN TLP
ADD2 O,B/2
POLY2 4,fill_type,0,0,adjacent,0,adjacent,-opposite, 0,0
PEN LP
DEL TOP
ADD2 -A,0
ENDIF
IF FO=1 THEN
HOTSPOT2 0,0
HOTSPOT2 A,B/2
HOTSPOT2 0,B/2
HOTSPOT2 A,0
PEN TLP
ADD2 O,B/2
POLY2 4,fill_type,0,0,adjacent,0,adjacent,-opposite, 0,0
PEN LP
DEL 1
ENDIF
!!!!!!!!!!!!!!!!!!!!!!!TEXT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PEN TP
STYLE 'arialbold_4'
IF angle_type="Slope in 12" THEN
TA=tan(roof_angle)*12
text2 B/4,-TH,TA
text2 B/4+TH,-TH,"/12"
ENDIF
IF angle_type = "Decimal Angle" THEN
TEXT2 B/4+TH,-TH, STR ("%.2dd", roof_angle)
ENDIF
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
END
!!!!!!!!!!!!!!!! Shows Roof Area !!!!!!!!!!!!!!!!!!!
200:
RA=ROOF_GROSS_TOP_SURF*10.764262
text2 B,0,"Roof Area"
text2 B,-TH,RA
RETURN
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!! Shows Angle of Roof !!!!!!!!!!!!
300:
PEN LP
STYLE 'arialbold_4'
IF angle_type="Slope in 12" THEN
TA=tan(roof_angle)*12
text2 B,TH,TA
text2 B+TH,TH,":12"
ENDIF
IF angle_type = "Decimal Angle" THEN
TEXT2 B,TH, STR ("%.2dd", roof_angle)
ENDIF
RETURN
!!!!!!!!!!!!!!!! Shows User ID of Roof !!!!!!!!!!!!!!!!
400:
text2 B,TH*2,GLB
RETURN