XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafik: Schleifen zeichnen
declare a%,b%,c%,d%
window 30,30-600,700
rem ---------------------------------Kreisfunktion Standart---------------
def sinus(2) int(@mul(cos(@mul(div(@%(1),180),Pi())),@%(2)))Basis: Grad
def cosinus(2) int(@mul(sin(@mul(div(@%(1),180),Pi())),@%(2)))Basis: Grad
rem ---------------------------------Schleifen zeichnen---------------

while lt(a%,500)

    inc a%
    add b%,4
    let c%=add(a%,sinus(b%,50))
    let d%=add(200,cosinus(b%,50))
    setpixel c%,d%,0

endwhile

waitkey
waitkey