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:

Ein zwei Fragen zum DRAW Befehl...

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
EverNoob



Anmeldungsdatum: 23.10.2005
Beiträge: 15

BeitragVerfasst am: 17.12.2005, 21:54    Titel: Ein zwei Fragen zum DRAW Befehl... Antworten mit Zitat

Hallo...lächeln

Ich habe ein Problem mit einer Spriteasgabe und Manipulationsroutine die ich geschrieben habe... Ich benutze Sprites die ich aus BMP´s in ein einfaches eigenes Format umconvertiert habe (mit Point abgetastet und die Farbinformationen in einem Array gespeichert) und wandel diese dann in Strings um. Diese gebe ich dann mit dem Draw Befehl aus... Das funktioniert soweit auch ganz gut... Doch sobald ich Versuche diese (Bilder/Strings) mit Hilfe der Drawoption "TA.." und einem Wert wie "10" zu drehen verliert das Bild irgendwie den Zusammenhalt.... Stellt man jedoch Werte wie 90,180 ein wird das Bild korrekt wieder gegeben...
Mit einem einfachen Dreieck konnte ich auch andere als die o.g. Werte nehmen ohne das das Dreieck gleich seinen Zusammenhalt verlor zwinkern


Code:

sub drawimage(positionx as integer,positiony as integer, transparenz as integer, rotationd as integer, scale as integer)
    ''Bilddaten in String umwandeln
    bx=positionx
    by=positiony
    rot$=str$(rotated)
    bx$=str$(positionx)
    by$=str$(positiony)
    bx1=positionx+bildw
    by1=positiony+bildh
    bx1$=str$(bx1)
    by1$=str$(by1)
    cr$=str$(bildw)
    rot$=str$(rotationd)
    if scale=0 then scale=1
    sc$=str$(scale)
    draw "S4"
    draw "BR"+bx$:draw "BD"+by$ ''Grafikcursor erreicht Startposition
    for h=by to by1-1
        for w=bx to bx1-1
        col$=str$(pixel(w-positionx,h-positiony))
        image$=image$+" C"+col$+" R"  ''Pixelfarbe setzen und Zeichnen
        next
    image$=image$+"BL"+cr$+"BD" ''CR einfügen
next
'Bildmitte errechnen und
'Grafikcursor zum Mittelpunkt
'bewegen
imagemidx=bildw/2:imagemidy=bildh/2
midx$=str$(imagemidx):midy$=str$(imagemidy)
image$=image$+"BR"+midx$+"BU"+midy$
'Bild ausgeben
draw "TA180"+image$

end sub


Vielleicht hat ja jemand ein Idee woran es liegen könnte verwundert


P.s.:Eine Sache habe ich noch vergessen... Sobald ich versuche das Bild mit Hilfe der "S" Option zu skalieren gibt es wieder nur Bildsalat.. Falls jemand auch dazu ne Idee hätte wäre das schön lächeln
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 18.12.2005, 00:14    Titel: Antworten mit Zitat

ganz einfach: Du speicherst einzelne Pixel und die bleiben es auch. Wenn du dein Bild jetzt drehst bekommts löcher weil die Pixel auf dem Bildschirm ja nicht gedreht werden können.. das Bildschirmraster bleibt immer gleich und wenn du da halt was "schiefe punkte" reinmalst gibts löcher. Dagegen kannst du nur was tun wenn du deine Sprites als ausgemalte kästen speicherst, sprich, du zeichnest einen Kasten (der hoffentlich geschlossen ist) und füllst das innere aus, damit gibts keine löcher. Das kann man halt aus bmps nicht wirklich auslesen.. wäre denke ich deutlich mehr arbeit, so was zu abstrahieren, als die sprites gleich als draw-befehl zu speichern..

oder du machst es eben so, dass du dir deine drehroutine selbst schreibst, aber andersrum als die FB-Routine, nicht "Ich male einen Pixel (x,y), um 30 grad gedreht wäre dass dann (a,b)" sondern du gehst vom Bildschirm aus, sprich schaust bei jedem pixel auf dem Bildschirm (damit sind die löcher weg) welcher punkt aus dem original ungedrehten sprite da hin muss, also "Dieser Pixel (a,b) entspricht um 30 grad zurückgedreht dem Punkt des Bildes (x,y)". Dann sind die löcher auch weg. Aber ist halt Arbeit..

Das Skalierproblem is das selbe: skalierst du ein Bild im Faktor 2 ist der Punkt (10,10) dann eben auf Punkt (20,20) aber es ist immernoch nur EIN Punkt und nicht 4 (2 auf 2). Deswegen gehts nicht.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
EverNoob



Anmeldungsdatum: 23.10.2005
Beiträge: 15

BeitragVerfasst am: 18.12.2005, 00:48    Titel: Antworten mit Zitat

Ok, jetzt wird einiges klarer happy Ich werd mal drüber schlafen.....Danke für den Denkanstoss...
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 -> Allgemeine Fragen zu FreeBASIC. 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