WNGZWZSC0110!E  WINGZ/Utilities/Resolution/5  Resltn5T @?@?  :   (@?:(@? %@?:%@? $ Working... S!MREPAINT DIALOG; ON REPAINT CALL Resolution.scz:HrGlass() END REPAINT: Using a ruler, obtain the dimensions of this dialog box. KDo not include any borders added by the window manager which you are using.5T Use the stepper buttons to enter the dimensions of this dialog box, and click OK. 5E DPI values will be computed when width and height stepper buttons values are both set to 5.00.5!  Resltn5Od Working...K#GMust launch Wingz from a directory in which you have WRITE permissions. ! Resltn?? Working...J.@?0@?0* @?0433333@?0J??0@?0@?0gfffff@?0 =?< ?> eWidthJ333333@?0@?0@?0gfffff@?0 =?< ?> eHeightJ433333??0433333??0@?0433333??0 J433333??0??0@?0gfffff@?0 POK@?0333333@?0@?0@?09!3DG:val1 = CTVALUE(2,0) DG:val2 = CTVALUE(3,0)5X5@9@96+,@1,@100. @?0 @?0 QAdd the following entries to your .Xdefaults file and restart the window manager.??0333333??0 @?0??0i  Wingz*dpix: 5??0333333??0@?0gfffff??0B Courieri  Wingz*dpiy: 5??0??0@?0??0 CourierB mClick the "QUIT" button if you wish to exit Wingz and implement the changes. Click the "OK" button otherwise.??0??0 @?0@?0WOKQUIT??0gfffff@?0 @?0gfffff@?0$!QUIT DIALOG BOX; QUIT NOW Real DPI Values Working...r#nPlace the supporting external file "Resltn" in the same Directory as Resolution.scz before you run this script $$$$$*@ @$%@$S㥛$@@$Gz.$@$Gz.$@433333.@$gffff5@ $ $  $  $ $433333#@3@$$gfffff4@$sh|#@433333.@${G#@${G#@@$#@$@ @$$ $)$$$$$6sA$@(\@$Q#@{G-@$(\B$@{G-@$/@(\@$6A$$ $ $$6$gffff.@4333336@$(\B$@433333.@$Q#@433333.@$gfffff@ףp= 6@$6A$$$#$($d<2NA$@$@$?$2@$1@$1@$2@$?$@<@ BIS $3WingZ$$HzG?=@$=@$433333;@$HzG?=@$x$)$$$?gffff=@$333333@gffff=@$=@$?=@$433333;@$$?gffff=@$ @$)$$$=@$333333@gffff=@$$433333;@$=@$_$)$DGResltnResolution.sczval1DpixDpiyWDpiXWDpiY FirstHalf SecondHalfval2xDpiyDpiXfactorYfactorWingzXWingzY FirstHalf SecondHalfWaitXWaitY Tmp Path HrGlass { This script can be a useful tool in determining the actual screen resolution of the monitor which you are using. Obtain a ruler, then invoke Wingz and run this script by typing the following line at the command level: Wingz /Resolution.scz where is the location of the script if it is not in your current directory. This script requires an additionl file, "Resltn", be placed in the same directory as Resolution.scz. The script will determine the dots per inch values for your monitor. Use these values when invoking Wingz. You may also use them inside your Wingz resources file. Consult your Wingz Installation Guide for further information regarding Wingz resources. } DEFINE xDpi, yDpi, Xfactor, Yfactor, WingzX, WingzY, FirstHalf, SecondHalf, WaitX, WaitY, Tmp, Path; Path = getenv("WINGZ")&"/Utilities/Resolution/"; IF FILE(Path&"Resltn") WingzX = 0; WingzY = 0; WaitX = 5 INCH; {DESKRIGHT() - DESKLEFT();} WaitY = 3 INCH; {DESKBOTTOM() - DESKTOP();} If (WaitX > WaitY) Tmp = WaitX; WaitX = WaitY; WaitY = Tmp END IF; IF (WaitX > 12 INCH) WaitX = 12 INCH END IF; IF (WaitY > 10.5 INCH) WaitY = 10.5 INCH END IF; NEW MODELESS DIALOG BOX "Working..."AT (-1,-1) (WaitX, WaitY); SCRIPT "REPAINT DIALOG; ON REPAINT CALL Resolution.scz:HrGlass() END REPAINT"; USE DIALOG BOX; WAIT FOR 1 SECOND; FirstHalf = " Using a ruler, obtain the dimensions of this dialog box. "& "Do not include any borders added by the window manager which you are using."&" Use the stepper buttons to enter the dimensions of this dialog box, and click OK. "; SecondHalf = " DPI values will be computed when width and height stepper buttons"& " values are both set to 5.00."; DG:val1 = 0; GET EXTERNAL Path&"Resltn"; IF ISERR(Resltn:Dpix()) GO TO WINDOW "Working..."; QUIT DIALOG BOX; MESSAGE "Must launch Wingz from a directory in which you have WRITE permissions."; EXIT SCRIPT END IF; xDpi = Resltn:Dpix(); yDpi = Resltn:Dpiy(); WingzX = Resltn:WDpiX(); WingzY = Resltn:WDpiY(); REMOVE EXTERNAL "Resltn"; IF WingzX xDpi = WingzX END IF; IF WingzY yDpi = WingzY END IF; Xfactor = 1.0; Yfactor = 1.0; GO TO WINDOW "Working..."; QUIT DIALOG BOX; WHILE TRUE() NEW MODAL DIALOG BOX AT (-1,-1) (5 INCH * Xfactor, 5 INCH * Yfactor); ADD CUSTOM BUTTON AT (0,0) (5 INCH * Xfactor, 2.9 INCH * Yfactor); FILL PATTERN 0; NO LINE BORDER; { This is an aftermath to protect both text fields.} ADD NUMBER WHEEL AT (0.5 INCH * Xfactor, 3 INCH * Yfactor) (2.35 INCH * Xfactor, 3.8 INCH * Yfactor); NUMBER WHEEL STEP 0.05; NUMBER WHEEL RANGE 0 to 10; NUMBER WHEEL PRECISION 2; NUMBER WHEEL POSITION 5.0; SHOW CONTROL TITLE "Width"; ADD NUMBER WHEEL AT (2.65 INCH * Xfactor, 3 INCH * Yfactor) (4.5 INCH * Xfactor, 3.8 INCH * Yfactor); NUMBER WHEEL STEP 0.05; NUMBER WHEEL RANGE 0 to 10; NUMBER WHEEL PRECISION 2; NUMBER WHEEL POSITION 5.0; SHOW CONTROL TITLE "Height"; ADD FIELD AT (0.3 INCH * Xfactor, 0.3 INCH * Yfactor) (4.7 INCH * Xfactor, 1.7 INCH * Yfactor); FIELD TEXT Resolution.scz:FirstHalf; NO LINE BORDER; FIELD JUSTIFICATION FLUSH; MAXIMUM FIELD LENGTH 0; ADD FIELD AT (0.3 INCH * Xfactor, 1.8 INCH * Yfactor) (4.7 INCH * Xfactor, 2.8 INCH * Yfactor); FIELD TEXT Resolution.scz:SecondHalf; NO LINE BORDER; FIELD JUSTIFICATION FLUSH; MAXIMUM FIELD LENGTH 0; ADD PUSH BUTTON "OK" AT (2 INCH * Xfactor, 4.3 INCH * Yfactor) (3 INCH * Xfactor, 4.7 INCH *Yfactor); DIALOG DEFAULT PUSH BUTTON; SCRIPT "DG:val1 = CTVALUE(2,0) DG:val2 = CTVALUE(3,0)"; NAME DIALOG BOX "5X5"; USE DIALOG BOX; IF DG:val1 = 5.0 AND DG:val2 = 5.0 EXIT WHILE END IF; Xfactor = Xfactor * 5.0 / DG:val1; Yfactor = Yfactor * 5.0 / DG:val2; END WHILE; xDpi = xDpi * Xfactor; yDpi = yDpi * Yfactor; NEW MODAL DIALOG BOX AT (-1,-1) (3.5 INCH * Xfactor, 3.5 INCH * Yfactor) ADD TEXT "Add the following entries to your .Xdefaults file and "& "restart the window manager." AT (.25 INCH * Xfactor, .15 INCH * Yfactor) (3.25 INCH * Xfactor, .75 INCH * Yfactor); ALIGN CENTER; LINE SPACING 1.5; NO LINE BORDER; ADD TEXT "Wingz*dpix: " & ROUND(xDpi,0) AT (0.75 INCH * Xfactor, .85 INCH * Yfactor) (2.75 INCH * Xfactor, 1.15 INCH * Yfactor); NO LINE BORDER; ALIGN CENTER; TEXT STYLE "B"; TEXT SIZE 14; TEXT FONT "Courier"; ADD TEXT "Wingz*dpiy: " & ROUND(yDpi,0) AT (0.75 INCH * Xfactor, 1.25 INCH * Yfactor) (2.75 INCH * Xfactor, 1.55 INCH * Yfactor); NO LINE BORDER; ALIGN CENTER; TEXT SIZE 14; TEXT FONT "Courier"; TEXT STYLE "B"; ADD TEXT "Click the ""QUIT"" button if you wish to exit Wingz "& "and implement the changes. Click the ""OK"" button otherwise." AT (.25 INCH * Xfactor, 1.6 INCH * Yfactor) (3.25 INCH * Xfactor, 2.7 INCH * Yfactor); ALIGN CENTER; LINE SPACING 1.5; NO LINE BORDER; ADD PUSH BUTTON "OK", "QUIT" AT (0.25 INCH * Xfactor, 2.8 INCH * Yfactor) (3.25 INCH * Xfactor, 3.05 INCH * Yfactor) SCRIPT "QUIT DIALOG BOX; QUIT NOW"; SELECT CONTROL 5; DIALOG DEFAULT PUSH BUTTON; NAME DIALOG BOX "Real DPI Values"; USE DIALOG BOX; ELSE GO TO WINDOW "Working..."; QUIT DIALOG BOX; MESSAGE "Place the supporting external file ""Resltn"" in the same Directory as Resolution.scz "& "before you run this script" END IF; FUNCTION HrGlass() SCALED WINDOW (0, 0) (20, 30); OPEN POLYGON MOVE (6, 3); DRAW (14, 3); DRAW (13.3, 3.5) DRAW (10.5, 7); DRAW (10.009, 7.5); DRAW (10.09, 16); MOVE (10.09, 15.1); DRAW (15, 21.65); DRAW (14, 22); DRAW (12, 21); DRAW (11, 20); DRAW (10, 20); DRAW (9.6, 19.8); DRAW (7, 21); DRAW (6, 20.4); DRAW (9.999, 15.1); MOVE (9.99, 16); DRAW (9.99, 7.5); DRAW (9.5, 7); DRAW (6.7, 3.5); DRAW (6, 3); CLOSE POLYGON; FILL PATTERN 10; FILL POLYGON; KILL POLYGON; OPEN POLYGON MOVE (4, 3); DRAW (4, 6); MOVE ARC (4, 4) (6, 8) 115 FOR 65; MOVE (4.45, 7.64); DRAW (9.96, 14.99); DRAW (10.13, 14.99); DRAW (15.55, 7.64); MOVE ARC (14, 4) (16, 8) 0 FOR 65; MOVE (16, 6); DRAW (16, 3); MOVE (16, 27); DRAW (16, 24); MOVE ARC (14, 22) (16, 26) 0 FOR -65; MOVE (15.45, 22.2); DRAW (10.13, 15.1); DRAW (9.96, 15.1); DRAW (4.6, 22.09); MOVE ARC (4, 22) (6, 26) 180 FOR 65; MOVE (4, 24); DRAW (4, 27); CLOSE POLYGON; LINE WIDTH 35; FRAME POLYGON; KILL POLYGON; LINE WIDTH 100; LINE BG RGB(120, 100, 60); LINE FG BLACK(); LINE PATTERN 24; MOVE (2.5, 3); DRAW (2.5, 27); MOVE (1.5, 27); DRAW (18.5, 27); MOVE (17.5, 27); DRAW (17.5, 3); MOVE (18.5, 3); DRAW (1.5, 3); MOVE (2.25, 28.5); TEXT SIZE 18; TEXT STYLE "BIS"; DRAW TEXT "WingZ"; OPEN POLYGON MOVE (.27, 29.8); DRAW (2, 29.8); DRAW (1, 27.2); DRAW (.27, 29.8); CLOSE POLYGON; FILL PATTERN 20; FILL BG RGB(0,120,0); FILL POLYGON; KILL POLYGON; OPEN POLYGON MOVE (.25, 29.9); DRAW (2.15, 29.9); DRAW (2, 29.8); DRAW (.4, 29.8); DRAW (1, 27.2); DRAW (1, 27); DRAW (.25, 29.9); CLOSE POLYGON; FILL PATTERN 20; FILL BG RGB(0,160,0); FILL POLYGON; KILL POLYGON; OPEN POLYGON MOVE (2, 29.8); DRAW (2.15, 29.9); DRAW (1, 27); DRAW (1, 27.2); DRAW (2, 29.8); CLOSE POLYGON; FILL PATTERN 20; FILL BG RGB(0,95,0); FILL POLYGON; KILL POLYGON; END FUNCTION