Keskustelu: Koodit: QB64: Ellipsin kääntely

REM QB64:lla ja pienillä muutoksilla QB:llä toimiva ohjelma, jolla on helppo käännellä ellipsejä.

SCREEN 12
_FULLSCREEN

' Komento X, Y, Leveys, Korkeus, Kääntökulma, Väri

ELLIPSI 200, 125, 75, 30, 70, 12
ELLIPSI 100, 175, 50, 80, 45, 14


SUB ELLIPSI (VanhaOrigoX AS SINGLE, VanhaOrigoY AS SINGLE, Lev AS SINGLE, Kor AS SINGLE, Kulma AS SINGLE, Vari AS INTEGER)

    COLOR Vari

    KosiniKulma = COS(Kulma)
    SiniKulma = SIN(Kulma)

    FOR Aste = 0 TO 360
        ' asteet radiaaneiksi
        Kulma = _D2R(Aste)

        X = Lev * COS(Kulma)
        Y = Kor * -SIN(Kulma)

        UusiOrigoX = (X * KosiniKulma) - (Y * SiniKulma)
        UusiOrigoY = (Y * KosiniKulma) + (X * SiniKulma)

        PSET (UusiOrigoX + VanhaOrigoX, UusiOrigoY + VanhaOrigoY)
        LINE STEP(0, 0)-(UusiOrigoX + VanhaOrigoX, UusiOrigoY + VanhaOrigoY)
    NEXT Aste
END SUB