'===========================================================================
' Subject: MAKES STIPPLED BOXES              Date: 03-29-99 (23:21)       
' Author:  Nick Kochakian                    Code: QB, QBasic, PDS        
' Origin:  nickk@worldnet.att.net          Packet: GRAPHICS.ABC
'===========================================================================
DECLARE SUB nk.stippled.box (x!, y!, size!, col!)
DECLARE SUB generate.tables ()

'NKSBOX.BAS
'
'Makes stippled boxes
'
'3/29/99 By: - Nick Kochakian -
'
'web:    http://come.to/dn3
'e-mail: nickk@worldnet.att.net

DIM SHARED SinTable(255) AS INTEGER
DIM SHARED CosTable(255) AS INTEGER

PRINT "Generating Sine / CoSine tables..."
generate.tables

RANDOMIZE TIMER
SCREEN 7

x = 0
y = 0
size = 1
col = 15

FOR i = 1 TO 15
    nk.stippled.box x, y, size, col

    size = size + 5
    col = col - 1
    x = x + size
    y = y + size
NEXT i

SUB generate.tables

PI = 3.14

FOR i = 1 TO 255
    SinTable(i) = SIN(i * PI / 128)
    CosTable(i) = COS(i * PI / 128)
NEXT i

END SUB

SUB nk.stippled.box (x, y, size, col)

FOR i = 1 TO 255
    PSET (x + (SinTable(i) * size), y + (CosTable(i) * size)), col
NEXT i

END SUB