Muttonhead
Anmeldungsdatum: 26.08.2008 Beiträge: 562 Wohnort: Jüterbog
|
Verfasst am: 07.03.2009, 14:59 Titel: |
|
|
Hm... ich habs irgendwo mal so ähnlich gemacht:
(nur mit FreeBASIC -Befehlen)
nicht sehr elegant aber es geht
du musst dir ein kleines Tool schreiben,das...
ein Bild laden und das Image(genauer die Farbwerte) als DATA Zeilen abspeichern kann
sowas in der Art hier:
Code: | screen 19,32
dim as integer ptr img
dim as integer imgw,imgh
imgw=40
imgh=40
img=imagecreate(imgw,imgh)
if img then
dim as integer i,k,ff
bload "test.bmp",img
put (0,0),img
ff=freefile
open "Datazeilen.bas" for output as ff
for k=0 to imgh-1
print #ff,"DATA ";
for i=0 to imgw-1
print #ff,point(i,k,img);
if i<imgw-1 then print #ff,","; else print #ff,
next i
next k
close ff
sleep
imagedestroy img
end if
end |
in deinem eigentlichen Programmcode später
musst du dann die Datazeilen aus "Datazeilen.bas" ans Ende kopieren,eventuell mit
einem Label versehen,ein Image erzeugen und die Datawerte
mittels (restore,)read und pset ins Image pixeln
Code: | screen 19,32
dim as integer ptr img
dim as integer imgw,imgh
imgw=40
imgh=40
img=imagecreate(imgw,imgh)
if img then
restore bild
dim as integer i,k,col
for k=0 to imgh-1
for i=0 to imgw-1
read col
pset img,(i,k),col
next i
next k
put (0,0),img
sleep
imagedestroy img
end if
end
'Achtung Datablock unvollständig!!!
bild:
DATA -1712480,-3424427,-1251938,-1251714,-1318287,-1581236,-1844928,-1515963,-1119896,-1909642,-592725,-4672190,-2106983,-988212,-1250859,-1119012,-1316642,-1448228,-1514276,-1580067,-1514016,-1382172,-1250585,-1184536,-1382173,-1842527,-1447785,-1381483,-790121,-461685,-4936141,-8357376,-5002226,-2502597,-1384603,-1384324,-1449338,-856672,-395327,-395050
'das geht jetzt hier munter so weiter............... :D |
Um einen ellenlangen DATA-Block wirst du wohl nicht rumkommen
Mutton
Zuletzt bearbeitet von Muttonhead am 07.03.2009, 16:02, insgesamt einmal bearbeitet |
|