XProfan

Titre de la fenêtre "LIEBENSBAROMETER"
'(CL) Copyleft 2018-01 by P.Specht/vienne, völlig sans Gewähr et Gewehr!
Fenêtre Style 24
Déclarer Du!,je!,oracle!,Kuss!,Love!
Cls
usepen 0,5,255

Repeat

    Love!=Love!+0.3
    MoveTo 310,120

    whileloop 0,360

        oracle!=0.7+rnd()/3
        Kuss! = 0.01745329*&Boucle
        Du!  = Love!*sin(Kuss!)*sqr(sin(Kuss!))
        je! = Love!*(13*cos(Kuss!)-5*cos(2*Kuss!)-2*cos(3*Kuss!)-cos(4*Kuss!))
        LineTo 310+oracle!*16*(Kuss!<>0)*Du!,180-oracle!*je!

    endwhile

    lup:
    waitinput 1000

    si %clé

        font 2
        locate 13,10
        imprimer " Love: ";format$("%g",10*love!);" % "
        waitinput 5000
        end

    endif

    casenot %wmtimer:goto "lup"
    cls

until 0