#
#	 newFASANT script file 
#
#	Creates a slotted cavity with 6 slots,
#	with the following specifications:
#		f: center frequency of operation, in Hz
#		c: speed of light in vacuum, in meters per second
#		a: with of the cavity, in meters
#		b: height of the cavity, in meters
#	from the previous parameters, the next ones are obtained
#		lambda: wavelength
#		fc: lower cut-off frequency	
#		lambdag: wavelength at cut-off frequency
#		d: distance from the last slot to the end, in meters
#		L: distance between adjacent slots, in meters
#		SlotLength: Length of the slots, in meters
#		SlotThin: Width of the slots, in meters
#		SlotGap: Separation between two rows of slots, in meters
#		dStart: distance from the first slot to the start, in meters
#		Length: total length of the cavity, in meters
#			
#	See http://www.antenna-theory.com/antennas/aperture/slottedwaveguide2.php for further information
#
#	Parameters with fixed values

set f {1.0E10}
set c {3.0E8}
set a {0.02286}
set b {0.01016}
#	Dependent parameters

set lambda  = c/f
set fc  = c/(2*a)
set lambdag  =lambda/Math.sqrt(1-Math.pow(fc/f,2.0))
set d  = lambdag/4.0
set L  = lambdag/2.0
set SlotLength  = 0.5*lambda
set SlotThin  = 0.05*lambda
set SlotGap  = a/4.0
set dStart  = lambdag
set Length  = dStart+5.0*L+d
#
#	Auxiliary parameters defined automatically

set $1  = -Length/2
set $2  = -a/2
set $3  = -b/2
set $4  = ((Length-SlotLength)/2.0)-d
set $5  = (SlotGap-SlotThin)/2.0
set $6  = ((Length-SlotLength)/2.0)-d-(2*L)
set $7  = ((Length-SlotLength)/2.0)-d-(4*L)
set $8  = ((Length-SlotLength)/2.0)-d-L
set $9  = -(SlotGap+SlotThin)/2.0
set $10  = ((Length-SlotLength)/2.0)-d-(3*L)
set $11  = ((Length-SlotLength)/2.0)-d-(5*L)
#
#	Box primitive, specified by the name of resulting object;
#	and its geometric parameters (-p) (lower corner X Y Z, width, depth, height)
#	It creates the main structure cylinder of the cavity

box -n BoxMain -p $1 $2 $3 Length a b
#
# 	Explode the cavity object in several surfaces

explode -s BoxMain
#
# 	Remove the surface placed in the waveguide port

delete -s BoxMain_5
#
#	Box primitives, specified by the name of resulting objects;
#	and its geometric parameters (-p) (lower corner X Y Z, width, depth, height)
#	It creates the boxes that will be used for removing the slots regions

box -n BoxSlot1 -p $4 $5 0.0 SlotLength SlotThin b
box -n BoxSlot2 -p $6 $5 0.0 SlotLength SlotThin b
box -n BoxSlot3 -p $7 $5 0.0 SlotLength SlotThin b
box -n BoxSlot4 -p $8 $9 0.0 SlotLength SlotThin b
box -n BoxSlot5 -p $10 $9 0.0 SlotLength SlotThin b
box -n BoxSlot6 -p $11 $9 0.0 SlotLength SlotThin b
#
# 	Boolean Outside operation of two objects: only the surfaces of the objectA
#	which are outside the objectB are returned.
#	It provides the final cavity 

booleanOutside -s -objectA BoxMain_1 BoxMain_2 BoxMain_3 BoxMain_4 BoxMain_6 -objectB BoxSlot1 BoxSlot2 BoxSlot3 BoxSlot4 BoxSlot5 BoxSlot6 -n slottedCavity