!!++
!! CAMERA_SYSTEM.INR
!! Title: Create Digital Camera Lens System
!! Category: Demo Project
!! Keywords: Lenses, camera, Zemax 
!! Description: Supporting script file for the BMP_to_Source
!! demo project. This script generates a digital camera system
!! and performs several ray traces, with a cutaway view shown
!! at the end. The system file is saved for use by the calling
!! script. This should be re-run anytime a new version of ASAP
!! is used with the main demo. This is because .SYS files may
!! change format from version to version.
!! Edit History (latest first)
!! 05/30/2001 - cp - added description; modified syntax
!! 01/18/1999 - mc - created
!!--

SYSTEM NEW
RESET

!! The following digital camera lens system was generated by
!! the Zemax to ASAP translator version 1.0. Some editing
!! performed for clarity.

UNIT MM
WAVE 0.4861327 0.5875618 0.6562725 MICRON
SPECTRUM 1 1 1

MEDIA
  1.70575108  1.69700249  1.69319756  'M697555'  !!GLASS MILITARY NUMBER
  1.82755627  1.80500611  1.79587644  'M805254'
  1.87235679  1.84700685  1.83678327  'M847238'
  1.73206001  1.72000336  1.71492412  'M720420'
  1.84875021  1.83500383  1.82920312  'M835427'
  1.50315319  1.49800149  1.49570106  'M498668'

!! ------------- ZEMAX surf=1 type=STANDARD
SURFACE
  OPTICAL Z 0 13.65 0 ELLIP 2@3.05
  OBJECT 'SURF1'
    INTERFACE 0 1  AIR M697555 
    REDEFINE COLOR 1

!! ------------- ZEMAX surf=2 type=STANDARD
SURFACE
  OPTICAL Z 0 4.284 0 ELLIPSE 2@2.5613
  OBJECT 'SURF2'
  INTERFACE 0 1  M697555 AIR  
   SHIFT Z 0.8
   REDEFINE COLOR 1

SURFACE
  PLANE Z 0 ELLIPSE 2@3.05 (2.5613)/3.05
  OBJECT 'SURF2F'
    INTERFACE 0 1  M697555 AIR
    SHIFT Z 0.8+0.85
    REDEFINE COLOR 1

SURFACE
  TUBE Z 0.3451137 2@3.05  0.8+0.85 2@3.05
  OBJECT 'TUB1_2'
  INTERFACE 0 1E-31 M697555 AIR
  REDEFINE COLOR 20


!! ------------- ZEMAX surf=3 type=STANDARD
SURFACE
  OPTICAL Z 0 34.227 0 ELLIPSE 2@2.41
  OBJECT 'SURF3'
    INTERFACE 0 1  AIR M805254 
    SHIFT Z 2.92
    REDEFINE COLOR 1

!! ------------- ZEMAX surf=4 type=STANDARD
SURFACE
  OPTICAL Z 0 -9.6 0 ELLIPSE 2@2.41
  OBJECT 'SURF4'
    INTERFACE 0 1  M805254 AIR  
    SHIFT Z 4.32
    REDEFINE COLOR 1

SURFACE 
  TUBE Z 2.92+.08496 2@2.41 4.32-.30743 2@2.41
  OBJECT 'TUB2_3'
    INTERFACE 0 1E-31 M805254 AIR
    REDEFINE COLOR 20

!! ------------- ZEMAX surf=5 type=STANDARD (aperture stop)
RING=4
HEXA=1  !! Parameter that is used to select the shape of the iris
HOLE_RAD=1.15
$IF (HEXA) EQ 0 THEN  !! Iris is circular
  SURFACE
    PLANE Z 0 ELLIPSE 2@(RING) (HOLE_RAD)/RING
    OBJECT 'STOP'
      INTERFACE 0 1E-31  AIR AIR  
      SHIFT Z 6.77
      REDEFINE COLOR 17
$ELSE  !! Iris is a 5 leaf pentagon
  R=HOLE_RAD
  EDGE 
    POINTS (R)*SIN[36] -(R)*COS[36] 0 1 (R)*SIN[72] (R)*COS[72] 0 1,
           0 (R) 0 1 -(R)*SIN[72] (R)*COS[72] 0 1,
           -(R)*SIN[36] -(R)*COS[36] 0 1
  SURFACE
    PLANE Z 0 ELLIPSE 2@(RING) 
  OBJECT 'STOP'
    INTERFACE 0 1E-31  AIR AIR 
    BOUNDS 0.2
    SHIFT Z 6.77
    REDEFINE COLOR 17
    FACET 6 6
$ENDIF
 
!! ------------- ZEMAX surf=6 type=STANDARD
SURFACE
  OPTICAL Z 0 -4.626 0 ELLIPSE 2@1.47067
  OBJECT 'SURF6'
    INTERFACE 0 1  AIR M847238  
    SHIFT Z 8.21
    REDEFINE COLOR 1

SURFACE
  PLANE Z 0 ELLIPSE 2@2.1  (1.47067)/2.1
    SHIFT Z 8.21-0.24
  OBJECT 'SURF6F'
    INTERFACE 0 1 AIR M847238
    REDEFINE COLOR 1

!! ------------- ZEMAX surf=7 type=STANDARD
SURFACE
  OPTICAL Z 0 4.626 0 ELLIPSE 2@2.1
  OBJECT 'SURF7'
    INTERFACE 0 1 M847238 M720420 
    SHIFT Z 9.11
    REDEFINE COLOR 1

SURFACE 
  OPTICAL Z 0 4.626 0 ELLIP 2@2.1
    SHIFT Z 9.11
  TUBE Z 8.21-0.24 2@2.1 9.11+.50412 2@2.1
  OBJECT 'TUB6_7'
    INTERFACE  0 1E-31 AIR M847238
    REDEFINE COLOR 20

!! ------------- ZEMAX surf=8 type=STANDARD
SURFACE
  OPTICAL Z 0 -4.626 0 ELLIPSE 2@2.1
  OBJECT 'SURF8'
    INTERFACE 0 1  M720420 AIR  
    SHIFT Z 11.56
    REDEFINE COLOR 1

SURFACE
  TUBE Z 9.11+.50412 2@2.1 11.56-.50412 2@2.1
  OBJECT 'TUB7_8'
    INTERFACE 0 1E-31 AIR M720420
    REDEFINE COLOR 20

!! ------------- ZEMAX surf=9 type=STANDARD
SURFACE
  OPTICAL Z 0 15.243 0 ELLIPSE 2@2.3
  OBJECT 'SURF9'
    INTERFACE 0 1  AIR M835427  
    SHIFT Z 11.66
    REDEFINE COLOR 1

!! ------------- ZEMAX surf=10 type=STANDARD
SURFACE
  OPTICAL Z 0 -15.243 0 ELLIPSE 2@2.3
  OBJECT 'SURF10'
    INTERFACE 0 1  M835427 AIR  
    SHIFT Z 13.13
    REDEFINE COLOR 1

SURFACE 
  TUBE Z 11.66+.17452 2@2.3 13.13-.17452 2@2.3
  OBJECT 'TUB9_10'
    INTERFACE 0 1E-31 AIR M835427
    REDEFINE COLOR 20

!! ------------- ZEMAX surf=11 type=STANDARD
SURFACE
  OPTICAL Z 0 0 0 ELLIPSE 2@2.6
  OBJECT 'SURF11'
    INTERFACE 0 1 AIR M498668  
    SHIFT Z 17.49
    REDEFINE COLOR 1

!! ------------- ZEMAX surf=12 type=STANDARD
SURFACE
  OPTICAL Z 0 0 0 ELLIPSE 2@2.6
  OBJECT 'SURF12'
    INTERFACE 0 1 M498668 AIR  
    SHIFT Z 20.61
    REDEFINE COLOR 1

SURFACE 
  TUBE Z 17.49 2@2.6 20.61 2@2.6
  OBJECT 'TUB11_12'
    INTERFACE 0 1E-31 AIR M498668
    REDEFINE COLOR 20

SURFACE
  PLANE Z 0 RECT 3.76 2.82
  OBJECT 'IMAGE_SURF'
    INTERFACE 0 0  AIR AIR  
    SHIFT Z 21.887934489
    REDEFINE COLOR 17
RETURN

!! Crude box
SURFACE
  PLANE Z 0.26 ELLIPSE 2@4 3.03/4
  OBJECT 'CAM_FRONT'
    REDEFINE COLOR 17

SURFACE 
  TUBE Z 0.26 2@4 22 2@4
  OBJECT 'CAM_TUBE'
    REDEFINE COLOR 17

SYSTEM TO CAMERA  !! Save system to file

WINDOW Y Z
PIXELS 345

WAVELENGTH 0.5875618

GRID ELLIPTIC Z 4.40802 -4@1.87983/2 1 5
  SOURCE DIRECTION 0 TAN[0] 1
  MOVE TO Z -1.87983/2
WINDOW Y Z
PROFILES OVERLAY 'Camera Lens System'
$IO VECTOR REWIND
TRACE PLOT COLOR 1 OVERLAY

GRID ELLIPTIC Z 4.40802 -4@1.87983/2 1 5
  SOURCE DIRECTION 0 TAN[17.5] 1
  MOVE TO Z -1.87983/2
TRACE PLOT COLOR 1 OVERLAY

GRID ELLIPTIC Z 4.40802 -4@1.87983/2 1 5
  SOURCE DIRECTION 0 TAN[24.6] 1
  MOVE TO Z -1.87983/2
TRACE PLOT COLOR 1

SURFACE
  PLANE X 0

CONSIDER EXCEPT 0.1:0.3

!! Add in 90 degree cut

$DO 1 7
  OBJECT ?; BOUNDS 0.1

$DO 9 20
  OBJECT ?; BOUNDS 0.1

RAYS 0
PLOT FACETS 4 4 'Faceted View of Lens System'

$SCR 3 
 Geometry of system has been saved.
 You will now be taken back to the main program.
                                     \DUMMY:?
$VIEW
RETURN