'===========================================================================
' Subject: PICTURE SCALING                   Date: Unknown Date (00:00:00)
' Author:  Unknown Author(s)                 Code: QB, QBasic             
' Keys:    PICTURE,SCALING                 Packet: EGAVGA.ABC
'===========================================================================
DECLARE SUB DrawPicture ()

SCREEN 9   'adjust for your system type

LINE (0, 0)-(639, 349), 11, BF
x1 = 0
x2 = 1020
y1 = 0
y2 = 764
xPos% = 10
yPos% = 10
i% = 1

DO
    ' define viewport
        VIEW (xPos%, yPos%)-(xPos% + 200, yPos% + 155), 0, 15

    ' define logical coordinates
        WINDOW SCREEN (x1, y1)-(x2 / i%, y2 / i%)

        DrawPicture
        i% = i% + 1
        xPos% = xPos% + 210
        IF i% = 4 THEN xPos% = 10: yPos% = 175
LOOP UNTIL i% = 7
END

DATA 68, 4, 200, 76, 52, 12, 112, 44, 128, 52, 172, 76, 128, 52
DATA 68, 84, 112, 44, 84, 60, 128, 68, 100, 84, 68, 36, 96, 52
DATA 128, 68, 154, 84, 128, 68, 128, 116, 130, 54, 130, 68, 68
DATA 4, 52, 12, 172, 76, 142, 90, 142, 76, 142, 108, 142, 108
DATA 200, 76, 200, 76, 200, 92, 200, 92, 68, 164, 128, 116, 84
DATA 140, 52, 12, 52, 154, 52, 154, 68, 164, 68, 164, 68, 100
DATA 68, 36, 68, 84, 84, 45, 84, 76, 84, 109, 84, 140, 68, 100
DATA 96, 116, 84, 124, 112, 108, 68, 84, 128, 116, 85, 75, 113
DATA 91, 112, 77, 112, 108, 84, 119, 92, 115, 142, 86, 150, 82
DATA 180, 66, 186, 62, 186, 62, 236, 90, 236, 90, 68, 184, 68
DATA 184, 16, 154, 16, 154, 52, 133, 16, 154, 16, 160, 16, 160
DATA 68, 190, 68, 190, 68, 184, 68, 190, 236, 96, 236, 96, 236
DATA 90

SUB DrawPicture STATIC
        RESTORE
        FOR i% = 1 TO 40        ' read coordinates
                READ x1%, y1%, x2%, y2%
                LINE (x1%, y1%)-(x2%, y2%), 1
        NEXT

        PAINT (56, 20), 1, 1: PAINT (136, 64), 1, 1
        PAINT (120, 80), 1, 1: PAINT (152, 110), 14, 1
        PAINT (76, 48), 14, 1: PAINT (124, 60), 14, 1
        PAINT (68, 12), 2, 1: PAINT (80, 84), 2, 1
        PAINT (92, 128), 2, 1: PAINT (36, 150), 12, 1
        PAINT (150, 125), 12, 1: PAINT (80, 120), 14, 1
        PAINT (150, 125), 12, 1: PAINT (150, 142), 14, 1
        PAINT (88, 118), 12, 1: PAINT (144, 86), 12, 1
        PAINT (100, 120), 2, 1: PAINT (165, 90), 2, 1
END SUB