home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / text / pastex-1.3-7of9.lha / PasTeX / MF / inputs / PassauLogos / fmilogo15.mf < prev    next >
Text File  |  1994-06-09  |  3KB  |  96 lines
  1. %
  2. % this is file 'fmilogo15mm.mf' written by Stefan Gastinger, August 1988.
  3. % 
  4.  
  5. %mode = sun;
  6. mode=CanonCX;
  7. mode_setup;
  8.  
  9. %%% Weite und Hoehe des Zeichens im Originalzustand:
  10. %%% Einheiten sind uninteressant, diese kuerzen sich mit
  11. %%% denen der unten eingegebenen Koordinaten weg.
  12.     inputwidth    = 110.5;
  13.     inputheight   = 111.2;
  14.  
  15. %%% Weite und Hoehe des gedruckten Zeichens:
  16.     %outputwidth#  = 12pt#;
  17.     %outputheight# = 12pt#;
  18.     outputwidth#  = 15mm#;
  19.     outputheight# = 15mm#;
  20.  
  21. %%% Umrechnen der absoluten Ausgabe-Angaben in korrekte Pixelwerte:
  22.     define_pixels(outputwidth,outputheight);
  23.  
  24. %%% Das Zeichen liegt auf dem grossen "P":
  25.     beginchar("P",outputwidth#,outputheight#,0); "The letter P";
  26.  
  27. %%% Alle Laengenangaben sind i.f. Prozentangaben.
  28.     x = outputwidth/inputwidth;  
  29.     y = outputheight/inputheight;  
  30.  
  31. %%% Erst das "Pi" in schwarz zeichnen:
  32. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33. %%% Oberer Querbalken:
  34. x1 =   1.5x;   y1 =  70.0y;   h1 =  14.0y; 
  35. x2 =  13.0x;   y2 =  82.2y;   h2 =   9.0y; 
  36. x3 =  30.0x;   y3 =  83.0y;   h3 =  12.0y; 
  37. x4 =  50.0x;   y4 =  78.0y;   h4 =  17.2y; 
  38. x5 =  70.0x;   y5 =  76.0y;   h5 =  15.5y; 
  39. x6 = 102.5x;   y6 =  88.0y;   h6 =  13.0y; 
  40.  
  41. y1  := y1 + 0.5h1;  penpos1(h1,90);
  42. y2  := y2 + 0.5h2;  penpos2(h2,90);
  43. y3  := y3 + 0.5h3;  penpos3(h3,90);
  44. y4  := y4 + 0.5h4;  penpos4(h4,90);
  45. y5  := y5 + 0.5h5;  penpos5(h5,90);
  46. y6  := y6 + 0.5h6;  penpos6(h6,90);
  47.  
  48. penstroke z1e..z2e..z3e..z4e..z5e..z6e;
  49.  
  50. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  51. %%% Linker Stuetzbalken:
  52. x7  =  32.5x;   y7  =  83.0y;   h7  =  15.5y; 
  53. x8  =  31.0x;   y8  =  30.0y;   h8  =  15.7y; 
  54. x9  =  30.5x;   y9  =  20.0y;   h9  =  14.5y; 
  55. x10 =  25.5x;   y10 =   9.2y;   h10 =  10.5y; 
  56. x11 =  20.0x;   y11 =   6.0y;   h11 =   6.0y; 
  57.  
  58. x7  := x7  + 0.5h7;   penpos7(h7,0);
  59. x8  := x8  + 0.5h8;   penpos8(h8,0);
  60. x9  := x9  + 0.5h9;   penpos9(h9,0);
  61. x10 := x10 + 0.5h10;  penpos10(h10,0);
  62. x11 := x11 + 0.5h11;  penpos11(h11,0);
  63.  
  64. penstroke z7e..z8e..z9e..z10e..z11e;
  65.  
  66. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  67. %%% Rechter Stuetzbalken:
  68. x12 =  60.5x;   y12 =  80.0y;   h12 =  15.0y; 
  69. x13 =  60.0x;   y13 =  40.0y;   h13 =  17.1y; 
  70. x12  := x12 + 0.5h12;  penpos12(h12,0);
  71. x13  := x13 + 0.5h13;  penpos13(h13,0);
  72.  
  73. z14 = (70x,24y);       penpos14(18.5x,20);
  74. z15 = (86x,15.5y);     penpos15(12.8x,66.5);
  75. z16 = (110x,27y);      penpos16(26.0x,90);
  76.  
  77. penstroke z12e..z13e{down}..z14e..z15e..z16e;
  78.  
  79. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  80.  
  81. %%% Dann merken wir uns das gezeichnete "Pi" in "negativ":
  82.     picture negativ; negativ = currentpicture;
  83.  
  84. %%% Aktuellen Bildschirm loeschen:
  85.     clearit;
  86.  
  87. %%% Schwarz ausgefuellten Kreis als Hintergrund zeichnen: 
  88.     fill (0,0.5outputheight)..(outputwidth,0.5outputheight)..cycle;
  89.  
  90. %%% Das gezeichnete "Pi" von diesem Kreis pixelweise subtrahieren:
  91.     currentpicture := currentpicture - negativ;
  92.  
  93. endchar;
  94. %showit;
  95. end;
  96.