alderaan1972
Anmeldungsdatum: 04.01.2021 Beiträge: 3
|
Verfasst am: 04.01.2021, 17:00 Titel: Multiput, Eiern von drehenden kreisen entfernen. |
|
|
Ich versuch mit Multiput eine Scheibe zu Rotieren. Ich habe verschieden Grafiken ausprobiert. Unter Anderem auch ein Kreis mit ungerader Pixelzahl. Kann man irgendwie das Eiern des Kreises kompensieren?
Hier als Beispiel:
Code: |
#Include "multiput.bi"
SCREENRES 800, 900
Dim ScheibeLI As Any Ptr
Dim As Integer i,t
Circle (50,50),50,15
scheibeLI=ImageCreate(100,100)
Get (0,0)-(99,99),ScheibeLI
For t=1 To 30
For i=1 To 360 Step 20
Locate 1,1
Print i
multiPut,203,282,ScheibeLI,,,i,,,0
Sleep 10
Next i
Next t
ImageDestroy ScheibeLi
Sleep
|
Ich wäre für jede Hilfe dankbar. LG |
|