DataMuseum.dk

top - metrics - download

    Length: 2573 (0xa0d)
    Types: TextFile
    Names: »FIGUR13.PAS«

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

TextFile

PROGRAM figur12;
uses cpigraf, cpifont;
VAR
  s                     : str80;
  err                   : BOOLEAN;
  i,j                   : INTEGER;

BEGIN
  GraphicScreen(IBM_high);

(*-----------------------------------------------------------------------------
Initialisering af CPI-font modulet og fire fonte indl▶91◀ses som font nr 1 - 4.
Font nr 0 er automatisk systemfonten.
-----------------------------------------------------------------------------*)

  InitFont;
  ReadFont(1,'block.set',err);
  IF err THEN BEGIN TextMode; HALT; END;
  ReadFont(2,'oldtime.set',err);
  IF err THEN BEGIN TextMode; HALT; END;
  readfont(3,'russell.set',err);
  if err then BEGIN TextMode; HALT; END;
  readfont(4,'cyber.set',err);
  IF err THEN BEGIN TextMode; HALT; END;
  readfont(5,'move.set',err);
  IF err THEN BEGIN TextMode; HALT; END;

  s:='En snegl p▶86◀ vejen er tegn p▶86◀ regn i Spanien';

  GraphMode;

(*-----------------------------------------------------------------------------
N▶86◀r ikke andet er angivet benyttes automatisk hele sk▶91◀rmen som det aktive
vindue. Med s▶91◀tningen WriteFont opdeles det aktive vindue i fiktive linier
som hver kan indeholde en tekstlinie af den aktive font.
-----------------------------------------------------------------------------*)

  SelectFont(0);
  WriteFont(0,0,s);
  SelectFont(1);
  WriteFont(0,1,s);
  SelectFont(4);
  WriteFont(0,2,s);
  SelectFont(2);
  WriteFont(0,2,s);
  SelectFont(3);
  WriteFont(0,3,s);

(*-----------------------------------------------------------------------------
Nedenfor et eksempel p▶86◀ animation med et enkelt tegn i en font. Forgrunds-
farven i vinduet s▶91◀ttes til transparent, hvilket betyder et sorte pixels bliver
hvide og omvendt.
S▶91◀tningen DrawFont skriver en tekst i et enkelt skaleret punkt i det aktive
vindue p▶86◀ sk▶91◀rmen. Med programmet CHAREDIT kan man lave sine egne fonte og p▶86◀
den m▶86◀de er en vis form for animation mulig. Dette er vist med en snegl
(tegn nr 33) og en person (tegn nr 34 - 36). Denne font er lavet med CHAREDIT.
-----------------------------------------------------------------------------*)
  SelectFont(5);
  wnd_pencolor:=transp;
  FOR i:=0 TO 180 DO BEGIN
    drawFont(i*3,i,chr(33));
    drawFont(i*3,i,chr(33));
  end;
  FOR i:=1 TO 75 DO BEGIN
    DrawFont(i*8,0,chr(34));
    DrawFont(i*8,0,chr(34));
    DrawFont(i*8,0,chr(35));
    DrawFont(i*8,0,chr(35));
    DrawFont(i*8,0,chr(36));
    DrawFont(i*8,0,chr(36));
  END;

  writetext(0,24,'Tryk <retur>');
  ReadChar;
  TextMode;
END.
«eof»