DataMuseum.dk

top - metrics - download

    Length: 1254 (0x4e6)
    Types: TextFile
    Names: »FIGUR1.PAS«

└─⟦d4ddf50a0⟧ Bits:30004478 CPI-graf 2.5 til Piccoline/Partner
    └─⟦this⟧ »FIGUR1.PAS« 

TextFile

PROGRAM figur1;
uses cpigraf;
BEGIN
(*-----------------------------------------------------------------------------
Programmet initialiseres og hele sk▶91◀rmen g▶9b◀res til det aktive vindue. 
skaleringen af vinduet er for b▶86◀de x- og y-aksen: 0 til 100
-----------------------------------------------------------------------------*)
  GraphicScreen(IBM_high);
  SetWindow(WholeScreen,0,100,0,100);
  SelectViewport(WholeScreen);

(*-----------------------------------------------------------------------------
Grafiktilstanden startes og der tegnes en ramme omkring det aktive vindue
-----------------------------------------------------------------------------*)
  GraphMode;
  DrawFrame;
  MoveTo(0,0);
  DrawTo(100,100);
  MoveTo(0,100);
  DrawTo(100,0);

(*-----------------------------------------------------------------------------
Der udskrives en tekst i position (20,0) ved at bruge liniekoordinaterne
der udskrives en tekst ved at bruge skalerede koordinater
programmet venter indtil der trykkes p▶86◀ en taste
og teksttilstanden reetableres
-----------------------------------------------------------------------------*)
  WriteText(20,0,'Et eksempel p▶86◀ grafik');
  DrawText(50,50,'midti');
  ReadChar;
  TextMode;
END.«eof»