$DO 0 40 2
{
RAYS 0
!! Setup sources              
GRID ELLIPTIC Z (EPP) -4@(EPD*0.6) 50 50
  SOURCE DIRECTION 0 SIN[?] COS[?]
  FLUX TOTAL 10 !! Set first spectrum source flux
  MOVE TO Z -10
……
}

]]>