DataMuseum.dk

top - metrics - download

    Length: 2754 (0xac2)
    Types: TextFile
    Names: »FIGUR11.PAS«

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

TextFile

PROGRAM figur11;
uses cpigraf;
VAR
  xykoor: ARRAY (.1970..1980.) OF REAL;
  i,x,oldx: INTEGER;
  fourx,foury: INTEGER;
  vindue2, vindue3: Wnd_id;

procedure colomn(x: INTEGER; xvalue, yvalue: REAL; color: byte);
VAR
  wndvalue: INTEGER;
BEGIN
  SelectViewport(wholescreen);
  WriteText(0,3,'x-akse:');
  WriteReal(9,3,xvalue,10,2);
  WriteText(0,4,'y-akse:');
  WriteReal(9,4,yvalue,10,2);

(*-----------------------------------------------------------------------------
Det n▶91◀ste vindue benyttes procedurer fra vinduesniveauet, som ikke er
med i den bin▶91◀re fil - derfor bruges filen med kildetekst
-----------------------------------------------------------------------------*)
  SelectViewport(vindue3);
  wndvalue:=_Wld_Towindowy(yvalue);
  Scr_Fillchar(x+wnd_x1,wnd_y1+1,x+wnd_x1+24,wndvalue+wnd_y1+1,color);
  SelectViewport(vindue2);
  wndvalue:=_Wld_Towindowx(xvalue);
  Wnd_Pencolor:=transp;
  Wnd_Drawline(wndvalue,0,wndvalue,wnd_maxy);
  Wnd_Drawline(wndvalue+1,0,wndvalue+1,wnd_maxy);
  Wnd_Drawline(wndvalue+2,0,wndvalue+2,wnd_maxy);
END;
    
BEGIN
  xykoor(.1970.):=200;
  xykoor(.1971.):=220;
  xykoor(.1972.):=260;
  xykoor(.1973.):=350;
  xykoor(.1974.):=399;
  xykoor(.1975.):=500;
  xykoor(.1976.):=567.1;
  xykoor(.1977.):=702.6;
  xykoor(.1978.):=643;
  xykoor(.1979.):=876;
  xykoor(.1980.):=978;

  GraphicScreen(IBM_high);
  fourx:=Scr_Maxx DIV 4;
  foury:=Scr_Maxy DIV 4;

  NewViewport(vindue2,2*fourx+8,Scr_Maxx,2*foury,Scr_Maxy);
  SetWindow(vindue2,1970,1980,200,1000);
  SetViewportcolor(vindue2,black,white);

  NewViewport(vindue3,0,2*fourx-8,8,3*foury-2);
  SetWindow(vindue3,1970,1980,200,1000);
  SetViewportcolor(vindue3,white,black);

  GraphMode;
  SelectViewport(vindue2);
  DrawAxis(1,100,true);
  MoveTo(1970,xykoor(.1970.));
  FOR x:=1971 TO 1980 DO
    DrawTo(x,xykoor(.x.));
  SelectViewport(vindue3);
  DrawAxis(0,100,false);
  x:=1970;i:=8;
  REPEAT;
    colomn(8,x,xykoor(.x.),$aa);
    oldx:=x;
(*-----------------------------------------------------------------------------
Readchar-proceduren l▶91◀ser p▶86◀ tastaturet hvilken tast som er aktiveret sidst.
Variablen Char2 indeholder v▶91◀rdien, mens variabelen Char1 bliver v▶91◀rdien Esc
hvis det er et kontroltegn ellers er den (0)
-----------------------------------------------------------------------------*)
    ReadChar;
    CASE Char2 OF
      Fleft: IF (x-1)>=1970 THEN x:=x-1;
      Fright: IF (x+1)<=1980 THEN x:=x+1;
    END;
    colomn(8,oldx,xykoor(.oldx.),0);
  UNTIL Char2=Fenter;
  SelectViewport(WholeScreen);
  DrawText(0,0,' - tryk <p> hvis du ▶9b◀nsker udskrift p▶86◀ printer');
  ReadChar;
  IF Char2 in (.'P','p'.) THEN Scr_Dump(IBM_graph);
  TextMode;
END.
«eof»