;Just a single source plane in empty space (1d)

(define L 22) ;total size of the volume
(define w 1)
(define-param srctype Ex)   ;specify Ex or Hy
(set! dimensions 1)
(set! resolution 20)
(set! Courant 0.5)

(set! geometry-lattice (make lattice (size no-size no-size L)))

(set! sources (list
               (make source
                 (src (make custom-src (src-func (lambda (t)  (exp (- (/ (sqr (- t 5)) (* 2 w w))))  ))))
                 (component srctype)
                 (center 0 0 0)
                 (size 0 0 0))
))

(set! pml-layers (list (make pml (thickness 1))))

(use-output-directory "ehexample")
(run-until 16 (at-time 5 output-efield-x output-hfield-y) )
(output-real-field-function "z" '() (lambda (r) (vector3-z r)))