home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / PCX_W.ZIP / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-21  |  676b  |  45 lines
  1. program WritePCX;
  2. uses
  3.     Graph, PCX_W,crt;
  4. procedure DrawHorizBars;
  5.  
  6. var
  7.    i, Color : word;
  8.  
  9. begin
  10. cleardevice;
  11. Color := 15;
  12. for i := 0 to 15 do
  13. begin
  14. setfillstyle (solidfill,Color);
  15. bar (0,i*30,639,i*30+30);
  16. dec (Color);
  17. end;
  18. end;
  19. var
  20. NameW : Str80;
  21. Gd,
  22. Gm    : integer;
  23. begin
  24. writeln;
  25. if (ParamCount = 0) then
  26. begin
  27. write ('Enter name of PCX picture file to write: ');
  28. readln (NameW);
  29. writeln;
  30. end
  31. else
  32. begin
  33. NameW := paramstr (1);
  34. end;
  35. if (Pos ('.', NameW) = 0) then
  36. NameW := Concat (NameW, '.pcx');
  37. Gd:=VGA;
  38. Gm:=VGAhi;
  39. initgraph (Gd,Gm,'c:\tp\bgi');
  40. DrawHorizBars;
  41. readln;
  42. Write_PCX (NameW);
  43. closegraph;
  44. textmode (co80);
  45. end.