home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / PLOT / PLOT.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-09  |  925b  |  31 lines
  1. {    Beispielapplikation für ACS
  2.     "PLOT"
  3.     02.12.92 Stefan Bachert (Pure C)
  4.     04.01.93 Michael Schlüter (Pure Pascal)
  5.     Letzte Änderung: 04.01.93
  6. }
  7.  
  8. PROGRAM plot;
  9.  
  10. {$X+}
  11.  
  12. USES ACS, PLOTM;
  13.  
  14. { ----------------------------------------------------------------- }
  15. { ACS Initialisieren und NEU-Ikon auf den Desktop legen                }
  16. { ----------------------------------------------------------------- }
  17. FUNCTION init_acs: INTEGER;
  18. BEGIN
  19.     plotterw := AWindowPtr(get_plotter)^.create(NIL);{ Erzeuge Plotter-Fenster }
  20.     CONTROL.create(NIL);                    { Erzeuge Control-Fenster }
  21.     IF plotterw <> NIL THEN
  22.         plotterw^.open(plotterw);            { Öffne das Fenster }
  23.     init_acs := OK;
  24. END;
  25.  
  26. { ----------------------------------------------------------------- }
  27. { Hauptprogramm                                                        }
  28. { ----------------------------------------------------------------- }
  29. BEGIN                                        { ACS }
  30.     start_acs (init_acs, @ACSdescr);        { und los }
  31. END.