home *** CD-ROM | disk | FTP | other *** search
/ Fritz: Win Best Test 1 / 70001.ZIP / 70001 / WINWARE1 / PROFAN / DRAW.PRC < prev    next >
Text File  |  1993-09-26  |  6KB  |  45 lines
  1.  RGH-PROFAN-DATEI               iWZeug%,WAlt%,WNeu%    iW%,Ende%iX1%,Y1%,X2%,Y2%iFarbe%,Rand%iLinie%,Fuell%,Muster%iError%,Wert%iBMax%,B%,S%,P%,M%
  2. kBMax%=199iPal$,Bild$,B$t16uBMax% Z"RGH-DRAW 0.4" /10,"&Datei"/20,"&Fⁿllmuster"/30,"&Werkzeuge" /90,"&Hilfe"kPal$="DRAW.PLT":"Init" kBild$="OHNENAME.BLD"kB%=0     kLinie%=2    kFarbe%=0kFuell%=~=(0,0,31)kRand%=0 :"FarbTest" kEnde%=05Ende%gΩ~B(40,10-630,400)::"Malen" Ω~B(150,402-630,430)::"Farbwahl"Ω~A(10)::"Datei"Ω~A(20)::"Muster"Ω~A(30)::"Werkzeuge"Ω~A(90)::"Hilfe"2~B(5,5-37,421)kWNeu%=~$(~Ω(%MouseY,5),32)
  3. :"Auswahl"$6 e !DATEI:-.11,"&Neues Bild".12,"Bild &laden".13,"Bild &speichern"0.14,"&Farbpalette laden"0.15,"Programm&ende"130,42Ω~A(11)::"L÷schen"Ω~A(12)::"BildLaden"Ω~A(13)::"BildSpeichern"Ω~A(14)::"Palette"Ω~A(15)::"Ende"7     !PALETTE:&kPal$=~K("Farbpalette laden:","*.PLT")Ω~6(Pal$)::"Laden"7  !WERKZEUGE:-.39,"RⁿckgΣngig"0.31,"Ausfⁿllen" .32,"Linie".33,"Rechteck leer".34,"Rundeck leer".35,"Ellipse leer".36,"Rechteck gefⁿllt".37,"Rundeck gefⁿllt".38,"Ellipse gefⁿllt"1165,42"Ω%MenuItem:kWNeu%=~Ω(%MenuItem,31)#%MenuItem:kWNeu%=WZeug%
  4. :"Auswahl"7 !MUSTER:-.21,"gefⁿllt".22,"waagrecht [====]".23,"senkrecht  [|||||||]".24,"diagonal   [\\\\\\\\]".25,"diagonal   [////////]".26,"kariert     [#####]".27,"diag.kar.  [XXXX]"180,42$Ω%MenuItem:kMuster%=~Ω(%MenuItem,20) :"FarbTest"7 !INIT:;J0,1,0I1,~=(23,23,23) P0,0-640,480I1,32767P40,10-630,400J0,1,0I1,~=(31,31,31)P10,403-105,432    kWZeug%=04~)(WZeug%,12)
  5. :"WerkAus"kWZeug%=~!(WZeug%,1)6    kWZeug%=1
  6. kMuster%=1kWAlt%=1
  7. :"WerkEin":"Laden"7 !MALEN:Ω~*(WZeug%,7):7Y3
  8. kW%=WZeug% kX1%=%MouseX kY1%=%MouseY kM%=Muster%    2~≡(W%,0)
  9. J0,1,Rand%    I0,Fuell%P40,10-630,400
  10. IM%,Fuell%LX1%,Y1%,Rand%J0,1,0I0,32767P40,10-630,400    :"Befehl"Y07$
  11. 4%MouseKey6J5,1,0I1,~=(31,31,31)H"System",0,0,0,0,0
  12. 5%MouseKey kX2%=%MouseX kY2%=%MouseY 8Ω~≡(W%,1):@~Ω(X1%,2),~Ω(Y1%,2)-4,4>~Ω(X1%,2),~Ω(Y1%,2);4 4#~≡(W%,1):@X1%,Y1%-~Ω(X2%,X1%),~Ω(Y2%,Y1%)>X1%,Y1%;4kB$=~.(~Ω(X2%,X1%))kB$=~2(B$,"/")kB$=~2(B$,~.(~Ω(Y2%,Y1%))P11,404-104,431
  13. G13,410,B$ 8Ω~≡(W%,1):@~Ω(X1%,2),~Ω(Y1%,2)-4,4>~Ω(X1%,2),~Ω(Y1%,2);4 4#~≡(W%,1):@X1%,Y1%-~Ω(X2%,X1%),~Ω(Y2%,Y1%)>X1%,Y1%;46P11,404-104,4312~≡(%Mousekey,2)7$kM%=0    2~*(W%,4) kM%=Muster% kW%=~Ω(W%,3)$
  14. IM%,Fuell%J0,Linie%,Rand%2~B(40,10-630,400)"Ω~≡(W%,1):MX1%,Y1%-%MouseX,%MouseY"Ω~≡(W%,2):PX1%,Y1%-%MouseX,%MouseY(Ω~≡(W%,3):QX1%,Y1%-%MouseX,%MouseY;20,20"Ω~≡(W%,4):UX1%,Y1%-%MouseX,%MouseY    :"Befehl"$Y07 !BEFEHL:kB$=""kB$=~2(B$,~.(W%))kB$=~2(B$,"|")kB$=~2(B$,~.(X1%))kB$=~2(B$,"|")kB$=~2(B$,~.(Y1%))kB$=~2(B$,"|")kB$=~2(B$,~.(%MouseX))kB$=~2(B$,"|")kB$=~2(B$,~.(%MouseY))kB$=~2(B$,"|")kB$=~2(B$,~.(Fuell%))kB$=~2(B$,"|")kB$=~2(B$,~.(Rand%))kB$=~2(B$,"|")kB$=~2(B$,~.(M%))kB$=~2(B$,"|") kB%=~!(B%,1)%B%=B$7  !WIEDERGABE:Y2J0,1,0I1,32767P40,10-630,400kS%=0
  15. 4~)(S%,B%) kS%=~!(S%,1)
  16. kB$=~G(S%) :"LesePara"    kW%=Wert% :"LesePara"
  17. kX1%=Wert% :"LesePara"
  18. kY1%=Wert% :"LesePara"
  19. kX2%=Wert% :"LesePara"
  20. kY2%=Wert% :"LesePara"kFuell%=Wert% :"LesePara" kRand%=Wert% :"LesePara"    kM%=Wert%    2~≡(W%,0)
  21. J0,1,Rand%    I0,Fuell%P40,10-630,400
  22. IM%,Fuell%LX1%,Y1%,Rand%J0,1,0I0,32767P40,10-630,400$    3~≡(W%,0)
  23. IM%,Fuell%J0,Linie%,Rand%Ω~≡(W%,1):MX1%,Y1%-X2%,Y2%Ω~≡(W%,2):PX1%,Y1%-X2%,Y2% Ω~≡(W%,3):QX1%,Y1%-X2%,Y2%;20,20Ω~≡(W%,4):UX1%,Y1%-X2%,Y2%$6 :"Farbtest"Y07 
  24. !LESEPARA:kP%=~7("|",B$)3P%l"Keine DRAW-Datei","FEHLER",16kS%=B%$2P%kWert%=~-(~3(B$,1,~Ω(P%,1)))kB$=~3(B$,~!(P%,1),255)$7     !AUSWAHL:kWAlt%=WZeug%
  25. :"WerkAus"kWZeug%=WNeu%
  26. :"WerkEin"Ω~≡(WZeug%,11)::"BildLaden"Ω~≡(WZeug%,10)::"BildSpeichern"Ω~≡(WZeug%,9)::"L÷schen"2~≡(WZeug%,8)
  27. 2~*(B%,0)) kB%=~Ω(B%,1):"Wiedergabe"$
  28. :"WerkAus"kWZeug%=WAlt%
  29. :"WerkEin"$7 !BILDSPEICHERN:"kBild$=~L("Bild speichern:",Bild$)
  30. 2~6(Bild$)kS%=0    ^#1,Bild$c#1
  31. 3%IoResult
  32. 4~)(S%,B%) kS%=~!(S%,1)
  33. B#1,~G(S%)6$`#1$
  34. :"WerkAus"kWZeug%=WAlt%
  35. :"WerkEin"7  !BILDLADEN: kBild$=~K("Bild laden:","*.BLD")
  36. 2~6(Bild$)kS%=0    ^#1,Bild$b#1
  37. 3%IoResult5~D(1)j#1,B$ kS%=~!(S%,1)%S%=B$6`#1kB%=S%8:"Wiedergabe"$$
  38. :"WerkAus"kWZeug%=WAlt%
  39. :"WerkEin"7 !ENDE:-l"Willst Du wirklich aufh÷ren?","RGH-DRAW",36Ω~≡(%Button,6):kEnde%=17     !L╓SCHEN:5l"Willst Du das Bild wirklich l÷schen?","RGH-DRAW",362~≡(%Button,6)J0,1,0I1,32767P40,10-630,400kB%=0$
  40. :"WerkAus"kWZeug%=WAlt%
  41. :"WerkEin"7     !WERKAUS:W"Knopf1",5,~!(~#(WZeug%,32),5) :"Werkzeug"7     !WERKEIN:W"Knopf2",5,~!(~#(WZeug%,32),5) :"Werkzeug"7 
  42. !WERKZEUG:H"System",0,0,0,0,0m0,-1I0,0J0,1,0Ω~≡(WZeug%,0):G11,13,"Fill"Ω~≡(WZeug%,1):M12,43-30,61Ω~≡(WZeug%,2):P12,75-30,93"Ω~≡(WZeug%,3):Q12,107-30,125;10,10Ω~≡(WZeug%,4):U12,139-30,157I1,0Ω~≡(WZeug%,5):P12,171-30,189"Ω~≡(WZeug%,6):Q12,203-30,221;10,10Ω~≡(WZeug%,7):U12,235-30,253Ω~≡(WZeug%,8):G8,270,"DEL"Ω~≡(WZeug%,9):G8,302,"CLS"Ω~≡(WZeug%,10):G10,334,"->O"Ω~≡(WZeug%,11):G10,367,"O->"7 !LADEN:Y2^#1,Pal$b#1kError%=%IoResult 5ΩError%:l~2("Palette: ",Pal$),"FARBPALETTE FEHLT!",163Error%    kFarbe%=04~)(Farbe%,16)    j#1,WERT%&Farbe%=Wert%kX1%=~!(~#(Farbe%,30),150)J0,1,0I1,Wert%PX1%,402-~!(X1%,30),430kFarbe%=~!(Farbe%,1)6`#1$Y07 
  43. !FARBWAHL:kWert%=~$(~Ω(%MouseX,150),30)"Ω~≡(%MouseKey,1):kFuell%=~H(Wert%)!Ω~≡(%MouseKey,2):kRand%=~H(Wert%) :"FarbTest"7 
  44. !FARBTEST:I1,32767
  45. J0,4,Rand%Q110,405-145,430;30,30IMuster%,Fuell%Q110,405-145,430;30,307 !HILFE:-.91,"&Icon-Leiste".92,"&G÷▀en-Fenster".93,"&Farben"0.94,"&▄ber..."1250,42Ω~A(91)::"Hilfe1"Ω~A(92)::"Hilfe2"Ω~A(93)::"Hilfe3"Ω~A(94)::"Hilfe4"7 !HILFE1: ukB$="Die Bedeutung der Icons von oben nach unten: Ausfⁿllen - Linie - leere Formen - gefⁿllte Formen - RⁿckgΣngig - "7kB$=~2(B$,"Bild l÷schen - Bild speichern - Bild laden")lB$,"WERKZEUG-ICONS",647 !HILFE2: tkB$="Im Gr÷▀enfenster wird die Gr÷▀e des aktuell zu zeichnenden Objektes angegeben, und zwar waagrechte Ausdehnung/" okB$=~2(B$,"senkrechte Ausdehnung. Positive Werte gehen nach rechts bzw. unten, negative nach links bzw. oben.")lB$,"GR╓SSEN-FENSTER",647 !HILFE3: ukB$="Die Farbleiste zeigt die zu Verfⁿgung stehenden Farben der geladenen Palette an, der Farbtopf die aktuelle Farb" pkB$=~2(B$,"kombination. Die Randfarbe wird mit der rechten und die Fⁿllfarbe mit der linken Maustaste gewΣhlt.")lB$,"FARBEN",647 !HILFE4:)kB$=~2("⌐1992 Roland G. Hⁿlsmann",~1(13))kB$=~2(B$,~1(13))!kB$=~2(B$,"PROFAN-Demoprogramm:")kB$=~2(B$,~1(13))kB$=~2(B$,"RGH-DRAW 0.4")lB$,"RGH-DRAW - DEMO",647