'===========================================================================
' Subject: ENLARGE A GRAPHIC AREA            Date: 01-07-98 (19:26)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  NickK@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
'-------------------------
'ENLARGE
'-------------------------
'10/20/97 By: - Nick Kochakian -
'
'This will enlarge a graphic area whose color is 255
'* NOTE: *
'This program was initally designed to enlarge text!
'
'If you have any comments or questions please e-mail me at:
'nickk@worldnet.att.net
'
'check out my web page: http://www.geocities.com/siliconvalley/heights/5914/

SCREEN 13

LOCATE 1, 1: COLOR 255: PRINT "A"

x1 = 0  'x and y(s) for the box "pset"
y1 = 0  '""
x2 = .1 '""
y2 = .1 '""

xstart = 0
xmax = 8

x = start 'Where the x and y pixel read begin
y = 0

scale = 1 'Don't change this

gfx.x = 8
gfx.y = 8

gfx.size = gfx.x * gfx.y 'Just like DIMing an array.

xdraw.start = 100
xdraw.max = xdraw.start + gfx.x * scale
xdraw = xdraw.start 'Location of the scaled drawing... Make sure xdraw dosen't
ydraw = 40          'go under 100

your.color = 15

FOR i = 0 TO gfx.size
IF POINT(x, y) = 255 THEN
LINE (x1 + xdraw * scale, y1 + ydraw * scale)-(x2 + xdraw * scale + scale, y2 + ydraw * scale + scale), your.color, BF
END IF
x = x + 1
xdraw = xdraw + 1
IF x >= xmax THEN x = 0: y = y + 1
IF xdraw >= xdraw.max THEN xdraw = xdraw.start: ydraw = ydraw + 1 + scale
NEXT i

COLOR 15