PYRAMID FILM 을 SURFACE로 디자인

!! 이번엔 수식을 조금 써서 만들어 봤다.

SYSTEM NEW
RESET

!!FILM                                                              
ZFILM=125

!!PYRAMID
ZHEIGHT=30
XHWIDTH=30; YHWIDTH=30
XNUM=3; YNUM=3
XSP=60; YSP=60
TX=XNUM*XSP
TY=YNUM*YSP

!!REFLECTOR
REFZPOSITION=-129
REFXHWIDTH=90; REFYHWIDTH=90;

!!DETECTOR
DETZPOSITION=34
DETXHWIDTH=90; DETYHWIDTH=90;  
 
!!LIGHT SOURCE
 !!LIGZPOSITION=-120
 !!LIGXWIDTH=180; LIGYWIDTH=180;
EMTNUM=100000

!!            
UNITS UM 'WATTS'
WAVELENGTH 555 NM

COATINGS PROPERTIES
  0 1 'TRANSMIT'
  1 0 'REFLECT'
  0 0 'ABSORB'
 
MEDIA
  1.7 'PYRAMI'
  1.5 'PET'

FRESNEL AVE
SPLIT 2 MONTECARLO
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!  FILM  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
SURFACE
  PLANE Z 0 RECT (XNUM*XSP/2) (YNUM*YSP/2)
  PLANE Z 0 RECT (XNUM*XSP/2) (YNUM*YSP/2)
    SHIFT Z -(ZFILM)
  PLANE X 0 RECT (YNUM*YSP/2) (ZFILM/2)
    SHIFT X (XNUM*XSP/2)
    SHIFT Z -(ZFILM/2)
  PLANE X 0 RECT (YNUM*YSP/2) (ZFILM/2)
    SHIFT X -(XNUM*XSP/2)
    SHIFT Z -(ZFILM/2)
  PLANE Y 0 RECT (ZFILM/2) (XNUM*XSP/2)
    SHIFT Y (YNUM*YSP/2)
    SHIFT Z -(ZFILM/2)
  PLANE Y 0 RECT (ZFILM/2) (XNUM*XSP/2)
    SHIFT Y -(YNUM*YSP/2)
    SHIFT Z -(ZFILM/2)
OBJECT
  .1 'FILE.1'
   INTERFACE COATING BARE PET AIR
  .2 'FILE.2'
   INTERFACE COATING BARE PET AIR
  .3 'FILE.3'
   INTERFACE COATING BARE PET AIR
  .4 'FILE.4'
   INTERFACE COATING BARE PET AIR
  .5 'FILE.5'
   INTERFACE COATING BARE PET AIR
  .6 'FILE.6'
   INTERFACE COATING BARE PET PYRAMI
GROUP FILE.?
COLOR 1

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!  PYRAMID  !!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SURFACE
  PLANE Z -1 RECT (XHWIDTH) (YHWIDTH)  
  ROOF Z (ZHEIGHT) (XHWIDTH) (YHWIDTH)
    ARRAY X (XNUM-1) (XSP) Y (YNUM-1) (YSP)
  ROOF Z (ZHEIGHT) (XHWIDTH) (YHWIDTH)
    ROTATE Z 90
    ARRAY X (XNUM-1) (XSP) Y (YNUM-1) (YSP)
OBJECT
  .2 'ROOF.1'
   INTERFACE COATING BARE PYRAMI AIR
   BOUNDS -.1 .3
  .1 'ROOF.2'
   INTERFACE COATING BARE PYRAMI AIR
   BOUNDS -.2 .3
  .3 'ROOF.BASE'
   BOUNDS MULTIPLE +.1 +.2
GROUP ROOF.?
COLOR 2
GROUP -3
SHIFT (XHWIDTH)-(XNUM*XSP/2) (YHWIDTH)-(YNUM*YSP/2) 0

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!  REFLECTOR  !!!!!!!!!!!!!!!!!!!!!!!!!!!! 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SURFACE
  PLANE Z (REFZPOSITION) RECT (REFXHWIDTH) (REFYHWIDTH)
OBJECT 'REFLECTOR'
INTERFACE COATING REFLECT AIR AIR
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!  DETECTOR  !!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SURFACE
  !!ELLIPSOID 3@1000 3@0
  PLANE Z (DETZPOSITION) RECT (DETXHWIDTH) (DETYHWIDTH)
OBJECT 'DETECTOR'
INTERFACE COATING ABSORB 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!! LIGHT  SOURCE   !!!!!!!!!!!!!!!!!!!!!!!! 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EMITTING RECT Z -127 90 90 (EMTNUM)                               
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!  ANYLYSIS  !!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!PLOT FACETS OVERLAY
TRACE !!PLOT COLOR 13
!!$VIEW
CONSIDER ONLY DETECTOR
PIXELS 51 1
WINDOW X Y

!!SPOTS DIRECTION ATT 0
SPOTS POSITION ATT 0

DISPLAY
 !!ANGLES
 AVE;AVE;AVE
 PICTURE
 !!DIRECTIONAL
RETURN