| Gradient - beliebige Farbübergänge erstellen von Triton |
| Folgendes Programm kann beliebige Farbübergänge erstellen die dann in bild.bmp gespeichert werden. Man gibt größex, größey, rgb1 und rgb2 ein und voilá! [code:1:70320e711b] ; Gradient 1.0 ; Beliebige Farbübergänge erstellen ; (c), 2002 by Triton Graphics 800,600,32,2 Delay 1000 schrift = LoadFont("fixedsys", 16,0,0,0) SetFont schrift ;---------------------------------------------------------------- ;Alle relevanten Daten abfragen, Begrüßungstext .nochmal Color 255,128,0 Print "Willkommen zu Gradient 1.0, by Triton zum Erstellen beliebiger Farbübergänge" Color 255,255,255 breite = Input$("Breite:") hoehe = Input$("Höhe:") farbe1r# = Input$("Anfangsfarbe (Rotanteil(0-255)):") If farbe1r# > 255 Or farbe1r# < 0 Then Goto nochmal Color farbe1r#, 0,0 Rect 400,100,100,100,1 Color 255,255,255 farbe1g# = Input$("Anfangsfarbe (Grünanteil(0-255)):") If farbe1g# > 255 Or farbe1b# < 0 Then Goto nochmal Color farbe1r#, farbe1g#,0 Rect 400,100,100,100,1 Color 255,255,255 farbe1b# = Input$("Anfangsfarbe (Blauanteil(0-255)):") If farbe1b# > 255 Or farbe1b# < 0 Then Goto nochmal Color farbe1r#, farbe1g#,farbe1b# Rect 400,100,100,100,1 Color 255,255,255 farbe2r# = Input$("Endfarbe (Rotanteil(0-255)):") If farbe2r# > 255 Or farbe2r# < 0 Then Goto nochmal Color farbe2r#, 0,0 Rect 500,100,100,100,1 Color 255,255,255 farbe2g# = Input$("Endfarbe (Grünanteil(0-255)):") If farbe2g# > 255 Or farbe2g# < 0 Then Goto nochmal Color farbe2r#, farbe2g#,0 Rect 500,100,100,100,1 Color 255,255,255 farbe2b# = Input$("Endfarbe (Blauanteil(0-255)):") If farbe2b# > 255 Or farbe2b# < 0 Then Goto nochmal Color farbe2r#, farbe2g#,farbe2b# Rect 500,100,100,100,1 Color 255,255,255 nochma$=Input$("Farben erneut eingeben? (J/N)") If nochma$ = "j" Or nochma$ = "J" Then Goto nochmal ;---------------------------------------------------------------- ;Wieviele Abstufungen werden benötigt/kann man verwenden abstufungR# = farbe1r# - farbe2r# abstufungG# = farbe1g# - farbe2g# abstufungB# = farbe1b# - farbe2b# abstufungR# = abstufungR#/breite abstufungG# = abstufungG#/breite abstufungB# = abstufungB#/breite Color 255,128,0 Print "Generating..." Delay 1000 Cls ;---------------------------------------------------------------- ;Erst im Image speichern, dann Image auf Bildschirm malen image = CreateImage(breite,hoehe) SetBuffer ImageBuffer(image) For x = 0 To breite-1 farbe1r# = farbe1r# + abstufungR# *-1 farbe1g# = farbe1g# + abstufungG# *-1 farbe1b# = farbe1b# + abstufungB# *-1 Color farbe1r#,farbe1g#,farbe1b# Line x,0,x,hoehe Next SetBuffer FrontBuffer() DrawImage image,0,0 While Not KeyDown(1) Wend SaveImage(image, "bild.bmp") Color 255,128,0 Print "Farbübergang wurde in bild.bmp gespeichert" Delay 2000 Print "viel Spaß....Triton" Delay 2000 End [/code:1:70320e711b] |