'===========================================================================
' Subject: SCALING ROUTINE                   Date: 06-09-96 (12:44)       
' Author:  Martin Lindhe                     Code: QB, QBasic, PDS        
' Origin:  m-35728@mailbox.swipnet.se      Packet: GRAPHICS.ABC
'===========================================================================
'                     Scaling routine in quickbasic
'                   written in sleep by Martin Lindhe

' i wrote this one after i saw the DOOMFACE.BAS, included in a earlier issue
' of ABC. That routine was horrible, so i speeded up the code some thousands
' procents...

' e-mail: m-35728@mailbox.swipnet.se

DEFINT A-Z
SCREEN 13

DIM Picture(121)

FOR a = 1 TO 121
    READ Picture(a)
NEXT

FOR u = 1 TO 100
    a = 0
    FOR y = 1 TO 11 * u STEP u
        FOR x = 1 TO 11 * u STEP u
            a = a + 1
            LINE (x, y + u - 1)-(x + u, y), Picture(a), BF
        NEXT
    NEXT
NEXT u

DATA 00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,24,28,24,00,00,00,00
DATA 00,00,00,24,28,22,28,24,00,00,00
DATA 00,00,24,28,22,00,22,28,24,00,00
DATA 00,24,28,22,00,00,00,22,28,24,00
DATA 00,28,22,00,00,00,00,00,22,28,00
DATA 00,24,28,22,00,00,00,22,28,24,00
DATA 00,00,24,28,22,00,22,28,24,00,00
DATA 00,00,00,24,28,22,28,24,00,00,00
DATA 00,00,00,00,24,28,24,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00