; -------------------------------------------------------------------------
;   ATH Tritonia-S Waveguide
;   Marcel Batik, 01/2025
;
;   This Ath script is provided under the CC BY-NC-SA 4.0 licence.
; -------------------------------------------------------------------------

Scale = 0.48

Throat.Profile = 1 ; OS-SE
Throat.Diameter = 52.917 ; = 25.4/Scale [mm]
Throat.Angle = 10 ; [deg]
Length = 135 ; [mm]

Coverage.Angle = 48.5 - 7*cos(2*p)^5 - 16*sin(p)^12 ; [deg]

; OS-SE termination
Term.s = 0.7 + 0.2*cos(p)^2
Term.n = 3.7
Term.q = 0.992

; Raw shape -> rectangle transformation
Morph.TargetShape = 1
Morph.FixedPart = 0.0
Morph.Rate = 3
Morph.CornerRadius = 18 ; [mm]

; Enclosure definition
Mesh.Enclosure = {
  Spacing = 25,25,25,280 ; Front-baffle space around the waveguide [mm]
  Depth = 300 ; Depth of the enclosure [mm]
  EdgeRadius = 18 ; [mm]
  EdgeType = 2 ; 1 = rounded, 2 = chamfer
  FrontResolution = 12,12,20,20 ; Mesh resolution (4 front corners) [mm]
  BackResolution = 40,40,40,40 ; Mesh resolution (4 back corners) [mm]
  
  LFSource.B = { ; Woofer definition
    Radius = 80 ; [mm]
	Spacing = 40 ; Distance from the waveguide [mm]
	DrivingWeight = 0  ; 0 = not an active source, just a boundary
	SID = 1
  }
}

; Mesh Settings
Mesh.Quadrants = 14
Mesh.VerticalOffset = 80

Mesh.AngularSegments = 80
Mesh.LengthSegments = 18
Mesh.CornerSegments = 4

Mesh.ThroatResolution = 4 ; [mm]
Mesh.MouthResolution = 10 ; [mm]
Mesh.InterfaceResolution = 8 ; [mm]

; Disable subdomain interface, i.e. set this to empty value
Mesh.SubdomainSlices =

ABEC.SimType = 2 ; free space
ABEC.f1 = 400 ; [Hz]
ABEC.f2 = 16000 ; [Hz]
ABEC.NumFrequencies = 40
ABEC.MeshFrequency = 1000 ; [Hz]

ABEC.Polars:SPL_H = {
  MapAngleRange = 0,180,37  ; [deg]
  Distance = 2 ; [m]
  NormAngle = 10 ; [deg]
}

ABEC.Polars:SPL_V = {
  MapAngleRange = 0,180,37  ; [deg]
  Distance = 2 ; [m]
  Inclination = 270 ; [deg]
  NormAngle = 10 ; [deg]
}

Output.ABECProject = 1
Output.STL = 0

Report = {
  Title = "ATH Tritonia-S"
  PolarData = SPL_H
  PolarDataV = SPL_V
  NormAngle = 10
}