% TW -- special characters (C)1991 Thomas Weinmann beginchar(oct"000",30ut#,39ut#,19ut#); pickup va_pen; % z1=(0ut,19ut); z2=(2ut,13ut); z3=(-4ut,-19ut); z4=(17ut,39ut); z5=(22ut,35ut); z6=(8ut,19ut); z7=(19ut,8ut); z8=(13ut,0ut); z9=(10ut,3ut); z10=(30ut,18ut); % draw z1..z2{z3-z2}--z3 & z3--z2{z2-z3}..z4{right}..z5{down}..z6{left} & z6{right}..z7{down}..z8{left}..z9{up}...z10{an}; % labels(range 1 thru 10); endchar; beginchar(oct"001",25 ut#,19 ut#,0ut#); pickup va_pen; % z1=(0ut,17ut); z2=(3ut,19ut); z3=(7ut,14ut); z4=(-1ut,4ut); z5=(5ut,-4ut); z6=(-5ut,-19ut); z7=(-9ut,-16ut); z8=(-6ut,-10ut); z9=(25ut,18ut); % draw z1..z2{right}..z3{down}..z4 & z4..z5{down}..z6{left}..z7{up}..z8---z9; % % labels(range 1 thru 9); endchar; beginchar(oct"002",18ut#,19ut#,0ut#); % s mit Anstrich und Endung pickup va_pen; % z1=(-10ut,8ut); z2=(0ut,19ut); z3=(5ut,5ut); z4=(0ut,0ut); z5=(-3ut,4ut); z6=(18ut,18ut); % draw z1--z2 & z2{z3-z2}..z3{down}..z4{left}..z5{dir 70}...z6{an}; % labels(range 1 thru 6); endchar; beginchar(oct"003",6ut#,19ut#,0ut#); pickup va_pen; % z1=(-10ut,10ut); z2=(0ut,19ut); z3=(5ut,5ut); z4=(0ut,0ut); z5=(-5ut,4ut); % draw z2{z3-z2}..z3{down}..z4{left}..z5; % labels(range 1 thru 6); endchar; beginchar(oct"004",20 ut#,19 ut#,0); pickup va_pen; % z1=(-12ut,7ut); z2=(0ut,19ut); z3=(5ut,4ut); z4=(1ut,0ut); z5=(-3ut,3ut); z6=(20ut,18ut); % draw %z1--z2 z2..z3{down}..z4{left}..z5{dir 70}...z6{an}; % % labels(range 1 thru 6); endchar; % e am Anfang eines Wortes beginchar(oct"030",15.4 ut#,19 ut#,0); pickup va_pen; % z1=(4ut,19ut)+(6ut,0ut); z2=(-2ut,7ut)+(6ut,0ut); z3=(3ut,0ut)+(6ut,0ut); z4=(9.3ut,(9.3*8/9-6)*ut)+(6ut,0ut); z5=(-1ut,13ut)+(6ut,0ut); z6=(8ut,13ut)+(6ut,0ut); z7=(9ut,2ut)+(6ut,0ut); z8=(-3ut,2ut); % draw z8..z6{z5-z2}..z1{left}..z5{z2-z5} ..z3{right}..z7--z4; % % labels(range 1 thru 7); endchar; % sz - beginchar(oct"031",22ut#,39ut#,19ut#); pickup va_pen; % z1=(0ut,19ut); z2=(2ut,13ut); z3=(-4ut,-19ut); z4=(17ut,39ut); z5=(22ut,35ut); z6=(8ut,19ut); z7=(19ut,8ut); z8=(11ut,0ut); z9=(6ut,4ut); % draw z1..z2{z3-z2}--z3 & z3--z2{z2-z3}..z4{right}..z5{down}..z6{left} & z6{right}..z7{down}..z8{left}..z9; % labels(range 1 thru 9); endchar; % diese Buchstaben(-kombinationen) werden am Ende eines Wortes verwendet. % Die Zeichen haben 4ut white space am Ende der Box. % c beginchar(oct"006",14 ut#,19 ut#,0); pickup va_pen; % z1=(10ut,18ut); z2=(5ut,19ut); z3=(-4ut,6ut); z4=(1ut,0ut); z5=(9ut,4ut); z6=(22ut,18ut); % draw z1..z2{left}..z3{down}..z4{right}..z5; % --z6; % % labels(range 1 thru 6); endchar; % f beginchar(oct"007",16 ut#,39 ut#,19ut#); pickup va_pen; % z1=(0ut,18ut); z2=(12ut,37ut); z3=(9ut,39ut); z4=(3ut,31ut); z5=(-7ut,-19ut); z6=(-7ut,5ut); z7=(7ut,6ut); z8=(18ut,18ut); % draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5; draw z6..z7; % ---z8{an}; % % labels(range 1 thru 8); endchar; % g beginchar(oct"010",17 ut#,19 ut#,19ut#); pickup va_pen; % z1=(11ut,13ut); z2=(1ut,0ut); z3=(-5ut,7ut); z4=(5ut,19ut); z10=(12ut,19ut); z11=(7ut,-10ut); z12=(0ut,-19ut); z13=(-4ut,-15ut); z14=(0ut,-9ut); z15=(13ut,2ut); % draw z1{down}..z2{left}..z3{up}..z4{right}..cycle; draw z10--z11{z11-z10}..z12{left}..z13{up}..z14...z15{an}; % % labels(range 1 thru 15); endchar; % j beginchar(oct"011",7 ut#,19 ut#,19ut#); pickup va_pen; % z1=(2.5ut,28ut); z2=(0ut,19ut); z3=(-5ut,-3ut); z4=(-13ut,-19ut); z5=(3ut,3ut); % draw z2--z3{z3-z2}...z4{left}..z3{z5-z3}---z5{an}; pickup pencircle scaled 4ut; drawdot z1; % % labels(range 1 thru 5); endchar; % l beginchar(oct"012",18 ut#,39 ut#,0); pickup va_pen; % z1=(0ut,18ut); z2=(14ut,36ut); z3=(11ut,39ut); z4=(1ut,0ut); z5=(21ut,18ut); z6=(6ut,2ut); % draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6; % --z5; % % labels(range 1 thru 6); endchar; % q beginchar(oct"013",15 ut#,19 ut#,19ut#); pickup va_pen; % z1=(9ut,13ut); z2=(0ut,0ut); z3=(-6ut,5ut); z4=(4ut,19ut); z5=(11ut,19ut); z6=(4ut,-19ut); z7=(8ut,0ut); z8=(25ut,18ut); % draw z1{down}..z2{left}..z3{up}..z4{right}..cycle; draw z5--z6; % draw z7...z8{an}; % % labels(range 1 thru 8); endchar; % y beginchar(oct"014",20 ut#,19 ut#,19ut#); pickup va_pen; % z1=(0ut,19ut); z2=(-2ut,4ut); z3=(1ut,0ut); z4=(14ut,19ut); z5=(9ut,-13ut); z6=(3ut,-19ut); z7=(0ut,-16ut); z8=(4ut,-9ut); z9=(16ut,3ut); % draw z1--z2..z3{right}..z4{z4-z5} & z4--z5..z6{left}..z7{up}..z8{z9-z8}--z9; % % labels(range 1 thru 9); endchar; % ff beginchar(oct"015",31 ut#,39 ut#,19ut#); pickup va_pen; % z1=(0ut,18ut); z2=(11ut,37ut); z3=(9ut,39ut); z4=(3ut,31ut); z5=(-7ut,-19ut); z6=(-9ut,5ut); z7=(7ut,6ut)+1.1*z9; z8=(18ut,18ut)+z9; z9=(16ut, 0ut); z10=z1+z9-(0ut,3ut); z11=z2+z9; z12=z3+z9; z13=z4+z9; z14=z5+z9; % draw z1{an}..z2{up}..z3{left}...z4{z5-z4}--z5 ..z10{an}..z11{up}..z12{left}...z13{z14-z13}--z14; draw z6..z7; % --z8{an}; % % labels(range 1 thru 14); endchar; % ll beginchar(oct"016",33.7 ut#,39 ut#,0); pickup va_pen; % z1=(0ut,18ut); z2=(12.7ut,36ut); z3=(11ut,39ut); z4=(1ut,0ut); z5=(16ut,18ut); z6=(6ut,2ut); z7=(6.1ut,(6.1*16/15+(2-64/15))*ut); z8=(17ut,0); z9=z8+z1; z10=z2+z8; z11=z3+z8; z12=z4+z8; z13=z5+z8+(2ut,0); z14=z6+z8; z15=z8+z1+(6.5ut,0); % draw z1{an}..z2{up}..z3{left}..z1{z4-z3}..z4{right}..z6 ..z10{up}..z11{left}..z9{z12-z11}..z12{right}..z14; % --z13; % % labels(range 1 thru 6); endchar; % t am Anfang eines Wortes ohne folgende Ligaturen und % nach speziellen Grossbuchstaben beginchar(oct"017",28 ut#,39 ut#,0); pickup va_pen; % z1=(-3ut,7ut); z2=(14ut,39ut); z3=(7ut,0ut); z4=(-2ut,8ut); z5=(28ut,18ut); % draw z1{an}..z2{(0,1)} & z2-- z3; draw z4{dir 340}..z5{dir 60}; % % labels(range 1 thru 5); endchar; % v beginchar(oct"135",18 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(-4ut,5ut); z3=(2ut,0ut); z4=(14ut,19ut); z5=(27ut,18ut); % draw z1..z2{z2-z1}..z3{right}..z4{z1-z2}; % & z4{dir 300}..z5; % % labels(range 1 thru 5); endchar; % w beginchar(oct"136",26 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(-3ut,5ut); z3=(0ut,0ut); z4=(9ut,8ut); z5=(11ut,19ut); z6=(13ut,0ut); z7=(22ut,19ut); z8=(35ut,18ut); % draw z1--z2..z3{right}..z4--z5 & z5--z4..z6{right}..z7{z5-z4}; % & z7{dir 300}..z8; % % labels(range 1 thru 8); endchar; % x beginchar(oct"137",17 ut#,19 ut#,0); pickup va_pen; % z1=(0ut,19ut); z2=(11ut,0ut); z3=(-5ut,0ut); z4=(13ut,19ut); z5=(30ut,18ut); % draw z1--z2; draw z3--z4; % & z4{dir 300}..z5; % % labels(range 1 thru 5); endchar;