XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafische Spielerei mit Winkelfunktionen (Sinus und Cosinus)
cls
declare a%,b!,c%,d%,e%,f%
rem ---------------------------------Kreisfunktion Standard---------------
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 ---------------------------------Spyro zeichnen---------------

while lt(a%,2000)

    inc a%
    let b!=sub(b!,0.25)
    let c%=add(200,sinus(a%,50))
    let d%=add(200,cosinus(a%,50))
    let e%=add(c%,sinus(b!,70))
    let f%=add(d%,cosinus(b!,70))
    setpixel e%,f%,0

endwhile

waitkey