THERE IS NOW A NEW FOUNCTION IN  MIGS. IT IS PICT, PICT IS ANOTHER  WAY
OF DEFINING A  MCELL. PICT LOOKS  VERY MUCH LIKE  DEFINE IN SYNTACS.  IT
ALSO RETURNS THE ATOM THAT YOU GAVE  IT ,SO  <DISP <PICT A .....>>  WILL
WORK. THE CALL TO PICT IS:

<PICT ATOM ("STRING1" ..."STRINGN") <-BODY-> >

 ATOM IS THE ATOM WHO  IS PUT ON THE OBLIST  MCELLS AND ITS LVAL IS  THE
MCELL. THE LIST HAS OPTIONAL STRINGS  THAT MODIFY THE MCELL. IF YOU  USE
THE DEFAULTS THIS  MUST BE  A EMPTY  LIST. AT  THE MINUTE  THE ONLY  TWO
THINGS MIGS PAYS ATTENTION TO ARE THE VISIABILITY AND DIMENSIONALITY  OF
THE MCELL. THE DEFAULT  IS TO 3D  AND VISIABLE. YOU  ONLY NEED GIVE  THE
STRINGS THAT  ARE DEFFERENT  THEN THE  DEFAULTS, AND  THE ORDER   DOESNT
MATTER. THE  FOLLOWING STRINGS  HAVE MEANING  TO PICT;  FOR  VISIABILITY
,"VIS" IS VISIABLE ,AND "INV" IS INVISIABLE. FOR DIMENSIONALITY, "2D" IS
TWO DIMENSIONAL, AND "3D" IS THREE  DIMENSIONAL. BODY IS THE SAME AS  IT
IS FOR MCELL, THAT IS  IT CAM BE ANY MUDDLE  OBJECT, BUT IT SHOULD  HAVE
SOME MIGS GRAPHICAL PRIMITIVES IN IT.

EX.PICT.1
<DISP <PICT FOOBAR			;"THE MCELL FOOBAR IS TO BE MADE"
	    ("VIS" "3D")		;"THE MCELL IS VISIABLE AND 3D,
					  IN THIS CASE I HAVE USED A EMPTY
					  LIST."
	    <PLOTV ![0 0 800 800 0]
		   ![0 800 800 0 0]>		;"DRAW A BOX"
	    <CALL SPCST <ROTX -.7><ROTY 1.0>>	;"DISPLAY THE MCELL SPCST">>



 THERE IS NOW  A PACKAGED VERSION  OF MIGS! AT  THE MINUTE IT  IS IN  MY
PRIVIAT LIBRARY BUT  I WILL MOVE IT  IN TO THE PUBLIC LIBRARY TODAY.  TO
GET IT SAY <MIGS:>$ OR <USE "MIGSPK">$ .




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;		THURSDAY  MAY 29,1980  01:59:52
;;;		New packages added to migs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Package HPTEK ...

		  This package contains two functions, HPTON and HPTOFF.
		  These functions are  used to place  a Hp-2648 or  2649
		  tectronix emulation mode and reset emulation mode. The
		  way to use  the package is  to load migs  and set  the
		  terminal to a tek scope. Now <USE "HPTEK">$ and type:

		  <HPTON>$  ... To enter tektronix emulation mode
		  <HPTOFF>$ ... To exit tektronix emulation mode

Package SWCHAR ...

		  This package is the basic software character generater
		  for MIGS.  SWCHAR uses  the Imlac  SSV character  set.
		  This package is still in  a primitive state, but  will
		  let you  place a character anywhere on the screen,  or
		  in any mcell. This allowing  you to place a  character
		  anywhere in  3-space  and  at  any  orientation.  This
		  package contains three  functions CHARGE, MCHARG,  and
		  SHEAR. CHARGE is the character generater that displays
		  it's  character  immediately  on  the   scope.  MCHARG
		  places its character  in the mcell  where its  called.
		  SHEAR is  a transform  that shears  a mcell  based  on
		  magnitude of  the y  coordinates  of all  end  points.
		  SHEAR is is used to italicize a character.

Function			Args.	     Description
<CHARGE .CHR .X .Y .SCL>	3 - 4	Displays .chr (type character) at
					point .x .y (type fix) with a scale
					factor of .scl (type <OR FIX FLOAT>).
					Scl is optional and defaults to 1.0 .

<MCHARG .CHR .X .Y .SCL>	3 - 4	Places a call to the character who
					is the lval of CHR in a mcell. At
					position .X .Y (type <OR FIX FLOAT>)
					scale of .SCL (type <OR FIX FLOAT>).
					SCL is optional and defaults to 1.0 .

<SHEAR .ANG>			0 - 1	Shear is a 3D shear transform used
					produce italics. ANG is the angle of
					shear from the y axis. ANG is optional
					and defaults to .785 radians.


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;		THURSDAY  DEC 11,2021  11:54:00
;;;		New functions added to SWCHAR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function			Args.	     Description
<SWTEXT .STR .X .Y .SP>		1 - 4	This function will plot one line
					text. All control characters as SSV's ^character.
					All paramiters but STR , the string are optional.
					(X, Y) is the screen postion for the start of the 
					string. (x,Y) defaults to (0,500). SP the spacing 
					in  screen  coordinates   from  the start of  the
					current character to the start of the next character.
					It defaults to 12.
					
<SWTXT2 .STR .X .Y .SP>		1 - 4	This function will plot multiple
					lines of text from the in the text string STR.
					All paramiters but STR , the string are optional.
					(X, Y) is the screen postion for the start of the 
					string. (x,Y) defaults to (0,500). SP the spacing 
					in  screen  coordinates   from  the start of  the
					current character to the start of the next character.
					It defaults to 12. This function know how to handle
					CR, <ASCII 13>, and L, <ASCII 10> corectly. the
					inter-line separation is 25 screen unites.
					
<SWTXT3 .STR .X .Y .SP>		1 - 4	This function identical to SWTXT2,
					but also handles tabs, <ASCII 09> correctly.
					The default tab stops are every 4th charactedre
					position. The GVAL of SPCTAB!-ISWCHAR!-PACKAGE 
					set to the default tab spacing in characters. SETGing
					it to 8 works well with Muddle.