home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / dtp / epsdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-09  |  2.5 KB  |  64 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      EPSDEMO.PAS                       *)
  3. (*           Demonstrationsprogramm zur EPS-Unit          *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM EpsDemo;
  6. USES EPS;
  7. VAR
  8.   kurve : PolygonZug;
  9.   i     : INTEGER;
  10. BEGIN
  11.   GrafikEin(180.0,110.0,'a:\epsdemo.eps');
  12.                                      { Grafik initalisieren}
  13.   FOR i:=0 TO 4 DO BEGIN     { fünf Linientypen mit unter- }
  14.                              { schiedlicher Dicke zeichnen }
  15.     LinienTyp(i);
  16.     LinienDicke(0.1+0.1*i);
  17.     Linie(5.0,10.0+i*5.0,50.0,10.0+i*5.0);
  18.   END;
  19.   Zeichensatz('Bookman-Light',10.0);
  20.                 { Zeichensatz in der Größe 10 pt auswählen }
  21.   GehZu(5.0,35.0);
  22.                   { Zeichenstift bewegen, ohne zu zeichnen }
  23.   Schreiben('Linientypen');                { Text ausgeben }
  24.  
  25.   LinienTyp(0);
  26.   LinienDicke(2.5);
  27.   FOR i:=0 TO 2 DO BEGIN        { Linienenden ausprobieren }
  28.     LinienEnde(i);
  29.     Linie(70.0,10.0+i*5.0,110.0,10.0+i*5);
  30.   END;
  31.   Zeichensatz('Helvetica',26.0);       { neuer Zeichensatz }
  32.   GehZu(70.0,25.0);
  33.   Schreiben('Linienenden');         { wieder Text ausgeben }
  34.   Zeichensatz('ZapfDingbats',60.0);    { neuer Zeichensatz }
  35.   GehZu(50.0,35.0);
  36.   Schreiben('+');                    { die 'Hand' zeichnen }
  37.   LinienDicke(0.15);                    { neue Liniendicke }
  38.   FOR i:=1 TO 400 DO    { Punkte des Polygonzugs bestimmen }
  39.   BEGIN
  40.     kurve[1,i]:=0.25*i;                    { x-Koordinaten }
  41.     kurve[2,i]:=70.0+10.0*cos(0.38*i)+10.0*cos(0.35*i);
  42.                                            { y-Koordinaten }
  43.   END;
  44.   LinienZug(kurve,400,offen);        { Polygonzug zeichnen }
  45.   FOR i:=1 TO 14 DO BEGIN   { ein geschlossener Polygonzug }
  46.     kurve[1,i]:=130.0+2.0*i;
  47.     kurve[2,i]:=40.0+2*i*cos(i);
  48.   END;
  49.   LinienZug(kurve,14,geschlossen);
  50.   ZeichenSatz('AvantGarde-Book',12.0);
  51.                             { und noch einige Zeichensätze }
  52.   SchreibenXY(130.0,15.0,'Polygonzug');
  53.   ZeichenSatz('ZapfChancery-MediumItalic',18.0);
  54.   SchreibenXY(10.0,100.0,
  55.   'Dies ist ZapfChancery-MediumItalic');
  56.   LinienDicke(0.2);
  57.   LinienTyp(3);
  58.   Rechteck(125.0,10.0,175.0,90.0);
  59.                                    { ein Rechteck zeichnen }
  60.   GrafikAus;                                   { Das war's }
  61. END.
  62. (* ------------------------------------------------------ *)
  63. (*                 Ende von EPSDEMO.PAS                   *)
  64.