!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

		DEMO	for LENSES


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

The following file is a description of a session in which a gaussian
source is traced through a simple optical system.
GEOMETRY:
   <        OE 1          >|<           OE 2           >
   *-------------------[---|-----]---------------------*
   S                   L1  CP    L2                    FI
index of refraction n:
n= |        1.0        |   1.5   |       1.0           |
where:
   S:   source
   L1:  first lens surface (notice detailed specifications in OE 1 )
        distance S-L1 is the physical source-lens distance.
   CP:  continuation plane (also called image plane). The CP is located 
        somewhere within the lens (e.g., 1 mm past the pole).
   L2:  back surface of the lens. The distance l2-l1 is the actual thickness
        of the lens.
   FI:  final image, where the final CP is located.
{1} FI is not necessarily located at the 'real' focus of the lens. The program
    FOCNEW can be used to locate the effective focus distance from FI.
{2} The object/image spaces are referred to each OE surface; this is important
    in specifying the index of refraction.
{3} For normal incidence systems the normal sequence of angle of incidences is
    0 deg for retroreflectors [ mirrors ], 180 for transmitting systems 
    [ lenses ].
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
System PSLC (vms 4.3)

Username: SHADOW
Password: 
        Welcome to VAX/VMS Version 4.3
       University of Wisconsin - Madison
         Physical Sciences Laboratory 

VAX C was upgraded to version 2.2.
Top Drawer plots can now be made on the new LN03S laser printer!
Read the Bulletin for more information.

    Last interactive login on Saturday, 14-JUN-1986 12:29
    Last non-interactive login on Tuesday, 25-FEB-1986 21:46

You are logged into _RTA1:

Graphic device [ e.g. TTB3: ] : tt:

All logical names command defined.

Enter $GO to activate SHADOW.
Enter HELPSHA for help.
Type NEWS for recent modifications.: 

$ go


  :::::::  :::    ::            :::    :::::::        :::::     :::  ::  ::
 ::::::::  :::    ::           ::::    ::::::::      :::::::    :::  ::  ::
:::        :::    ::          ::: :    :::   :::    :::    ::   :::  ::  ::
:::        :::    ::         ::: ::    :::    ::    :::    ::   :::  ::  ::
 :::::::   :::::::::        :::  ::    :::    ::    :::    ::   :::  ::  ::
  :::::::  :::::::::       :::   ::    :::    ::    :::    ::   :::  ::  ::
       ::  :::    ::      :::    ::    :::    ::    :::    ::   :::  ::  ::
      :::  :::    ::     :::     ::    :::   :::    :::   :::   ::: ::: :::
::::::::   :::    ::    :::      ::    ::::::::      :::::::     :::::::::
:::::::    :::    ::   :::       ::    :::::::        :::::       ::: :::




VERSION     86.4                                                19 JAN 1986




Hit <RETURN> when ready: 







                            S H A D O W


Commands Available at this level:

HELP              More informations on the following commands
INIT              Defines scratch directories and set default to scratch
MENU              Begins the process of defining an Optical System
TRACE             Starts the tracing of an Optical System from a specified
                  source file
SOURCE            Generates a source file
EXIT              Returns to DCL







Shadow:: source

SOURCE selected. Begin procedure.

This procedure generates a SOURCE for SHADOW.
Mode selected [ ? <ret> for HELP ] ? : ?
 Enter : 
MENU       for screen-driven menus
PROMPT            prompted session
NAMELIST     file-oriented session

This procedure generates a SOURCE for SHADOW.
Mode selected [ ? <ret> for HELP ] ? : prompt
Call to INPUT

---------------------------------- S H A D O W  -------------------------------
Jan 1986                                         F.Cerrina        ECE - UW     

Defining source : 
When prompted for a yes/no answer, you may enter:
for   YES  answer      Y, 1
for   NO   answer      anything else




Do you want a verbose [ 1 ] or terse [ 0 ] output ?
0
------------- SOURCE SPECS ------------------
Source modelling type [ 0-5 ] ? 
0
How many rays [ 1 - 5 000 ] ? 
1000
Seed [ odd, 1000 - 1 000 000 ] ? 
10101011
X-Z plane source type [ 0-3 ] ? 
3
Sigma along X ? 
.2
            Z ? 
.2
Source Depth [ 1-4 ] ? 
1
Source Angle Distribution [ 1-6 ] ? 
3
Horizontal half-divergence [ (+)x, rads ] ? 
.001
                           [ (-)x, rads ] ? 
.001
Vertical                   [ (+)z, rads ] ? 
.001
                           [ (-)z, rads ] ? 
.001
Vertical sigma [ rads ] ? 
.0001
Horizontal              ? 
.0001
Do you want a Photon energy [ Y/N ] ? 
Y
Energy distribution [ 1-3 ] ? 
1
Photon Energy [ 0 ] or Angstroms [ 1 ] ? 
1
Wavelength [ A ] ? 
4600
Do you want to store the optical paths (OPD) [Y/N] ?
N
Do you want to generate the A vectors (electric field) [Y/N] ?
N
Exit from INPUT_SOURCE


Generated          250 rays out of         1000
                   500
                   750
                  1000
Exit from SOURCE
SOURCE => Source has been succesfully generated.

SOURCE procedure completed.

Shadow:: ?


 ? Command not recognized ? 

 Legal commands are: 
EXIT     MENU     TRACE      SOURCE     HELP    INIT

Shadow:: Trace


Ray Tracing Selected. Begin procedure.


Mode selected [ ? <ret> for HELP ] ? : PROMPT
PROMPT selected.
Call to RESET
Exit from RESET


Mode selected is:
PROMPT                                                                         
Options: to start anew                 [ 0 ] 
            to restart from a given OE [ 1 ] 
Then ? 
0
Call to INPUT_OE



---------------------------------- S H A D O W  -------------------------------
Jan 1986                                         F.Cerrina        ECE - UW     

Defining Optical Element:  1
Continue ? [ ^Z or %EXIT to terminate OS ] 
Y
When prompted for a yes/no answer, you may enter:
for   YES  answer      Y, 1
for   NO   answer      anything else




Do you want a verbose [ 1 ] or terse [ 0 ] output ?
1

Let's define the optical or central axis of the system
for this particular optical element.
By this I mean a "virtual" line that runs throughout
the optical system. Along this line are located the 
"continuation" planes, where the OS is subdivided in the
individual OE. This line does not have to coincide with the
true optical axis, as it is used mainly for bookeeping the
data, but it helps greatly in the data analysis if this
identity is preserved as everything in the program is referred to it.
Once established, you still have complete freedom of
"moving" around the mirrors. 
In the case of a grating, you will have several choices. The 
program may override your specifications for the central axis 
and locate the source and image at the "best" position. 
You will be prompted later for this option.
It is recommended to use CM as units. This is not critical for
 most cases, but it is in the case of diffraction elements.
Optical Element definition:
Incidence Angle ? 
0
Source Distance ? 
1000
Reflection Angle? 
180
Image Distance  ? 
1
Reflector [ 0 ] or refractor [ 1 ] ? 
1
Enter the index of refraction in OBJECT space:
Object space: 
1
Enter the index of refraction in IMAGE space:
Image space: 
1.5
 Lets define the mirror. I may compute its parameters, like the
radius or the axes. This will not affect the rest of the calcu
lations; all the geometrical parameters may be modified later.
Or, you may wish to specify the mirror parameters yourself.


What kind of surface are we dealing with ?
spherical    = 1
elliptical   = 2
toroidal     = 3
paraboloid   = 4
plane        = 5
Codling slit = 6
hyperbolical = 7
cone      = 8
polynomial   = 9

Mirror surface [ 1-9] ? 
1
Do you want to specify the mirror parameters ?
Y
Is the mirror Cylindrical ? 
0
Are we dealing with a Grating ? 
0

Are we dealing with a crystal [ Y/N ] ? 
0
Is the mirror convex [ Y/N ] ? 
Y

Optical constants from file  ( for multi-line source ) ..... 0
Optical constants from keyboard  (single-line source ) ..... 1
Define multilayer from file                            ..... 2
Optical Constant Source: [file=0,tt:=1], multilayer [2] ?
1
 Mirror orientation angle. Angles are measured CCW, in deg,
referring to the mirror normal. Alpha=0 is the mirror
sitting at the origin, facing up. Alpha = 90 is the 
mirror standing at your right and facing left when you 
look along the beam STANDING ON THE PREVIOUS MIRROR and so on.
Orientation Angle [ Alpha ] ? 
0

Mirror Dimensions finite [ Y/N ] ?
0

Spherical Mirror Radius ? 
1000

 The Optical Element and the the relative mirror are now fully 
defined. The mirror pole is now located at the "center" of the 
optical element. It is possible to override this situation and 
"move" the mirror without affecting the rest of the system.
 It is also possible to move the "source" without affecting the
rest of the system.
 The movements are expressed in the DEFAULT Mirror Ref. Frame.
 so that if you move BOTH source and mirror the relative
movement is the vector sum of the individual ones.
A word of caution: SOURCE movements and MIRROR movements are
NOT equivalent from the point of view of the whole system.
Do you want to move the Source [ Y/N ] ? 
0
   
--- Mirror rotations and position. ---
We define three angles, as rotations around the three axis.
These rotation are  defined in the program as corrections to
the mirror nominal position; that is, they modify the mirror
position relative to the Default Mirror Reference Frame, where
all the calculations are performed. Remember that rotations
do NOT commute. I apply them in the same order of entry.
CW ROTATIONS are (+) angles. A translation can be also applied to the mirror.
Do you want to move the mirror itself [ Y/N ] ? 
0
Rippled surface [ Y/N ] ? 
0

Any screens in this OE [ Y/N ] ? 
0

Slit at continuation plane [ Y/N ] ? 
0
Extra Image plates [ Y/N ] ? 
0
File containing the source array ? 
BEGIN.DAT
Exit from INPUT
Do you want to modify some inputs ? 
0
Tracing optical element #            1
Call to SETSOUR
Exit from SETSOUR
Call to IMREF
Exit from IMREF
Call to OPTAXIS
Exit from OPTAXIS
Call to MSETUP
Exit from MSETUP
Call to RESTART
Exit from RESTART
Call to MIRROR
Exit from MIRROR
Call to IMAGE
Exit from IMAGE
Call to RESET
Exit from RESET

Do you want to change input mode ? 
0
Call to INPUT_OE
---------------------------------- S H A D O W  -------------------------------
Jan 1986                                         F.Cerrina        ECE - UW     

Defining Optical Element:  2
Continue ? [ ^Z or %EXIT to terminate OS ] 
Y
When prompted for a yes/no answer, you may enter:
for   YES  answer      Y, 1
for   NO   answer      anything else




Do you want a verbose [ 1 ] or terse [ 0 ] output ?
0

Optical Element definition:
Incidence Angle ? 
0
Source Distance ? 
4
Reflection Angle? 
180
Image Distance  ? 
1000
Reflector [ 0 ] or refractor [ 1 ] ? 
1
Enter the index of refraction in OBJECT space:
Object space: 
1.5
Enter the index of refraction in IMAGE space:
Image space: 
1
Mirror surface [ 1-9] ? 
1
Do you want to specify the mirror parameters ?
1
Is the mirror Cylindrical ? 
0
Are we dealing with a Grating ? 
0

Are we dealing with a crystal [ Y/N ] ? 
0
Is the mirror convex [ Y/N ] ? 
0

Optical Constant Source: [file=0,tt:=1], multilayer [2] ?
1

Orientation Angle [ Alpha ] ? 
0

Mirror Dimensions finite [ Y/N ] ?
0

Spherical Mirror Radius ? 
1500

Do you want to move the Source [ Y/N ] ? 
0
Do you want to move the mirror itself [ Y/N ] ? 

Rippled surface [ Y/N ] ? 


Any screens in this OE [ Y/N ] ? 


Slit at continuation plane [ Y/N ] ? 

Extra Image plates [ Y/N ] ? 

Exit from INPUT
Do you want to modify some inputs ? 

Tracing optical element #            2
Call to SETSOUR
Exit from SETSOUR
Call to IMREF
Exit from IMREF
Call to OPTAXIS
Exit from OPTAXIS
Call to MSETUP
Exit from MSETUP
Call to RESTART
Exit from RESTART
Call to MIRROR
Exit from MIRROR
Call to IMAGE
Exit from IMAGE
Call to RESET
Exit from RESET

Do you want to change input mode ? 

Call to INPUT_OE


---------------------------------- S H A D O W  -------------------------------
Jan 1986                                         F.Cerrina        ECE - UW     

Defining Optical Element:  3
Continue ? [ ^Z or %EXIT to terminate OS ] 
Continue ? [ ^Z or %EXIT to terminate OS ] 
