Kaaren piirtäminen
Posted: Wed Jan 15, 2014 6:18 pm
Reenailin siniä ja kosinia illanratoksi ja tein tällaisen pienen "kulmapyörän" tai miksi vain haluatte sitä kutsua:
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
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
Merci, messieurs