WritePixel/ReadPixel Problem

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	ToeB Betreff: WritePixel/ReadPixel Problem	So, Feb 20, 2011 16:27 Antworten mit Zitat
Hallo ! Ich hab mir eine Funktion geschrieben die eigl. ein bestehendes Bild nehmen soll und es dann in ein neues Bild zweimal reinkopieren soll, doch da kommt nur sch** bei raus (So gestreiftes Bild und in komischen Farben). Könnt ihr mir villeicht sagen ob ich da was falsch verstanden habe ? BlitzMax:** [AUSKLAPPEN] [EINKLAPPEN] Function CreateMirror:TImage( image:TImage, frame:Int=0 ) Local newimage:TImage = CreateImage( image.width, image.height, 2, DYNAMICIMAGE ) Local pix:TPixmap = LockImage( Image, frame ) Local newpix:TPixmap[2] newpix[0] = LockImage( Image, 0 ) newpix[1] = LockImage( Image, 1 ) 'newpix[0].ClearPixels( $FF00FF00 ) 'newpix[1].ClearPixels( $FF00FF00 ) For Local i:Int = 0 To image.width-1 For Local j:Int = 0 To image.height-1 Local pixc:Int = ReadPixel( pix, i, j ) WritePixel( newpix[0], i, j, pixc ) WritePixel( newpix[1], i, j, pixc ) Next Next UnlockImage( newimage, 1 ) UnlockImage( newimage, 0 ) UnlockImage( Image, frame ) Return newimage End Function Danke schonmal ! mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Betreff: WritePixel/ReadPixel Problem

So, Feb 20, 2011 16:27
Antworten mit Zitat

Hallo !

Ich hab mir eine Funktion geschrieben die eigl. ein bestehendes Bild nehmen soll und es dann in ein neues Bild zweimal reinkopieren soll, doch da kommt nur sch**** bei raus (So gestreiftes Bild und in komischen Farben). Könnt ihr mir villeicht sagen ob ich da was falsch verstanden habe ?
BlitzMax: [AUSKLAPPEN]

Function CreateMirror:TImage( image:TImage, frame:Int=0 )
	
	Local newimage:TImage = CreateImage( image.width, image.height, 2, DYNAMICIMAGE )
	Local pix:TPixmap = LockImage( Image, frame )
	Local newpix:TPixmap[2]
	newpix[0] = LockImage( Image, 0 )
	newpix[1] = LockImage( Image, 1 )
	
	'newpix[0].ClearPixels( $FF00FF00 )
	'newpix[1].ClearPixels( $FF00FF00 )
	
	For Local i:Int = 0 To image.width-1
		
		For Local j:Int = 0 To image.height-1
			
			Local pixc:Int = ReadPixel( pix, i, j )

			WritePixel( newpix[0], i, j, pixc )
			WritePixel( newpix[1], i, j, pixc )
			
		Next 
	Next 
	
	UnlockImage( newimage, 1 )
	UnlockImage( newimage, 0 )
	UnlockImage( Image, frame )
	
	
	
	Return newimage
	
End Function

Danke schonmal !

mfg ToeB

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

	DaysShadow	So, Feb 20, 2011 16:53 Antworten mit Zitat
BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] newpix[0] = LockImage( Image, 0 ) newpix[1] = LockImage( Image, 1 ) In BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] newpix[0] = LockImage( newImage, 0 ) newpix[1] = LockImage( newImage, 1 ) ändern. Du hast die übergebene Pixmap des Bildes ja schon in pix gespeichert, du brauchst ja die beiden Pixmaps aus den beiden Frames des neuen Bildes.
Blessed is the mind too small for doubt

DaysShadow

So, Feb 20, 2011 16:53
Antworten mit Zitat

BlitzMax: [AUSKLAPPEN]

	newpix[0] = LockImage( Image, 0 )
	newpix[1] = LockImage( Image, 1 )

In

BlitzMax: [AUSKLAPPEN]

	newpix[0] = LockImage( newImage, 0 )
	newpix[1] = LockImage( newImage, 1 )

ändern.

Du hast die übergebene Pixmap des Bildes ja schon in pix gespeichert, du brauchst ja die beiden Pixmaps aus den beiden Frames des neuen Bildes.

Blessed is the mind too small for doubt

	ToeB	So, Feb 20, 2011 19:35 Antworten mit Zitat
Ah danke hatte ich ganz übersehen mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

So, Feb 20, 2011 19:35
Antworten mit Zitat

Ah danke hatte ich ganz übersehen Embarassed

mfg ToeB

	BlitzMoritz	So, Feb 20, 2011 19:45 Antworten mit Zitat
Die Pixmap.Paste-Methode kennst du aber, oder? Ansonsten, wenn du noch mehr Service suchst, schau doch 'mal hier 'rein.

BlitzMoritz

So, Feb 20, 2011 19:45
Antworten mit Zitat

Die Pixmap.Paste-Methode kennst du aber, oder?
Ansonsten, wenn du noch mehr Service suchst, schau doch 'mal hier 'rein.

	ToeB	So, Feb 20, 2011 21:10 Antworten mit Zitat
Ah schöne Funktion ! Kann ich aber hier nicht gebrauchen weil ich nicht nur ein Bild in zwei neue Pixmaps eintragen möchte, sondern es auch noch manipulieren. Wenn ich deine Paste-Funktion benutzen würde müsste es zweimal die Pixmaps durchgehen und das wäre unnötig Danke trotzdem ! mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

So, Feb 20, 2011 21:10
Antworten mit Zitat

Ah schöne Funktion !

Kann ich aber hier nicht gebrauchen weil ich nicht nur ein Bild in zwei neue Pixmaps eintragen möchte, sondern es auch noch manipulieren. Wenn ich deine Paste-Funktion benutzen würde müsste es zweimal die Pixmaps durchgehen und das wäre unnötig Wink

Danke trotzdem !

mfg ToeB

Übersicht

BlitzMax, BlitzMax NG

Allgemein

Nach Oben

BlitzBasic Portal

WritePixel/ReadPixel Problem

ToeB

Betreff: WritePixel/ReadPixel Problem

DaysShadow

ToeB

BlitzMoritz

ToeB