[Back to ANSI SWAG index] [Back to Main SWAG index] [Original]

    {
    > if you save as Pascal, and follow the instructions in the manual For
    > TheDraw everything will work fine. It is also much more efficient then
    > using normal ANSI-Files, since TheDraw-Pascal Files can be Compressed...
    }
    Var
      VideoSeg : Word;

    Procedure VisTheDrawImage(x, y, Depth, Width: Byte; Var Picture);
    Var
      c       : Byte;
      scrpos  : Word;
    begin
      Dec(y);
      Dec(x);
      ScrPos := y * (ScrCol Shl 1) + x * 2;
      For c := 0 to Depth-1 Do
        Move(Mem[Seg(Picture) : ofs(Picture) + c * (Width Shl 1)],
             Mem[VideoSeg : c * (ScrCol Shl 1) + ScrPos], Width Shl 1);
    end;

    {
    if you picture is not crunched you can use this routine to show them With
    VideoSeg has to be $B000 or $B800, then use the Vars from the generated
    picture and insert when you call that procedure.
    }

[Back to ANSI SWAG index] [Back to Main SWAG index] [Original]