Fritz: Win Best Test 1/70001.ZIP/70001/WINWARE1/PROFAN/_PROFAN.EXE/FARBEN.PRC

Text File | 1992-07-14 | 4KB | 11 lines

 RGH-PROFAN-DATEI               Z"Der PROFAN-FARBKASTEN V 1.0"
;
 /iEnde%,Farbe%,X%,Y%,R%,G%,B%,Wert%,Error%,Name$t16
 /80,"&Laden"/90,"&Speichern"/99,"&Ende"
 I1,~=(0,0,15)P0,0-640,480I1,~=(15,15,31)J0,4,0Q20,20-620,200;20,20I1,32767Q20,300-70,350;10,10    kFarbe%=0kX%=25kY%=28kR%=0kG%=0kB%=0:"Hilfetext"kName$="STANDARD":"Laden"
 kEnde%=05Ende%H"System",0,0,0,0,0    m32767,-1J0,4,0I1,~=(31,0,0)P200,300-250,320I1,~=(0,31,0)P200,320-250,340I1,~=(0,0,31)P200,340-250,360G205,302,~5(~.(R%),"-   +",3)G205,322,~5(~.(G%),"-   +",3)G205,342,~5(~.(B%),"-   +",3)I1,~=(R%,G%,B%)Q20,300-70,350;10,10
gΩ~A(80)::"Dateiwahl"Ω~A(90)::"Speichern"Ω~A(99):kEnde%=1 Ω~B(200,300-215,320)::"Rotminus"!Ω~B(200,320-215,340)::"Grⁿnminus"!Ω~B(200,340-215,360)::"Blauminus"Ω~B(235,300-250,320)::"Rotplus" Ω~B(235,320-250,340)::"Grⁿnplus" Ω~B(235,340-250,360)::"Blauplus"Ω~B(20,20-620,200)::"Plazieren"
6
e
 !PLAZIEREN:
 Ω~B(25,28-95,98):kX%=0Ω~B(99,28-169,98):kX%=1Ω~B(173,28-243,98):kX%=2Ω~B(247,28-317,98):kX%=3Ω~B(321,28-391,98):kX%=4Ω~B(395,28-465,98):kX%=5Ω~B(469,28-539,98):kX%=6Ω~B(543,28-613,98):kX%=7Ω~B(25,120-95,190):kX%=8Ω~B(99,120-169,190):kX%=9Ω~B(173,120-243,190):kX%=10Ω~B(247,120-317,190):kX%=11Ω~B(321,120-391,190):kX%=12Ω~B(395,120-465,190):kX%=13Ω~B(469,120-539,190):kX%=14Ω~B(543,120-613,190):kX%=15
kFarbe%=X%kY%=282~*(Farbe%,7)kY%=120kX%=~Ω(X%,8)
$kX%=~!(~#(X%,74),25)
J0,2,32767I1,~=(R%,G%,B%)UX%,Y%-~!(X%,70),~!(Y%,70)&Farbe%=~=(R%,G%,B%)J0,4,0
7
 !SPEICHERN:
 H"System",0,0,0,0,0    m32767,-1-G20,210,"Bitte geben Sie den Dateinamen ein:"(Name$,20,280,100W"KNOPF1",117,236G122,244,"Ok"
h5~B(115,236-146,267)
h
6Y2H"System",0,0,0,0,0    m32767,-1W"KNOPF2",117,236G120,244,"Ok"kName$=$GetInput^#1,~2(Name$,".PLT")kError%=%IoResult
 ,ΩError%:l"Ungⁿltiger Dateiname!","FEHLER",163Error%c#1    kFarbe%=05~≡(Farbe%,16)B#1,~H(Farbe%)kFarbe%=~!(Farbe%,1)
6`#1
$
*J~=(0,0,15),0,0I1,~=(0,0,15)P15,210-300,270H"System",0,0,0,0,0    m32767,-1Y0
7
 !DATEIWAHL:
 H"System",0,0,0,0,0    m32767,-1'G20,210,"Bitte wΣhlen Sie die Palette:"'20,280-100,140,"*.PLT"W"KNOPF1",117,236G122,244,"Ok"5~B(115,236-146,267)
h
6H"System",0,0,0,0,0    m32767,-1W"KNOPF2",117,236G120,244,"Ok"kName$=$GetText2~7(".",Name$)kX%=~7(".",Name$)kName$=~4(Name$,X%,4):"Laden"
$
)J~=(0,0,15),0,0I1,~=(0,0,15)P15,210-300,270H"System",0,0,0,0,0    m32767,-1
7
 !LADEN:
 Y2^#1,~2(Name$,".PLT")
 +Ω%IoResult:l"Dateiname falsch!","FEHLER",16b#1kError%=%IoResult
 ,ΩError%:l"Datei nicht gefunden!","FEHLER",163Error%kY%=28    kFarbe%=04~)(Farbe%,16)    j#1,WERT%&Farbe%=Wert%
kX%=Farbe%2~*(Farbe%,7)kX%=~Ω(Farbe%,8)kY%=120
$kX%=~!(~#(X%,74),25)
J0,2,32767I1,Wert%UX%,Y%-~!(X%,70),~!(Y%,70)kFarbe%=~!(Farbe%,1)
6`#1
$Y0
7

!ROTMINUS:
 ΩR%:kR%=~Ω(R%,1)
7
 !GR▄NMINUS:
 ΩG%:kG%=~Ω(G%,1)
7
 !BLAUMINUS:
 ΩB%:kB%=~Ω(B%,1)
7
     !ROTPLUS:

3~≡(R%,31)kR%=~!(R%,1)
$
7

!GR▄NPLUS:

3~≡(G%,31)kG%=~!(G%,1)
$
7

!BLAUPLUS:

3~≡(B%,31)kB%=~!(B%,1)
$
7
 !HILFETEXT:
 I1,~=(31,31,15)P300,220-620,400H"System",0,0,0,0,0m0,-16G305,224,"1. Die gewⁿnschte Farbe durch anklicken von"3G322,236,"[+] oder [-] auf nebenstehenden Farbfeld"G322,248,"einstellen."9G305,268,"2. Ist die Farbe optimal, den Farbtopf fⁿr die"G322,280,"Farbe anklicken."8G305,300,"3. Den fertigen Farbkasten abspeichern. Namen"6G322,312,"ohne Erweiterung angeben und [Ok] anlicken."+G322,324,"Die Palette 'STANDARD' wird beim"-G322,336,"Programmstart automatisch geladen."6G305,356,"4. Um eine abgespeicherte Palette zu laden,"-G322,368,"den gewⁿnschten Namen in der Liste"'G322,380,"anwΣhlen und [Ok] anklicken."
7