| Farbblende von ??? |
| Sieht nett aus :) [code:1:0408ed4479] Graphics 1024,768,32,1 SetBuffer FrontBuffer() Global r = 0 Global g = 0 Global b = 0 y = 0 x = 0 For b = 0 To 255 Step 1 For g = 0 To 255 Step 1 For r = 0 To 255 Step 1 y=y+1 Color r,g,b Plot x,y If KeyDown(1) Then End Next x = x + 1 y = -1 g = g + 1 Next x = 0 Next WaitKey() End [/code:1:0408ed4479] |
| von ??? |
| Hi! sieht cool aus der farbverlauf! habe mir mal das recht herausgenommen, und ihn etwas optimiert :D [code:1:a1c4d76ccf] Graphics 640,480,32,2 SetBuffer BackBuffer() LockBuffer BackBuffer() For B = 0 To 255 For G = 0 To 255 For R = 0 To 255 Y = Y + 1 RGB = R * $10000 + G * $100 + B WritePixelFast X,Y,RGB Next X = X + 1 Y = -1 G = G + 1 Next X = 0 Next UnlockBuffer BackBuffer() Flip : WaitKey : End [/code:1:a1c4d76ccf] mfg olli |
| von ??? |
| Jo, lustiger kleiner Effekt.. Ich hab mal das erste Editiert, und da noch eine beendenzeile reingebaut, bei mir konnte man es nämlich nicht mehr beenden.. |
| von ??? |
| @Freax Bei dir ist ja nur noch das Endergebnis zu sehen :shock: Es geht ja auch darum die Zwischenschritte beobachten zu können :D |
| von ??? |
| Hi! oh sorry hatte den debug modus an, deswegen war mir das viel zu lahm. meine fresse ist bb schnell. man muss schon ein delay mit rein bringen, das es man sieht wie es aufgebaut wird. und das ganze noch mit color und plot, wo es ja noch lockbuffer unlockbuffer und writepixelfast gibt. hehe und das ganze jetzt nochmal mit DB testen :D mfg olli |
| von ??? |
| [quote:ce057a4823="Freax"]Hi! sieht cool aus der farbverlauf! habe mir mal das recht herausgenommen, und ihn etwas optimiert :D mfg olli[/quote:ce057a4823] Da sieht man ja garnix... Habe das nochmals um geschrieben... Aber noch eine Frage: wiso kommt nochmals g=g+1 vor wen g schon mit for_next geloopt wird? [code:1:ce057a4823] Graphics 800,600,32,2 SetBuffer FrontBuffer() Global r = 0 Global g = 0 Global b = 0 y = 0 x = 0 For b = 0 To 255 LockBuffer() For g = 0 To 255 For r = 0 To 255 rgb = r*$10000 + g*$100 + b WritePixelFast x,y,rgb y = y + 1 If KeyDown(1) Then End Next x = x + 1 y = 0 ; g = g + 1 Next UnlockBuffer() x = 0 Flip Cls Next WaitKey() End [/code:1:ce057a4823] |