ich versuche gerade sauber eine typische Amiga-Copperbar zu programmieren.
Die Ausgabe erfolgt zwar korrekt, ist aber sicherlich eleganter lösbar:
Code: Alles auswählen
CreateSprite(#Sprite_Copperbar,1024,32)
StartDrawing(SpriteOutput(#Sprite_Copperbar))
For i=0 To 16:Line(0,i,1023,1,RGB(i*15,0,0)):Next
For i=17 To 32:Line(0,i,1023,1,RGB(500-(i*15),0,0)):Next
StopDrawing()
- Höhe der Copperbar (Pixel)
- Farbe 1 (außen)
- Farbe 2 (innen)
- Höhe der einzelnen Linien (1 - X Pixel)
- Raster (jede 2. "Zeile" ist sozusagen schwarz/transparent)