am 2009-10-23 04:28 PM
am 2009-10-28 02:18 PM
! wegleitsystem 2d by zzxyzx
! parameter anlegen:
! t01, t02, t03 für texte
! r01, r02, r03 für richtungspfeile
! n = 3 ! anzahl textfelder
! sh = 3 ! schrifthöhe
! sa = "Arial" ! schriftart
! zh = 0.25 ! zeilenhöhe
! zd = 0.35 ! abstand schrift
define style standard sa,sh,4,0
set style standard
fill "massiv"
r = r01
gosub 100
poly2_b 5,3,p01,0,
0,-zh/2,1,
a,-zh/2,1,
a,zh/2,1,
0,zh/2,1,
0,-zh/2,-1
text2 zd,0,t01
if n = 1 then end
add2 0,-zh
r = r02
gosub 100
poly2_b 5,3,p02,0,
0,-zh/2,1,
a,-zh/2,1,
a,zh/2,1,
0,zh/2,1,
0,-zh/2,-1
text2 zd,0,t02
if n = 2 then end
add2 0,-zh
r = r03
gosub 100
poly2_b 5,3,p03,0,
0,-zh/2,1,
a,-zh/2,1,
a,zh/2,1,
0,zh/2,1,
0,-zh/2,-1
text2 zd,0,t03
if n = 3 then end
end
100:
if r = "gradeaus" then
line2 zd/2, -zh/3, zd/2, zh/3
line2 zd/2-zh/6, 0, zd/2, zh/3
line2 zd/2+zh/6, 0, zd/2, zh/3
endif
if r = "links" then
line2 zd/2-zh/3, 0, zd/2+zh/3, 0
line2 zd/2-zh/3,0, zd/2, +zh/6
line2 zd/2-zh/3,0, zd/2, -zh/6
endif
if r = "rechts" then
line2 zd/2-zh/3, 0, zd/2+zh/3, 0
line2 zd/2+zh/3,0, zd/2, +zh/6
line2 zd/2+zh/3,0, zd/2, -zh/6
endif
if r = "links diagonal" then
line2 zd/2-zh/3, zh/3, zd/2+zh/3,-zh/3
line2 zd/2-zh/4,0,zd/2-zh/3, zh/3
line2 zd/2-zh/3,zh/3,zd/2,zh/4
endif
if r = "rechts diagonal" then
line2 zd/2+zh/3, zh/3, zd/2-zh/3,-zh/3
line2 zd/2+zh/4,0,zd/2+zh/3, zh/3
line2 zd/2+zh/3,zh/3,zd/2,zh/4
endif
return
! parameterskript
values "t01" "Gebäude 1","Gebäude 2","Gebäude3","---","Warteraum","WC Herren","WC Damen","Behandlungsraum",custom
values "t02" "Gebäude 1","Gebäude 2","Gebäude3","---","Warteraum","WC Herren","WC Damen","Behandlungsraum",custom
values "t03" "Gebäude 1","Gebäude 2","Gebäude3","---","Warteraum","WC Herren","WC Damen","Behandlungsraum",custom
values "r01" "links","links diagonal","gradeaus","rechts diagonal","rechts"
values "r02" "links","links diagonal","gradeaus","rechts diagonal","rechts"
values "r03" "links","links diagonal","gradeaus","rechts diagonal","rechts"
values "n" range[1,3]
am 2009-10-28 11:34 PM
am 2009-10-29 01:49 PM