Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Multiput, Eiern von drehenden kreisen entfernen.

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Bibliotheken
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
alderaan1972



Anmeldungsdatum: 04.01.2021
Beiträge: 3

BeitragVerfasst am: 04.01.2021, 17:00    Titel: Multiput, Eiern von drehenden kreisen entfernen. Antworten mit Zitat

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
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Bibliotheken Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz