| Wo sind die vielen schönen Codes? von ??? |
| Ich vermisse viele schöne Sachen hier im Code-Archiv. Zum Beispiel das Original von diesem wie üblich von mir verschlimmbesserten Code: [code:1:8f61f50097] Graphics 1024,768,16,1 windowsverzeichnis$= SystemProperty$("WINDOWSDIR") Global bild = LoadImage(windowsverzeichnis$ +"setup.bmp") Global frei = CreateImage(1024,768) SetBuffer BackBuffer() ClsColor 0,0,64 MoveMouse ImageWidth(bild),ImageHeight(bild) While Not KeyHit(1) x2=x1: x1=MouseX() y2=y1: y1=MouseY() If x1<>x2 Or y1<>y2 Then Cls:SKALIERUNG bild,BackBuffer(),0,0,x1,y1:Flip Wend WaitKey() FreeImage frei FreeImage bild End Function SKALIERUNG(quelle,ziel,x,y,bz,hz) ba=ImageWidth (quelle) ha=ImageHeight(quelle) qbuffer=ImageBuffer(quelle) fbuffer=ImageBuffer(frei) xfaktor# =Float#(ba)/Float#(bz) yfaktor# =Float#(ha)/Float#(hz) If bz=0 Or hz=0 Or ba=0 Or ha=0 Then Return For i=0 To bz-1: CopyRect i*xfaktor#, 0, 1,ha,i, 0,qbuffer,fbuffer: Next For i=0 To hz-1: CopyRect 0,i*yfaktor#,bz, 1,x,y+i,fbuffer, ziel : Next End Function [/code:1:8f61f50097] Von der Sorte hab ich noch ne ganze Menge, aber es wäre wohl besser wenn die Original-Codes wieder sichtbar wären... |
| von ??? |
| ST war so frei und hat alle relevanten Codes der letzten 3 Monate auf seiner Homepage: [url]http://blitzinfo.shadowturtle.de/[/url] (als hätte er vom Forum Crash gewusst :lol: ) MfG D2006 |