DataMuseum.dk

top - metrics - download

    Length: 3309 (0xced)
    Types: TextFile
    Names: »FIGUR7.PAS«

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

TextFile

PROGRAM figur7;
uses crt, cpigraf, cpifont;
VAR 
  Vindue1,Vindue2,Vindue3,Vindue4: wnd_id;
  s			: str80;
  err, insert, change	: BOOLEAN;
  i			: INTEGER;
  r                     : REAL;


BEGIN
  GraphicScreen(IBM_high);

(*----------------------------------------------------------------------------
Initialisering af CPI-font og indl▶91◀sning af to grafiske fonte.
----------------------------------------------------------------------------*)

  InitFont;
  ReadFont(1,'block.set',err);
  ReadFont(2,'oldtime.set',err);

(*----------------------------------------------------------------------------
Definition af f▶9b◀rste vindue: der tegnes en ramme om vinduet, der skrives en
overskrift i det og forgrundsfarven s▶91◀ttes til sort 
mens bagrundsfarven til hvid.
----------------------------------------------------------------------------*)

  NewtextViewport(Vindue1,0,35,0,15);
  SetViewportType(Vindue1,(.wwriteframe.));
  SetViewportHeader(Vindue1,'Overskrift vindue A');
  SetViewportColor(Vindue1,black,white);

(*----------------------------------------------------------------------------
Andet vindue defineres med en tegnet ramme omkring det. For- og bagrundsfarven
er standard.
----------------------------------------------------------------------------*)

  NewtextViewport(Vindue2,12,35,10,20);
  SetViewportType(Vindue2,(.wwriteframe.));

(*----------------------------------------------------------------------------
Tredie vindue defineres som en "bitmap" m▶9b◀nster. Det betyder at der indl▶91◀ses et
bin▶91◀rt m▶9b◀nster fra disken til vinduet. Dette bin▶91◀re m▶9b◀nster kan laves med
et tegneprogram som PcPaint Plus fra firmaet Mouse Systems (C), eller det kan
laves med en s▶86◀kaldt "capture" program, som er istand til at gemme et hvilket
som helst grafisk billede fra sk▶91◀rmen. Et s▶86◀dan "public domain" captureprogram
findes p▶86◀ CPI's elektroniske opslagstavle.
----------------------------------------------------------------------------*)

  NewViewportbitmap(Vindue3,0,0,'whale.clp',err);
  SetViewportHeader(Vindue3,'To hvaler - mor med barn');

(*----------------------------------------------------------------------------
Fjerde vindue defineres med en overskrift. Samtidigt defineres skaleringen 
af vinduet.
----------------------------------------------------------------------------*)

  NewViewport(Vindue4,0,400,0,150);
  SetViewportHeader(Vindue4,'Tegning af koordinatsystem');
  SetWindow(Vindue4,0,10,-1,1);

  GraphMode;
  SelectViewport(Vindue4);
  DrawAxis(1,0.25,false);
  MoveTo(0,0);
  r:=0.0;
  WHILE r<10.0 DO BEGIN DrawTo(r,SIN(r)); r:=r+0.1 END;
  SelectViewport(Vindue3);
  DrawFrame;
  MoveViewport(400,100);
  delay(500);
  SelectViewport(Vindue1);
  SelectFont(2);
  FOR i:=0 TO 5 DO WriteFont(0,i,'Vindue er A');
  MoveViewport(0,0);
  FOR i:=1 TO 3 DO MoveViewport(i*8,i*5);
  SelectViewport(Vindue2);
  SelectFont(1);
  FOR i:=0 TO 5 DO WriteFont(0,i,'Vindue er B');
  HideViewport(Vindue2);
  delay(500);
  HideViewport(Vindue1);
  delay(500);
  SelectViewport(Vindue2);
  delay(500);
  SelectViewport(Vindue1);
  delay(500);
  SelectViewport(Vindue2);
  delay(500);
  CloseViewport(Vindue2);
  CloseViewport(Vindue1);
  CloseViewport(Vindue3);
  delay(500);
  TextMode;
END.
«eof»