head     56.3;
access   paws bayes jws quist brad dew jwh;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.29.39;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.12.07.09;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.09.51.20;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.26.57;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.30.02;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.30.01;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.14.01;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.13.57;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.28.44;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.12.38;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.18.56;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.02.37;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.49.43;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.15.57.39;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.14.45;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.06.45;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.51.30;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.33.45;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.11.55.05;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.39.43;  author dew;  state Exp;
branches ;
next     38.1;

38.1
date     89.08.29.11.31.42;  author jwh;  state Exp;
branches ;
next     37.1;

37.1
date     89.05.12.11.45.01;  author dew;  state Exp;
branches ;
next     36.1;

36.1
date     89.02.06.10.22.50;  author dew;  state Exp;
branches ;
next     35.1;

35.1
date     89.02.02.13.38.03;  author dew;  state Exp;
branches ;
next     34.1;

34.1
date     89.01.23.16.13.16;  author jwh;  state Exp;
branches ;
next     33.1;

33.1
date     89.01.16.11.44.57;  author dew;  state Exp;
branches ;
next     32.1;

32.1
date     89.01.10.11.53.55;  author bayes;  state Exp;
branches ;
next     31.1;

31.1
date     88.12.14.18.14.57;  author bayes;  state Exp;
branches ;
next     30.1;

30.1
date     88.12.09.13.51.54;  author dew;  state Exp;
branches ;
next     29.1;

29.1
date     88.10.31.15.36.45;  author bayes;  state Exp;
branches ;
next     28.1;

28.1
date     88.10.06.11.03.12;  author dew;  state Exp;
branches ;
next     27.1;

27.1
date     88.09.29.11.43.34;  author bayes;  state Exp;
branches ;
next     26.1;

26.1
date     88.09.28.13.21.26;  author bayes;  state Exp;
branches ;
next     25.2;

25.2
date     88.03.30.09.14.55;  author bayes;  state Exp;
branches ;
next     25.1;

25.1
date     88.03.02.09.37.32;  author bayes;  state Exp;
branches ;
next     24.1;

24.1
date     87.08.31.10.03.25;  author jws;  state Exp;
branches ;
next     23.1;

23.1
date     87.08.26.10.41.23;  author bayes;  state Exp;
branches ;
next     22.1;

22.1
date     87.08.17.11.27.30;  author bayes;  state Exp;
branches ;
next     21.1;

21.1
date     87.08.12.14.09.27;  author bayes;  state Exp;
branches ;
next     20.1;

20.1
date     87.07.30.11.23.24;  author bayes;  state Exp;
branches ;
next     19.1;

19.1
date     87.06.01.08.36.37;  author jws;  state Exp;
branches ;
next     18.1;

18.1
date     87.05.20.15.39.19;  author bayes;  state Exp;
branches ;
next     17.1;

17.1
date     87.04.30.10.48.01;  author jws;  state Exp;
branches ;
next     16.1;

16.1
date     87.04.26.15.59.04;  author jws;  state Exp;
branches ;
next     15.1;

15.1
date     87.04.13.09.36.55;  author jws;  state Exp;
branches ;
next     14.1;

14.1
date     87.04.01.15.43.52;  author jws;  state Exp;
branches ;
next     13.1;

13.1
date     87.02.28.18.43.18;  author jws;  state Exp;
branches ;
next     12.1;

12.1
date     87.02.02.13.35.11;  author jws;  state Exp;
branches ;
next     11.1;

11.1
date     87.01.19.10.01.35;  author jws;  state Exp;
branches ;
next     10.1;

10.1
date     86.12.24.11.13.53;  author jws;  state Exp;
branches ;
next     9.1;

9.1
date     86.12.12.14.56.48;  author bayes;  state Exp;
branches ;
next     8.1;

8.1
date     86.11.27.12.10.05;  author jws;  state Exp;
branches ;
next     7.1;

7.1
date     86.11.20.14.15.09;  author hal;  state Exp;
branches ;
next     6.2;

6.2
date     86.11.19.17.06.30;  author bayes;  state Exp;
branches ;
next     6.1;

6.1
date     86.11.04.18.13.55;  author paws;  state Exp;
branches ;
next     5.2;

5.2
date     86.10.29.14.42.49;  author geli;  state Exp;
branches ;
next     5.1;

5.1
date     86.10.28.17.02.16;  author hal;  state Exp;
branches ;
next     4.1;

4.1
date     86.09.30.19.58.38;  author hal;  state Exp;
branches ;
next     1.3;

1.3
date     86.09.26.09.15.54;  author hal;  state Exp;
branches ;
next     1.2;

1.2
date     86.09.24.11.11.32;  author hal;  state Exp;
branches ;
next     1.1;

1.1
date     86.09.03.09.51.11;  author hal;  state tmp;
branches ;
next     ;


desc
@Base file for PWS 3.2 release.

@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@{                                                                           }
{ Graphics Low End                                                          }
{                                                                           }
{ Module    = GLE_HPHIL_RELI                                                }
{ Programmer= SFB                                                           }
{ Date      = 9/09/85                                                       }
{                                                                           }
{ Purpose: To provide HPHIL relative locator input handler routines.        }

{ Rev history                                                               }
{  Created  -  3-20-85                                                      }
{  Hacked from GLE_HILI 9/9/85 SFB                                          }

{     (c) Copyright Hewlett-Packard Company, 1985.
      All rights are reserved.  Copying or other
      reproduction of this program except for archival
      purposes is prohibited without the prior
      written consent of Hewlett-Packard Company.


		  RESTRICTED RIGHTS LEGEND

      Use, duplication, or disclosure by the Government
      is subject to restrictions as set forth in
      paragraph (b) (3) (B) of the Rights in Technical
      Data and Computer Software clause in
      DAR 7-104.9(a).

      HEWLETT-PACKARD COMPANY
      Fort Collins, Colorado                              }


$SEARCH 'RGL', 'GLE_TYPES','GLE_UTLS', 'GLE_RGL', 'GLE_HILI'$
{$SEARCH '*LIBRARY.'$}

$modcal$ $DEBUG OFF$
$INCLUDE 'OPTIONS'$  { ******************* COMPILER OPTIONS ******************* }
$LINENUM 18000$
$ALLOW_PACKED ON$       {SFB 4/11/85}

module gle_hphil_reli;

import gle_types, sysdevs;

export

procedure gle_init_hphil_rel_input ( gcbi : graphics_input_control_block_ptr);

implement

import sysglobals, gle_utls, iocomasm, GLE_RAS_OUT,
       GLE_HPHIL_ABSI {for dvr_rec, of all things!};

var
 dev    : integer;
 digitize_enabled  : boolean;
 last_button : integer;         {see gle_knob for usage}

procedure hphil_rel_input_escapeo ( gcbi : graphics_input_control_block_ptr );

begin
{ with gcbi^ do
    begin
    end; }
end;

procedure hphil_rel_input_escapei ( gcbi : graphics_input_control_block_ptr );

begin
{ with gcbi^ do
    begin
    end; }
end;


procedure hphil_rel_get_input_hard_clip(gcbi : graphics_input_control_block_ptr );

var
  i,
  w,h   : integer;
  found : boolean;

begin
  w     := 0;
  h     := 0;
  found := false;
  with gcbi^ do
    begin
      dev := 0;
      for i:=1 to 7 do     {scale off first active abs locator}
       with loopcontrol^.loopdevices[i].descrip, dvr_rec^ do
	begin
	 if (NOT abscoords) and (bit_set(devices, i-1)) and (numaxes > 0) then
		     {only active devices}
	   begin
	    if not found then
	     begin
	      dev := i;   {scale off first locator found}
	      info1 := 0;
	      info2 := input_max_x;
	      info3 := 0;
	      info4 := input_max_y;
	     end;
	    maxcountx := info2;  {and make accessible to driver}
	    maxcounty := info4;  {for ALL active locators}
	    found := true;
	   end;
	end;
      if not found then
       begin
	dvr_rec^.devices := 127; {reenable locators that may have been masked}
	escape(-26);
       end;
    end;
end;

procedure hphil_rel_get_input_p1p2 ( gcbi : graphics_input_control_block_ptr );

begin           {set p1, p2 to hard clip limits for hphil abs locators}
  hphil_rel_get_input_hard_clip(gcbi);
end;

procedure read_hphil_rel(var x, y : integer; var button : integer);
var achar : char;
    havebutton : boolean;

begin
 if last_button < 0 then button := -1
 else                    button := 0;

 with dvr_rec^ do
  begin
   reading := true;     {tell driver not to update dvr_comm_rec}
   x       := xloc;
   y       := yloc;

   havebutton := false;

   if ncodes > 0 then           {pick up first button encountered only}
    begin
     achar := codes[1];    {don't read kbd here, as we wish to
			    re-enable REL asap}
     havebutton := true;
    end;
   call(update, dvr_rec);
   reading := false;

   if (not havebutton) and (extend <> 0) {kbd_terminator} then  {NOW we can try keyboard}
    with fibp(gfiles[2])^ do        {gfiles[2]^ is fib for keyboard file var}
     begin
      call(unitable^[funit].tm, fibp(gfiles[2]), unitstatus,
	   fibp(gfiles[2])^, 0, 0);
      if not fbusy then
       begin
	read(gfiles[2]^, achar);
	havebutton := true;
       end;
     end;

   if havebutton then
    if digitize_enabled then
     begin
      if last_button = 0 then
       begin
	last_button := -ord(achar);
	button := -1;
       end
     end
    else
     button := ord(achar);
  end;
end;

procedure hphil_rel_sample (  gcbi : graphics_input_control_block_ptr );

begin
  with gcbi^ do
    begin
      read_hphil_rel(info1, info2, info3);
      input_cpx := info1;
      input_cpy := info2;
    end;
end;

procedure hphil_rel_start_digitize ( gcbi : graphics_input_control_block_ptr );

begin
  digitize_enabled := true;
  with dvr_rec^ do
    begin
     reading := true;   {tell driver not to interfere}
     ncodes  := 0;              {cancel previous buttons}
     latch   := true;           {in await_locator}
     active  := true;           {ensure we're now sampling}
     call(update, dvr_rec);     {flush any pending dvr data to dvr_comm_rec}
     reading := false;  {let driver update record with future data}
    end;
   last_button := 0;
end;

procedure hphil_rel_get_digitize (  gcbi : graphics_input_control_block_ptr );
begin
  digitize_enabled := false;
  with gcbi^ do
   begin
    read_hphil_rel(info1, info2, info3);
    info3 := abs(last_button);
   end;
  with dvr_rec^ do      {erase from driver the button read into info3}
    begin
     reading := true;           {tell driver not to interfere}
     ncodes  := 0;              {cancel button read}
     latch   := false;          {allow updates w/new driver data}
     call(update,dvr_rec);      {flush any pending driver data}
     reading := false;          {allow driver updates}
    end;
   last_button := 0;
end;

procedure hphil_rel_input_echo (  gcbi : graphics_input_control_block_ptr );

begin
 with gcbi^ do
  if info1 <> 0 then
   begin
    beep;  {use 8042 (HPHIL controller) beeper for echo 1}
   end;
end;

procedure gle_init_hphil_rel_input (  gcbi : graphics_input_control_block_ptr);

const defaultx = 0;
      defaulty = 0;
begin
 with gcbi^ do
  begin
   error_return := 0;

   dvr_rec := gcbi^.info_ptr1;     {get comm_rec_ptr from DGL_CONFIG_IN}

   try   {check for device actually attached to rel driver}

    hphil_rel_get_input_hard_clip ( gcbi );    {escapes if no locator}

    {to get here there was at least one rel locator found on HPHIL. The
     configure operation in the HPHIL module will have got the
     loopdriver connected to all rellocators with IDs in proper range.}

    dvr_rec^.extend := 1;       {instead of line below}
   {kbd_terminator := true; {says a keypress can terminate await_locator}

    with dvr_rec^ do
     begin
      reading := true;   {tell driver not to interfere}
      ncodes  := 0;      {toss any previous buttons}
      latch   := false;  {disarm the digitize function}
      active  := true;   {allow driver to start acquiring data}
      xloc    := defaultx;      {set initial x,y}
      yloc    := defaulty;
      reading := false;  {and sending to dvr_rec}
     end;

    sample         := hphil_rel_sample;
    start_digitize := hphil_rel_start_digitize;
    get_digitize   := hphil_rel_get_digitize;
    inq_p1p2       := hphil_rel_get_input_p1p2;
    input_echo     := hphil_rel_input_echo;
    input_escapei  := hphil_rel_input_escapei;
    input_escapeo  := hphil_rel_input_escapeo;

    input_handler_name := 'HILREL';  {SFB}
    input_handler_char_count := 6;
    input_name         := 'HILREL';  {SFB}
    input_name_char_count    := 6;

    input_min_x := info1;
    input_max_x := info2;
    input_min_y := info3;
    input_max_y := info4;

    input_cpx := input_min_x;
    input_cpy := input_min_y;
    last_button := 0;
    digitize_enabled := false;

    with loopcontrol^.loopdevices[dev].descrip do
      if size16 then
       begin
	input_res_x := counts/10.0;
	input_res_y := counts/10.0;
       end
      else
       begin
	input_res_x := counts/1000.0;
	input_res_y := counts/1000.0;
       end;

   recover
    if escapecode = -26 then
     error_return := 1           {hphil_rel_get_input_hard_clip failed,
				  so no locator on loop}
    else
     escape(escapecode);         {other error encountered in init}
  end;  {with gcbi^}
end;


end. { hpgl_input }

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 309
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 309
{                                                                           }
{ Graphics Low End                                                          }
{                                                                           }
{ Module    = GLE_HPHIL_RELI                                                }
{ Programmer= SFB                                                           }
{ Date      = 9/09/85                                                       }
{                                                                           }
{ Purpose: To provide HPHIL relative locator input handler routines.        }

{ Rev history                                                               }
{  Created  -  3-20-85                                                      }
{  Hacked from GLE_HILI 9/9/85 SFB                                          }

{     (c) Copyright Hewlett-Packard Company, 1985.
      All rights are reserved.  Copying or other
      reproduction of this program except for archival
      purposes is prohibited without the prior
      written consent of Hewlett-Packard Company.


		  RESTRICTED RIGHTS LEGEND

      Use, duplication, or disclosure by the Government
      is subject to restrictions as set forth in
      paragraph (b) (3) (B) of the Rights in Technical
      Data and Computer Software clause in
      DAR 7-104.9(a).

      HEWLETT-PACKARD COMPANY
      Fort Collins, Colorado                              }


$SEARCH 'RGL', 'GLE_TYPES','GLE_UTLS', 'GLE_RGL', 'GLE_HILI'$
{$SEARCH '*LIBRARY.'$}

$modcal$ $DEBUG OFF$
$INCLUDE 'OPTIONS'$  { ******************* COMPILER OPTIONS ******************* }
$LINENUM 18000$
$ALLOW_PACKED ON$       {SFB 4/11/85}

module gle_hphil_reli;

import gle_types, sysdevs;

export

procedure gle_init_hphil_rel_input ( gcbi : graphics_input_control_block_ptr);

implement

import sysglobals, gle_utls, iocomasm, GLE_RAS_OUT,
       GLE_HPHIL_ABSI {for dvr_rec, of all things!};

var
 dev    : integer;
 digitize_enabled  : boolean;
 last_button : integer;         {see gle_knob for usage}

procedure hphil_rel_input_escapeo ( gcbi : graphics_input_control_block_ptr );

begin
{ with gcbi^ do
    begin
    end; }
end;

procedure hphil_rel_input_escapei ( gcbi : graphics_input_control_block_ptr );

begin
{ with gcbi^ do
    begin
    end; }
end;


procedure hphil_rel_get_input_hard_clip(gcbi : graphics_input_control_block_ptr );

var
  i,
  w,h   : integer;
  found : boolean;

begin
  w     := 0;
  h     := 0;
  found := false;
  with gcbi^ do
    begin
      dev := 0;
      for i:=1 to 7 do     {scale off first active abs locator}
       with loopcontrol^.loopdevices[i].descrip, dvr_rec^ do
	begin
	 if (NOT abscoords) and (bit_set(devices, i-1)) and (numaxes > 0) then
		     {only active devices}
	   begin
	    if not found then
	     begin
	      dev := i;   {scale off first locator found}
	      info1 := 0;
	      info2 := input_max_x;
	      info3 := 0;
	      info4 := input_max_y;
	     end;
	    maxcountx := info2;  {and make accessible to driver}
	    maxcounty := info4;  {for ALL active locators}
	    found := true;
	   end;
	end;
      if not found then
       begin
	dvr_rec^.devices := 127; {reenable locators that may have been masked}
	escape(-26);
       end;
    end;
end;

procedure hphil_rel_get_input_p1p2 ( gcbi : graphics_input_control_block_ptr );

begin           {set p1, p2 to hard clip limits for hphil abs locators}
  hphil_rel_get_input_hard_clip(gcbi);
end;

procedure read_hphil_rel(var x, y : integer; var button : integer);
var achar : char;
    havebutton : boolean;

begin
 if last_button < 0 then button := -1
 else                    button := 0;

 with dvr_rec^ do
  begin
   reading := true;     {tell driver not to update dvr_comm_rec}
   x       := xloc;
   y       := yloc;

   havebutton := false;

   if ncodes > 0 then           {pick up first button encountered only}
    begin
     achar := codes[1];    {don't read kbd here, as we wish to
			    re-enable REL asap}
     havebutton := true;
    end;
   call(update, dvr_rec);
   reading := false;

   if (not havebutton) and (extend <> 0) {kbd_terminator} then  {NOW we can try keyboard}
    with fibp(gfiles[2])^ do        {gfiles[2]^ is fib for keyboard file var}
     begin
      call(unitable^[funit].tm, fibp(gfiles[2]), unitstatus,
	   fibp(gfiles[2])^, 0, 0);
      if not fbusy then
       begin
	read(gfiles[2]^, achar);
	havebutton := true;
       end;
     end;

   if havebutton then
    if digitize_enabled then
     begin
      if last_button = 0 then
       begin
	last_button := -ord(achar);
	button := -1;
       end
     end
    else
     button := ord(achar);
  end;
end;

procedure hphil_rel_sample (  gcbi : graphics_input_control_block_ptr );

begin
  with gcbi^ do
    begin
      read_hphil_rel(info1, info2, info3);
      input_cpx := info1;
      input_cpy := info2;
    end;
end;

procedure hphil_rel_start_digitize ( gcbi : graphics_input_control_block_ptr );

begin
  digitize_enabled := true;
  with dvr_rec^ do
    begin
     reading := true;   {tell driver not to interfere}
     ncodes  := 0;              {cancel previous buttons}
     latch   := true;           {in await_locator}
     active  := true;           {ensure we're now sampling}
     call(update, dvr_rec);     {flush any pending dvr data to dvr_comm_rec}
     reading := false;  {let driver update record with future data}
    end;
   last_button := 0;
end;

procedure hphil_rel_get_digitize (  gcbi : graphics_input_control_block_ptr );
begin
  digitize_enabled := false;
  with gcbi^ do
   begin
    read_hphil_rel(info1, info2, info3);
    info3 := abs(last_button);
   end;
  with dvr_rec^ do      {erase from driver the button read into info3}
    begin
     reading := true;           {tell driver not to interfere}
     ncodes  := 0;              {cancel button read}
     latch   := false;          {allow updates w/new driver data}
     call(update,dvr_rec);      {flush any pending driver data}
     reading := false;          {allow driver updates}
    end;
   last_button := 0;
end;

procedure hphil_rel_input_echo (  gcbi : graphics_input_control_block_ptr );

begin
 with gcbi^ do
  if info1 <> 0 then
   begin
    beep;  {use 8042 (HPHIL controller) beeper for echo 1}
   end;
end;

procedure gle_init_hphil_rel_input (  gcbi : graphics_input_control_block_ptr);

const defaultx = 0;
      defaulty = 0;
begin
 with gcbi^ do
  begin
   error_return := 0;

   dvr_rec := gcbi^.info_ptr1;     {get comm_rec_ptr from DGL_CONFIG_IN}

   try   {check for device actually attached to rel driver}

    hphil_rel_get_input_hard_clip ( gcbi );    {escapes if no locator}

    {to get here there was at least one rel locator found on HPHIL. The
     configure operation in the HPHIL module will have got the
     loopdriver connected to all rellocators with IDs in proper range.}

    dvr_rec^.extend := 1;       {instead of line below}
   {kbd_terminator := true; {says a keypress can terminate await_locator}

    with dvr_rec^ do
     begin
      reading := true;   {tell driver not to interfere}
      ncodes  := 0;      {toss any previous buttons}
      latch   := false;  {disarm the digitize function}
      active  := true;   {allow driver to start acquiring data}
      xloc    := defaultx;      {set initial x,y}
      yloc    := defaulty;
      reading := false;  {and sending to dvr_rec}
     end;

    sample         := hphil_rel_sample;
    start_digitize := hphil_rel_start_digitize;
    get_digitize   := hphil_rel_get_digitize;
    inq_p1p2       := hphil_rel_get_input_p1p2;
    input_echo     := hphil_rel_input_echo;
    input_escapei  := hphil_rel_input_escapei;
    input_escapeo  := hphil_rel_input_escapeo;

    input_handler_name := 'HILREL';  {SFB}
    input_handler_char_count := 6;
    input_name         := 'HILREL';  {SFB}
    input_name_char_count    := 6;

    input_min_x := info1;
    input_max_x := info2;
    input_min_y := info3;
    input_max_y := info4;

    input_cpx := input_min_x;
    input_cpy := input_min_y;
    last_button := 0;
    digitize_enabled := false;

    with loopcontrol^.loopdevices[dev].descrip do
      if size16 then
       begin
	input_res_x := counts/10.0;
	input_res_y := counts/10.0;
       end
      else
       begin
	input_res_x := counts/1000.0;
	input_res_y := counts/1000.0;
       end;

   recover
    if escapecode = -26 then
     error_return := 1           {hphil_rel_get_input_hard_clip failed,
				  so no locator on loop}
    else
     escape(escapecode);         {other error encountered in init}
  end;  {with gcbi^}
end;


end. { hpgl_input }

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


38.1
log
@Automatic bump of revision number for PWS version 3.23a
@
text
@@


37.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


36.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


35.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


34.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


33.1
log
@Automatic bump of revision number for PWS version 3.22D
@
text
@@


32.1
log
@Automatic bump of revision number for PWS version 3.22C
@
text
@@


31.1
log
@Automatic bump of revision number for PWS version 3.22B
@
text
@@


30.1
log
@Automatic bump of revision number for PWS version 3.22A
@
text
@@


29.1
log
@Automatic bump of revision number for PWS version 3.22b
@
text
@@


28.1
log
@Automatic bump of revision number for PWS version 3.3b
@
text
@@


27.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


26.1
log
@Automatic bump of revision number for PWS version 3.3 Synch
@
text
@@


25.2
log
@For CATSEYE support
@
text
@@


25.1
log
@Automatic bump of revision number for PWS version 3.2Y
@
text
@@


24.1
log
@Automatic bump of revision number for PWS version 3.2
@
text
@@


23.1
log
@Automatic bump of revision number for PWS version 3.2P
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@@


21.1
log
@Automatic bump of revision number for PWS version 3.2M
@
text
@@


20.1
log
@Automatic bump of revision number for PWS version 3.2L
@
text
@@


19.1
log
@Automatic bump of revision number for PWS version 3.2K
@
text
@@


18.1
log
@Automatic bump of revision number for PWS version 3.2J
@
text
@@


17.1
log
@Automatic bump of revision number for PWS version 3.2I+
@
text
@@


16.1
log
@Automatic bump of revision number for PWS version 3.2I
@
text
@@


15.1
log
@Automatic bump of revision number for PWS version 3.2H
@
text
@@


14.1
log
@Automatic bump of revision number for PWS version 3.2G
@
text
@@


13.1
log
@Automatic bump of revision number for PWS version 3.2F
@
text
@@


12.1
log
@Automatic bump of revision number for PWS version 3.2E
@
text
@@


11.1
log
@Automatic bump of revision number for PWS version 3.2D
@
text
@@


10.1
log
@Automatic bump of revision number for PWS version 3.2C
@
text
@@


9.1
log
@Automatic bump of revision number for PWS version 3.2B
@
text
@@


8.1
log
@Automatic bump of revision number for PWS version 3.2A
@
text
@@


7.1
log
@Automatic bump of revision number for PWS version 3.2l
@
text
@@


6.2
log
@Pws2unix automatic delta on Wed Nov 19 15:16:12 MST 1986
@
text
@@


6.1
log
@Automatic bump of revision number for PWS version 3.2k
@
text
@d100 1
a100 14
	      { REMOVED AS GLE_GCBI DOES NOT PROVIDE ACCESS TO DISP_INIT, AND
		RASTER_DEVICE_RECPTR SFB 9/30/86}
	      {
	      if disp_init then    {SFB
	       begin
		info2 := raster_device_rec_ptr(gle_gcb^.dev_dep_stuff)^.hard_xmax;
		info4 := raster_device_rec_ptr(gle_gcb^.dev_dep_stuff)^.hard_ymax;
	       end
	      else
	       }
	       begin
		info2 := 32767 {1023};
		info4 := 32767 {767};
	       end;
d102 1
@


5.2
log
@Changes from Scott Bayes
@
text
@@


5.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@d33 2
a34 1
$SEARCH 'GLE_TYPES','GLE_UTLS'$
d51 1
a51 1
import sysglobals, gle_utls, iocomasm, DGL_VARS, GLE_RAS_OUT,
d100 4
a103 1
	      if disp_init then    {SFB}
d109 1
@


4.1
log
@Automatic bump of revision number for PWS version 3.2i
@
text
@@


1.3
log
@$search changes from Scott Bayes.
@
text
@@


1.2
log
@Changes from Scott Bayes.
@
text
@d33 1
a33 2
{ $SEARCH 'GLE_TYPES','GLE_UTLS'$ }
$SEARCH '*LIBRARY.'$
@


1.1
log
@Initial revision
@
text
@d281 2
@
