Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI450.ASC

PRODUCT : TURBO PASCAL GRAPHIX TOOLBOX NUMBER : 450
VERSION : 4.0
OS : MS-DOS, PC-DOS
DATE : SEPTEMBER 20, 1988 PAGE : 1/1

TITLE : DRAWAXIS OPTION: NO TICK MARKS AND NUMBER LABELS




The following modifications may be made to the "GSHELL.PAS" file
of the Turbo Pascal Graphix Toolbox to provide the DrawAxis
routine with an option to turn off the display of tick marks and
number labels, as in version 1.0x.

The following routine is found in the file called "GSHELL.PAS".

Change the following lines in the DrawAxis procedure:

Line 213:
FROM: if YDens >= 0 then
TO: if YDens > 0 then

Line 230:
FROM: if (YDens >= 0) and (Ys > Y1RefGlb + 13) then
TO: if (YDens > 0) and (Ys > Y1RefGlb + 13) then

Line 240:
FROM: if XDens >= 0 then
TO: if XDens > 0 then

Line 260:
FROM: if (XDens >= 0) and (Xs > X2RefGlb shl 3 + 7 - 24) then
TO: if (XDens > 0) and (Xs > X2RefGlb shl 3 + 7 - 24) then