| |
| |
|
Rolf
Leinung | Hi,
I have a problem with the lighten one Bildes...
CompileMarkSeparation
proc hellmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
lighten(%HDC,0,0,array1&,2)
EndWhile
endproc
proc dunkelmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
darken(%HDC,0,0,array1&,2)
EndWhile
endProc
LoadBmp bild.bmp,0,0,0
dunkelmacher
sleep 3000
hellmacher
Related to the dunklen make works well.
now would like I the same Image again illuminate. with lighten works the unfortunately not
so How I the made have. can me there someone a piece of advice give?
friendly Regards,
Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Have strain tested, runs still perfect. loading your Prog The Dll Perhaps not?
and Please only lauffähige Codes testing! [web]https://XProfan.com/Help/textb/minimalbeispiel/[/web] |
|
| |
| |
| |
|
|
Rolf
Leinung | The Dll becomes loaded. otherwise would it itself Yes not abdunkeln.
the abdunkeln functions indeed. but the illuminate not. The screen becomes of course aufgehellt, To he knows is, but the image won't eingefadet.
friendly Regards,
Rolf |
|
| |
| |
| |
|
|
Rolf
Leinung | okay, here again as whole qc.
CompileMarkSeparationdeclare neu&
$I prospeed_Funktionen.inc
neu&=usedll(dll/ProSpeed.dll)
@Set(TrueColor, 1)
Window 0,0-800,600
proc hellmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
lighten(%HDC,0,0,array1&,2)
EndWhile
endproc
proc dunkelmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
darken(%HDC,0,0,array1&,2)
EndWhile
endProc
loadbmp grafik/bild.bmp, 0, 0;0
dunkelmacher
sleep 3000
hellmacher
sleep 3000
end
|
|
| |
| |
| |
|
|
Frank
Abbing | The function power in your code, what tappt im dunkeln should. You verdunkelst whom Bildschirn to a black expanse and make it then again heller To it knows is. During this Time go your Bilddaten naturally kontinuierlich changed, so the Ausgangsbild long ago lost is. Lighten() power the image always heller, and with of/ one black Ausgangsfläche becomes it accordingly knows!
If you The dunkle expanse again to a Image illuminate want, must You AlphaTrans() or SemiTrans() use. in the guide find You Examples moreover.
and Please Sourcecode here in Codetags settle! so, only without space:
[ code] here standing Source [ /code]
CompileMarkSeparationfxhandle1&=LoadExtBmp(0,%hdc) Handle 1: leere Bitmap erzeugen
name$=Bild.bmp
fxhandle2&=LoadExtBmp(addr(name$),%hdc) Handle 2: Bild laden, z.B. 640x480 groß
CopyExtBmp(fxhandle1&,0,0,640,480,%HDC,0,0,0) Inhalt des Profanfensters nach Handle 1
bytearray1&=InitExtFX(fxhandle1&) Byte-Array zu Handle 1 erzeugen
bytearray2&=InitExtFX(fxhandle2&) Byte-Array zu Handle 2 erzeugen
WhileLoop 100
SemiTrans(%HDC,0,0,bytearray2&,bytearray1&,&loop) Das Bild wird in 100 Schritten in die
Wend Hintergrundgrafik eingeblendet
FreeExtFX(bytearray1&) Byte-Array 1 wieder freigeben
FreeExtFX(bytearray2&) Byte-Array 2 wieder freigeben
FreeExtBmp(fxhandle1&) Handle 1 wieder freigeben
FreeExtBmp(fxhandle2&) Handle 2 wieder even
|
|
| |
| |
| |
|
|
Rolf
Leinung | thanks for rapid response.
can it his the itself there somewhere another Error befindet?
CompileMarkSeparationdeclare fxhandle1&, name$,bytearray1&, fxhandle2&,bytearray2&, neu&
$I incprospeed_Funktionen.inc
neu&=usedll(dll/ProSpeed.dll)
@Set(TrueColor, 1)
Window 0,0-800,600
fxhandle1&=LoadExtBmp(0,%hdc)Handle 1: leere Bitmap erzeugen
name$=bild.bmp
fxhandle2&=LoadExtBmp(addr(name$),%hdc)Handle 2: Bild laden, z.B. 640x480 groß
CopyExtBmp(fxhandle1&,0,0,640,480,%HDC,0,0,0)Inhalt des Profanfensters nach Handle 1
bytearray1&=InitExtFX(fxhandle1&)Byte-Array zu Handle 1 erzeugen
bytearray2&=InitExtFX(fxhandle2&)Byte-Array zu Handle 2 erzeugen
WhileLoop 100
SemiTrans(%HDC,0,0,bytearray2&,bytearray1&,&loop)Das Bild wird in 100 Schritten in die
EndWhile Hintergrundgrafik eingeblendet
FreeExtFX(bytearray1&)Byte-Array 1 wieder freigeben
FreeExtFX(bytearray2&)Byte-Array 2 wieder freigeben
FreeExtBmp(fxhandle1&)Handle 1 wieder freigeben
FreeExtBmp(fxhandle2&)Handle 2 wieder | 02/21/08 ▲ | |
|
| |
|
|
Rolf
Leinung | your Error stick in this row:
fxhandle1&=LoadExtBmp(0,%hdc)lever 1: vain Bitmap produce
> an vain Bitmap beget You but with CreateExtBmp().
Hello Frank,
my Error standing in your Prospeed-guide very so To SemiTrans 
Perhaps with one Update time adjust, eh there yet More drüber stumbling, The similar little Idea having How I 
friendly Regards,
Rolf |
|
| |
| |
| |
|
|
 | @Rolf: it would More as polite if you your Postings überarbeitest and the code-day How of Frank already declared correctly anwendest. If it any create Better get going with you too klappen.
Mfg, Chuck Norris. (respect my RoundHouseKick which you pulverisiert by the mieseste on the world existing Kanalisation hunt can in the You distributed your übriges to be there fristen would!  ) |
|
| |
| |
| |
|
|
Frank
Abbing |
my Error standing in your Prospeed-guide very so To SemiTrans
Perhaps with one Update time adjust, eh there yet More drüber stumbling, The similar little Idea having How I
Ah now Yes.
i was fälschlicherweise of LoadExtImage() gone out... LoadExtBmp() must as first Parameter a zero imply. in the drop corresponds to The Size the new Bitmap The the maximalen Size the current Bildschirms (%maxx, %maxy). The Size the others Bitmap but totals another and therefore crash it.
i'll my Help dahingehen Change, thanks! be Yes anyhow with Version 3.0 the ProSpeed engage. |
|
| |
| |
| |
|
(1.320)
Deutsch
English
Français
Español
Italia