home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / bbs / programs / amiga / metafont.lha / MF / INPUTS / MISC / rsym.mf < prev    next >
Text File  |  1992-09-13  |  62KB  |  1,733 lines
  1. % This is RSYM.MF in text format, version 1.1
  2.  
  3. cmchar "therefore";
  4. beginchar(hex"05",12u#,x_height#,0);
  5. italcorr 0;
  6. adjust_fit(0,0); pickup fine.nib;
  7. numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#;
  8. define_whole_blacker_pixels(dot_diam);
  9. pos1(dot_diam,0); pos2(dot_diam,90);
  10. pos3(dot_diam,0); pos4(dot_diam,90);
  11. pos5(dot_diam,0); pos6(dot_diam,90);
  12. lft x1l=hround(.5w-.5dot_diam); y1+.5dot_diam=vround(x_height+.5dot_diam);
  13. x1=.5[x3,x5];  y3=y5; bot y4l=0;
  14. sqrt3 * (x5-x3) = 2(y1-y4);
  15. z1=z2; dot(1,2);  % dots
  16. z3=z4; dot(3,4);
  17. z5=z6; dot(5,6);
  18. penlabels(1,2,3,4,5,6); endchar;
  19.  
  20. cmchar "pointer";
  21. beginchar(hex"09",9u#,fig_height#,0);
  22. italcorr 0;
  23. adjust_fit(0,0); pickup rule.nib;
  24. lft x1 = hround .5u;
  25. rt  x4 = hround (w-.6u);
  26. x7=x1; x2=x3=x5=x6=.5[x1,x4];
  27. (top y5) - (bot y3) = h;
  28. y5-y6 = y2-y3 = vround .3h;
  29. y4=good.y .5[-d,h]=.5[y3,y5];
  30. y1=y2; y7=y6;
  31. draw z1--z2--z3--z4--z5--z6--z7--cycle;
  32. labels(1,2,3,4,5,6,7); endchar;
  33.  
  34. cmchar "lightning";
  35. beginchar(hex"12",8u#,asc_height#,.5desc_depth#);
  36. italcorr 0;
  37. adjust_fit(0,0); pickup rule.nib;
  38. x1 = .5w; x3 = w-u; x2 = u; x5 = .5w - u;
  39. top y1 = h; bot y5 = -d; y2=y3=.5[y4,y1]; z4=1/5[z5,z3];
  40. z6 = 2[z5,z4] = .5[z7,z8]; y8 = y6; x8-x7 = .5(x3-x2);
  41. x5'=.5[x4,x5]; y5'=y5;
  42. draw z1--z2--z3--z4;
  43. filldraw z5'--z7--z8--cycle;
  44. labels(1,2,3,4,5,6,7); endchar;
  45.  
  46. cmchar "inverse logical not sign";
  47. beginchar(hex"18",12u#,x_height#,0);
  48. italcorr x_height#*slant-.5u#;
  49. adjust_fit(if monospace: -1.5u#,-1.5u# else: 0,0 fi); pickup rule.nib;
  50. lft x2=hround u-eps; x3=w-x2; x1=x2;
  51. y2=y3=good.y .5[bar_height,h]; y3-y1=1.2(h-bar_height);
  52. draw z1--z2--z3;  % bar and stem
  53. labels(1,2,3); endchar;
  54.  
  55. cmchar "aries";
  56. beginchar(hex"17",asc_height#+2u#,asc_height#,0);
  57. italcorr 2/3asc_height#*slant;
  58. adjust_fit(0,0); pickup rule.nib;
  59. y1=y6; y2-y1=x2-x1; top y2 = h+oo; y5=y2; bot y4 = 0-oo;
  60. y3=.85[y4,y1];
  61. x3-x1 = x6-x3 = 1/2h; x3 = x4 = good.x .5w;
  62. x2=.5[x1,x3]; x5=.5[x3,x6];
  63. draw z1{dir 100}..z2..z3---z4 & z4---z3..z5..{dir -100}z6;
  64. labels(1,2,3); endchar;
  65.  
  66. cmchar "taurus";
  67. beginchar(hex"5D",asc_height#+2u#,asc_height#,0);
  68. italcorr .7asc_height#*slant;
  69. adjust_fit(0,0);
  70. pickup rule.nib; autorounded;
  71. x4 = good.x .5w; y8-y4=x2-x6=2/3h; y2=good.y .34h;
  72. circle_points;
  73. draw_circle;
  74. x2'=x2; x6'=x6; y2'=y6'=h;
  75. x8'=x4; y8'=2h;
  76. draw z2'{z2'-z8'}..z8..{z8'-z6'}z6';
  77. labels(1,2,3,4,5,6,7,8);
  78. labels(2',6',8'); endchar;
  79.  
  80. cmchar "gemini";
  81. beginchar(hex"5E",asc_height#+2u#,asc_height#,0);
  82. italcorr 2/3asc_height#*slant;
  83. adjust_fit(0,0); pickup rule.nib;
  84. top y2 = h+u; bot y1 = 0-u; y4 = y1; y3 = y2;
  85. x1 = x2 = u; x3 = x4 = w-u; 
  86. bot y5 = 1/18h; top y6 = 17/18h;  y8 = y5;  y7 = y6;
  87. x5 = x6 = 1/3w;  x7 = x8 = 2/3w;
  88. draw z5--z6;
  89. draw z7--z8;
  90. draw z1..z5..z8..z4;
  91. draw z2..z6..z7..z3;
  92. labels(1,2,3,4,5,6,7,8); endchar;
  93.  
  94. cmchar "capricorn";
  95. beginchar(hex"64",asc_height#+2u#,asc_height#,0);
  96. italcorr 2/3asc_height#*slant;
  97. adjust_fit(0,0); pickup rule.nib;
  98. top y1 = h; x1 = hround u;
  99. y2 = y1; x2 = hround (w-u);
  100. x3 = 0.42w; y3 = 0.60h;
  101. x4 = 0.60w; bot y4 = 0;
  102. x5 = x2 + oo; y5 = 0.28h;
  103. x6 = x1; y6 = 0.35h;
  104. draw z1--z2{dir 200}..z3..z4..z5..z3..z6;
  105. labels(1,2,3,4,5,6); endchar;
  106.  
  107. cmchar "pisces";
  108. beginchar(hex"66",asc_height#+2u#,asc_height#,0);
  109. italcorr 2/3asc_height#*slant;
  110. adjust_fit(0,0); pickup rule.nib;
  111. top y2 = h; bot y1 = 0; y4 = y1; y3 = y2;
  112. y2 - y5 = y5 - y1;  y6 = y5;
  113. x5 = 1/3w; x5-x1 = x3-x6;
  114. x1 = x2 = hround u; x3 = x4 = hround w-u; 
  115. draw z5--z6;
  116. draw z1..z5..z2;
  117. draw z3..z6..z4;
  118. labels(1,2,3,4,5,6); endchar;
  119.  
  120. cmchar "virgo";
  121. beginchar(hex"60",1.5asc_height#+2u#,asc_height#,desc_depth#);
  122. italcorr .7asc_height#*slant;
  123. adjust_fit(0,0);
  124. pickup rule.nib; autorounded;
  125. top y1 = h; x1 = hround u;
  126. bot y2 = 0; x2 = hround u + (w-2u)/7;
  127. y4-y3 = x3-x1;  x3=x2;
  128. y4=y7=y10=y1; x4-x3=x5-x4=x7-x5=x8-x7=x10-x8=0.77(x11-x10)=x3-x1;
  129. x5=x6; x8=x9;
  130. y5=y8=y11=y3;
  131. y6=y9=y2;
  132. x9'=x9+1/4(x11-x9);
  133. y9'=y9+2/3(y12-y9);
  134. bot y12 = -d; x12-x6 = x9-x12;
  135. draw z1{right}..{down}z3--z2--z3..z4..z5--z6--z5..z7..z8--z9{down}..z9';
  136. draw z9--z8..z10..z11{down}..z12;
  137. labels(1,2,3,4,5,6,7,8,9,10,11,12);
  138. endchar;
  139.  
  140. cmchar "scorpio";
  141. beginchar(hex"62",1.5asc_height#+2u#,asc_height#,desc_depth#);
  142. italcorr .7asc_height#*slant;
  143. adjust_fit(0,0);
  144. pickup rule.nib; autorounded;
  145. top y1 = h; x1 = hround u;
  146. bot y2 = 0; x2 = hround u + (w-2u)/7;
  147. y4-y3 = x3-x1;  x3=x2;
  148. y4=y7=y10=y1; x4-x3=x5-x4=x7-x5=x8-x7=x10-x8=0.77(x11-x10)=x3-x1;
  149. x5=x6; x8=x9;
  150. y5=y8=y3;
  151. y6=y9=y11=y2;
  152. x12=x11; y12=y11-2u;
  153. x13=x11-2u; y13=y11;
  154. draw z1{right}..{down}z3--z2--z3..z4..z5--z6--z5..z7..z8
  155.  --z9{down}..{dir 45}z11;
  156. draw z12--z11--z13;
  157. labels(1,2,3,4,5,6,7,8,9,10,11,12);
  158. endchar;
  159.  
  160. cmchar "cancer";
  161. beginchar(hex"5F",1.3asc_height#+2u#,asc_height#,0);
  162. italcorr .7asc_height#*slant;
  163. adjust_fit(0,0);
  164. pickup rule.nib; autorounded;
  165. y6 = 0.5h; x6 = hround u; x2-x6 = y8-y4 = 0.35h;
  166. circle_points;
  167. y1'=y1; y2'=y2; y3'=y3; y4'=y4; y5'=y5; y6'=y6; y7'=y7; y8'=y8;
  168. x6'= hround (w-u);
  169. x9 = hround (0.55w); top y9 = h; bot y9' = 0;
  170. x10 = hround (w-u-1/7h); y10-y8' = 1/7h; y4-y10' = 1/7h;
  171. x2'-x6'=x6-x2; x3'-x6'=x6-x3; x4'-x6'=x6-x4; x5'-x6'=x6-x5;
  172. x1'-x6'=x6-x1; x7'-x6'=x6-x7; x8'-x6'=x6-x8; x9'-x6'=x6-x9;
  173. x10'-x6'=x6-x10;
  174. draw z6{up}...z7{z8-z6}
  175.   ...z8{right}...z1{z2-z8}...z2{down}...z3{z4-z2}...z4{left}
  176.   ...z5{z6-z4}...z6{up}..z9{right}..z10;
  177. draw z6'{down}...z5'{z4'-z6'}
  178.   ...z4'{left}...z3'{z2'-z4'}...z2'{up}...z1'{z8'-z2'}...z8'{right}
  179.   ...z7'{z6'-z8'}...z6'{down}..z9'{left}..z10';
  180. labels(1,2,3,4,5,6,7,8,9,10);
  181. labels(1',2',3',4',5',6',7',8',9',10');
  182. endchar;
  183.  
  184. cmchar "libra";
  185. beginchar(hex"61",1.5asc_height#+2u#,0.75asc_height#,0);
  186. italcorr .7asc_height#*slant;
  187. adjust_fit(0,0);
  188. pickup rule.nib; autorounded;
  189. x4 = good.x .5w; y8-y4=x2-x6=.5w-2u; bot y4 = 0;
  190. circle_points;
  191. top y6' = bot y6;  x6' = x6;
  192. top y2' = bot y2;  x2' = x2;
  193. y9 = y10 = y2'; x10-x9 = w-2u; x10-x4 = x4-x9;
  194. y11 = y12 = y4; x11=x9; x12=x10;
  195. draw z11--z12;
  196. draw z9--z6'{dir 95}..z7..z8..z1..{dir -95}z2'--z10;
  197. labels(1,2',3,4,5,6',7,8,9,10,11,12);
  198. endchar;
  199.  
  200. cmchar "aquarius";
  201. beginchar(hex"65",1.5asc_height#+2u#,x_height#,0);
  202. italcorr .7asc_height#*slant;
  203. adjust_fit(0,0);
  204. pickup rule.nib; autorounded;
  205. x1 = hround u; x6 = hround (w-u);
  206. x2-x1 = x3-x2 = x4-x3 = x5-x4 = x6-x5;
  207. top y2 = h; y2=y4=y6;
  208. bot y1 = 0.55h; y1=y3=y5;
  209. x1'=x1;x2'=x2;x3'=x3;x4'=x4;x5'=x5;x6'=x6;
  210. bot y1' = 0; y1'=y3'=y5';
  211. y2'-y1' = y2-y1; y2'=y4'=y6';
  212. draw z1..z2..z3..z4..z5..z6;
  213. draw z1'..z2'..z3'..z4'..z5'..z6';
  214. labels(1,2.3,4,5,6);
  215. labels(1',2',3',4',5',6');
  216. endchar;
  217.  
  218. cmchar "sun";
  219. beginchar(hex"2E",asc_height#+2u#,asc_height#,0);
  220. italcorr .5asc_height#*slant;
  221. adjust_fit(0,0);
  222. pickup rule.nib; autorounded;
  223. x4 = good.x .5w; y8-y4=x2-x6=3/5h; y2=good.y .5h;
  224. circle_points;
  225. z1'=4/3[z5,z1];
  226. z2'=4/3[z6,z2];
  227. z3'=4/3[z7,z3];
  228. z4'=4/3[z8,z4];
  229. z5'=4/3[z1,z5];
  230. z6'=4/3[z2,z6];
  231. z7'=4/3[z3,z7];
  232. z8'=4/3[z4,z8];
  233. draw_circle;
  234. for n=1 upto 8: draw z[n]--z[n]'; endfor
  235. labels(1,2,3,4,5,6,7,8);
  236. labels(1',2',3',4',5',6',7',8'); endchar;
  237.  
  238. cmchar "check";
  239. beginchar(8,.90*asc_height#+2u#,asc_height#,0);
  240. italcorr asc_height#*slant - .5u#;
  241. adjust_fit(0,0); pickup crisp.nib;
  242. x1=u; x2=x1+.26h; x3=x2+.65h;
  243. y1=.35h; bot y2=0; top y3l=h-eps;
  244. pos1(hair,45); pos2(stem,0); pos3(hair,-45);
  245. filldraw stroke z1e{(1,-1)}..z2e;
  246. filldraw stroke z2e..{(1,1)}z3e;
  247. penlabels(1,2,3); endchar;
  248.  
  249. cmchar "bell";
  250. beginchar(10,1.7math_axis#+u#,1.9math_axis#,0);
  251. italcorr u#*slant + .5u#;
  252. adjust_fit(0,0); pickup crisp.nib;
  253. x11=good.x u; x14 = good.x .5w; x17-x14=x14-x11;
  254. x12=x11; x16=x17; x13=1/3[x12,x14]; x15=1/3[x16,x14];
  255. bot y11=1.5u; y17=y11; y12=y11+stem; y16=y12;
  256. top y14=h; y13=y15=.5[y12,y14];
  257. filldraw z11--z12{right}..z13..z14{right}..z15..{right}z16--z17--cycle;
  258. x1=x3=x14; y1-y3=x2-x4=1.6u; x1=.5[x2,x4]; y4=y2=.5[y1,y3]=good.y .8u;
  259. filldraw z1..z2..z3..z4..cycle;
  260. labels(1,2,3,4,11,12,13,14,15,16,17); endchar;
  261.  
  262. cmchar "1/8 note";
  263. beginchar(11,10u#,asc_height#,0);
  264. italcorr 1/3asc_height#*slant;
  265. adjust_fit(0,0); pickup crisp.nib;
  266. lft x1=u; rt x3r=.5w; rt x7r = w-u;
  267. x5=x5'=x3; x7'=x7; x2=x4=.5[x1,x3r];
  268. bot y2=0; top y4=3u; y1=y3=.5[y2,y4];
  269. top y5=h; y7=1/3h; z6=.5[z5,z7];
  270. pos3(hair,0); pos5(hair,0); pos7(hair,0);
  271. pos5'(hair,0); pos7'(hair,0);
  272. y5-y5'=y7'-y7=1.0u;
  273. pos6(2u,45);
  274. filldraw z1..z2..z3r..z4..cycle; % corpus
  275. filldraw stroke z3e--z5e; % beam
  276. filldraw st