Kaaren piirtäminen

[Spacha]

Reenailin siniä ja kosinia illanratoksi ja tein tällaisen pienen "kulmapyörän" tai miksi vain haluatte sitä kutsua:

Code: Select all

SCREEN 800,600

kx=ScreenWidth()/2
ky=ScreenHeight()/2

ClsColor cbWhite

kulma = 45

Repeat
    If LeftKey() Then
        kulma=kulma+1
    ElseIf RightKey() Then
        kulma=kulma-1
    EndIf
    
    If kulma > 360 Then
        kulma=0
    ElseIf kulma < 0 Then
        kulma=360
    EndIf

    Color cbBlack
    'kehä
    Circle kx-200,ky-200,400,0

    Color cbDarkBlue
    'oikea kylki
    Line kx, ky, kx+200, ky
    'vasen kylki
    Line kx, ky, kx+Cos(kulma)*200,ky+Sin(kulma)*200

    kulma_str$ = kulma+"°"
    
    'kulmakaari
    Color cbBlack
    For i = 0 To kulma
        Dot kx+Cos(kulma-i)*30,ky+Sin(kulma-i)*30
    Next i

    'kulmalukema
    Text kx+Cos(kulma/2)*60-TextWidth(kulma_str)/2,ky+Sin(kulma/2)*60-TextHeight(kulma_str)/2, kulma_str
    DrawScreen
Forever

Virheitä varmasti löytyy, tein tämän aika nopeasti. Ongelma on kuitenkin, miten CB:ssa olisi järkevintä toteuttaa tuo kulmakaareksi kutsumani kaari, ja päättyvä kaari yleensäkin, valmista komentoa kun ei ole(?). Toteutin tuon Dot -komennon avulla, mutta en usko että se on kaikkein suositelluin ja kompaktein tapa, eikä se näytäkään niin hyvältä kuin mahdollisesti voisi.

Merci, messieurs

[MrMonday]

Valitettavasti en pääse testaamaan koodia, mutta mitä tuota katselin, niin pisti silmään seuraava toteutus:

Code: Select all

    If kulma > 360 Then
        kulma=0
    ElseIf kulma < 0 Then
        kulma=360
    EndIf

Coolbasicista löytyy funktio "WrapAngle()", mikä pitää huolen, että arvo pysyy 0-360 sisällä. Myöskin systeemissäsi tulee yksi aste liikaa. Ja merkkijonomuuttuja "kulma_str$" on ainakin kyseisessä ohjelmassa turha, sillä "Text"-komennolle voi suoraan antaa "kulma_str"-muuttujan sijaan tuon "kulma+"°" ". Vaikka nämä vinkit eivät itse kysymykseesi vastanneetkaan, niin toivottavasti edes jotain hyötyä oli

Menestystä koodailun parissa!

[Spacha]

Kiitos kuitenkin Eilen illalla vaihdoinkin tuon wrapAnglen, mutten viitsinyt päivittää sitä tänne.

Ja merkkijonomuuttuja "kulma_str$" on ainakin kyseisessä ohjelmassa turha, sillä "Text"-komennolle voi suoraan antaa "kulma_str"-muuttujan sijaan tuon "kulma+"°" ".

Tuo olikin uusi tieto, pitääpäs käydä vaihtaan.

Myöskin systeemissäsi tulee yksi aste liikaa.

Siinähän tuli siten, että pienin kulma oli 0 ja suurin 360, joten minusta se ei haitannut (vaikkakin 0 ja 360 olivat päällekkäin)

[atomimalli]

Lineä dotin sijaan käyttäen voisi koosta riippuen hyppiä asteita yli sopivasti ja tulee siististimpi viiva. Linear mindsissä tuli nopeussyistä hirmu tarkkaan säädettyä kaava sille, miten monesta pätkästä milläkin etäisyydellä oleva viiva koostuu, jotta ne taipuisivat sulavan näköisesti, mutta olisivat myös tarpeeksi nopeita.
Samaan tapaan voisi kaarelle keksiä kaavan käytettävien viivojen määrään tai hyppypituuteen.