XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster mit farbigem Hintergrund erstellen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Diese Beispiel demonstriert, wie ein Fenster immer
Zentriert und in einer vorgegebenen Größe x%, Y%
mit einer Hintergrundfarbe dargestellt wird.
Es bedeuten:
------------
X%     - Breite des Fensters
Y%     - Höhe des Fensters
%maxX  - horizontale Auflösung des Bildschirmes
%maxY  - vertikale Auflösung des Bildschirmes
Window x1,y1 - x2,y2       siehe Profan - Hilfe
SetTrueColor N        siehe Profan - Hilfe
RGB(R,G,B)        siehe Profan - Hilfe
-----------------------------------------------
declare X%,Y%                                            Variablen declarieren
x%= 300                                                  beachte, dass X% < %maxX
y%= 300                                                  beachte, dass Y% < %maxY
window div(sub(%maxx,x%),2), div(sub(%maxy,y%),2)-x%,y%
SetTrueColor 1        wird auf 16 Millionen Farben umgeschaltet
R = ROT (0 bis 255 setzbar)
G = GELB (0 bis 255 setzbar)
B = BLAu (0 bis 255 setzbar)
Cls RGB(125,130,198)      cls muß vor RGB(R,G,B) stehen
125 Farbanteile rot gesetzt
130 Farbanteile gelb gesetzt
198 Farbanteile Blau gesetzt
ergibt die Hintergrundfarbe hell-violett
und sind Veränderbar (andere Farben möglich)
waitinput                                                warten auf Eingabe