'***************************************************************************
'
' Lupetest f�r PowerBASIC 3.0-3.2
'
' PDS Version: (c) BUMMI 12/95 (Thomas Wassermann)
' PB  Version: (c) Thomas Gohel (ein paar unwichtige �nderungen zwecks PB)
'
'***************************************************************************

DEFINT A-M
SCREEN 12
DIM maske1%(127,127)
DIM Maske2%(127,127)

    FOR i = 0 TO 127
        FOR j = 0 TO 127
            z = (i - 64) ^ 2 + (64 - j) ^ 2
                IF z < 4096 THEN
                    maske1(i, j) = (i - 64) / (1.6 - z / 8000)
                    maske2(i, j) = (j - 64) / (1.6 - z / 8000)

'mit den Werten 1.6 und 8000 kann gespielt werden um die Vergroesserung
'anzupassen

                ELSE
                    maske1(i, j) = 0
                    maske2(i, j) = 0
                END IF
        NEXT
    NEXT
FOR leer = 1 TO 15
    COLOR leer
    PRINT "Ein Testbildchen erstellen"
NEXT
FOR leer = 1 TO 15
    COLOR leer
    LOCATE 10 + leer, 40
    PRINT "Ein Testbildchen erstellen"
NEXT

a1 = 0: b1 = 0: aa1 = 40 * 8: bb1 = 10 * 16

        FOR leerx = 0 TO 127
            FOR leery = 0 TO 127
                ip1 = maske1(leerx, leery)
                ip2 = maske2(leerx, leery)
                IF ip1 OR ip2 THEN
                    bp = POINT(a1 + 64 + ip1, b1 + 64 + ip2)
                    PSET (leerx + aa1, leery + bb1), bp
                END IF
            NEXT
        NEXT