; Start a new document
;-New n n -_EnterEnd
New -_Enter

; Set units to m and metric tons
-_DocumentProperties _Units _ModelUnits _UnitSystem=Meter _Grid _SnapSpacing=1 -_EnterEnd
-_OrcaProperties ProjectTitle "Sample Ship Compartmentation Tutorial" CompanyName "Orca3D, LLC" Units Units=SI_tonne -_EnterEnd

; Create ship hull form
~-_OrcaCreateShipHull Draft=0 BulbEnabled=True -_EnterEnd
-_Zoom All Extents -_EnterEnd

; Create the Orca3D Design
~-_OrcaCreateDesign "My Orca3D Design" -_SelLast -_Enter Name "Hull 0" Join=Yes Mirror=Yes -_EnterEnd


; Create the Frame System
-_OrcaFrameSystem Show=Yes Particulars xFP=5 xAP=155 zBL=0 -_Enter Transform w5,0,0 FrameLabels 
Orientation=LongitudinalFrames MajorDivisions=5 MajorOffet=0
Orientation=VerticalFrames MajorDivisions=1 MajorOffset=0 -_Enter
AddFrames Orientation=LongitudinalFrames Naming=Ordinal 1,2,...,20,22,...,120,121,...,149,151,152,...,155
AddFrames Orientation=LongitudinalFrames Naming=Custom "FP" 0
AddFrames Orientation=LongitudinalFrames Naming=Custom "AP" 150
AddFrames Orientation=LongitudinalFrames Naming=Custom "A" -1
AddFrames Orientation=LongitudinalFrames Naming=Custom "B" -2
AddFrames Orientation=LongitudinalFrames Naming=Custom "C" -3
AddFrames Orientation=LongitudinalFrames Naming=Custom "D" -4
AddFrames Orientation=LongitudinalFrames Naming=Custom "E" -5
AddFrames Orientation=VerticalFrames Naming=Custom "BL" 0
AddFrames Orientation=VerticalFrames Naming=Custom "Tank Top" 2
AddFrames Orientation=VerticalFrames Naming=Custom "Fourth Dk" 5
AddFrames Orientation=VerticalFrames Naming=Custom "Third Dk" 8 
AddFrames Orientation=VerticalFrames Naming=Custom "Second Dk" 11 
AddFrames Orientation=VerticalFrames Naming=Custom "First Dk" 14
AddFrames Orientation=VerticalFrames Naming=Custom "Main Dk" 18 -_EnterEnd

; Create the subdivision model
~-_OrcaSubdivide "Hull 0" Type=TransverseBulkhead w15,0,0 w35,0,0 w65,0,0 w95,0,0 w125,0,0 w145,0,0
Type=HorizontalDeck w0,0,5 w0,0,8 w0,0,11 w0,0,14 -_EnterEnd
-_OrcaSubdivide PointInside w80,0,9 Type=ExtrudeCrv Normal=0,-1,0 w0,0,3 w15,0,3 w35,0,2 w115,0,2 w115,0,3 w138,0,3 -_EnterEnd
-_OrcaSubdivide PointInside w80,0,9 Type=Box XMin 125 XMax 127 YMin -1.99999999999999 YMax 1.06581410364015E-14 ZMin 8 ZMax 10 -_enter
-_OrcaSubdivide PointInside w80,0,9 Type=Box XMin 111 XMax 115 YMin 7 YMax Fit ZMin 2 ZMax 4 -_enter

-_Cylinder Solid=No 3Point w6,0,4 w7,0,3 w6,0,2 BothSides=Yes 5 -_EnterEnd
-_SelLast -_EnterEnd -_SetObjectName "Cylinder"
-_OrcaSubdivide PointInside w80,0,9 Type=CustomGeometry -_SelName "Cylinder" -_enter
-_SelNone -_SelName "Cylinder" -_enter -_Hide -_enterend
-_OrcaDeleteFaces FromCompartments PointInside 5.99519400808439,1.43173137939372E-11,3.42469436371164 -_enter
-_OrcaDeleteFaces FromCompartments PointInside 5.99572103225561,-1.676595433589E-10,2.58018971643373 -_enter

-_OrcaSubdivide PointInside w80,0,9 Type=LongitudinalBulkhead w0,4,0 w0,-4,0 SpecifyCompartment PointInside w109.71133746561,1.41565948000481E-09,1.40076531097808 PointInside w80.0810086386349,1.06055560631026E-09,1.05755448618087 PointInside w51.757014473267,-3.50691715973444E-09,1.08187870365474 -_Enter -_Enter
-_OrcaDeleteFaces FromCompartments PointInside 109.770014231605,-9.7679713213808E-10,6.50251259483575 PointInside 109.80100555124,-8.00251195749655E-12,9.50056707734702 -_enter
-_OrcaDeleteFaces FromCompartments PointInside 109.770014231605,-9.7679713213808E-10,6.50251259483575 PointInside 108.401283252368,-0.18003697367287,3.64507179401216 -_enter
-_OrcaMoveFaces UseSubdivider=False FromCompartments  PointInside 152.001688577533,-3.00252857467285E-11,16.0258630417945 PointInside 134.698964463179,1.92822398291308E-11,16.0045051640858 -_enter w147,0,0 -_EnterEnd
-_OrcaMoveFaces UseSubdivider=False FromCompartments  PointInside 134.668584366357,0.00644901438786701,9.51059945523842 PointInside 151.301437048506,1.56595661120421E-10,9.56355503464671 -_enter w143,0,0 -_EnterEnd

; Set compartment properties
-_OrcaCompartmentProperties PointInside w125.999999989209,-0.99999999999999,8.99999997841879 -_Enter 
Name "Day Tk" Permeability=0.95 Fluid "Diesel Oil" -_Enter
-_OrcaCompartmentProperties PointInside w112.979903643131,9.25234533638576,3.02847830662033 -_Enter 
Name "Lube Oil Tk" Permeability=0.95 Fluid "Lube Oil (Ship)" -_Enter
-_OrcaCompartmentProperties PointInside w53.4584321869648,-6.39339829857569,1.14936397002374 -_Enter 
Name "Ballast Tk #1 Port" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w50.0945979134586,2.70220318224658E-11,1.01594190758673 -_Enter 
Name "Fuel Tk #1" Permeability=0.95 Fluid "Diesel Oil" -_Enter
-_OrcaCompartmentProperties PointInside w80.1276301465344,-7.36894497751886,1.09246807120074 -_Enter 
Name "Ballast Tk #2 Port" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w80.0048087650517,5.03777236617208E-16,1.0005172628329 -_Enter 
Name "Fuel Tk #2" Permeability=0.95 Fluid "Diesel Oil" -_Enter
-_OrcaCompartmentProperties PointInside w109.492511862581,-7.1323222971487,1.43184743470216 -_Enter 
Name "Ballast Tk #3 Port" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w110.040567084898,6.45941305308302E-16,1.35399450984824 -_Enter 
Name "Fuel Tk #3" Permeability=0.95 Fluid "DIesel Oil" -_Enter
-_OrcaCompartmentProperties PointInside w127.311133521101,3.02337315728629E-09,2.50850916563351 -_Enter 
Name "Bilge" Permeability=0.95 Fluid "empty" -_Enter
-_OrcaCompartmentProperties PointInside w109.492511858028,7.13232228500869,1.43184743453139 -_Enter 
Name "Ballast Tk #3 Stbd" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w80.1276301383258,7.36894497730052,1.09246807103776 -_Enter 
Name "Ballast Tk #2 Stbd" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w53.4584321779127,6.39339829827101,1.1493639701499 -_Enter 
Name "Ballast Tk #1 Stbd" Permeability=0.95 Fluid "Seawater" -_Enter
-_OrcaCompartmentProperties PointInside w109.373334675831,-0.0536113724425947,6.70666629221387 -_Enter 
Name "Main Engine Room" Permeability=0.75 Fluid "empty" -_Enter

; Define DWL Load Case
-_OrcaManageLoadCases CurrentDesign
Create Constraints Sinkage 8 Trim 0 Heel 0 enter
TotalCG w0,0,7 ; only vcg is relevant since trim and heel are fixed
"Design Waterline: Intact"

; Define Full Load Departure Load Case
-_OrcaManageLoadCases CurrentDesign
Create
Loads
FixedLoads
AddFixedLoad Weight 7650 CG w100,0,9.95 "Light Ship"
AddFixedLoad Weight 8 CG w112,0,45 "Crew & Effects"
AddFixedLoad Weight 60 CG w21.42,0,21.04 "Provisions & Personnel Stores"
AddFixedLoad Weight 50 CG w34.57,0,21.04 "General Stores"
AddFixedLoad Weight 10000 CG w70.88,0,10.29 "Cargo"
AddFixedLoad Weight 10 CG w29.88,0,13.29 "Other Fixed Loads" enter
FluidLoads 
SetFluidLoad "Fuel Tk *" enter Mode=Intact Quantity QuantityType=Percentage 95 enter
SetFluidLoad "Ballast Tk *" enter Mode=Intact Quantity QuantityType=Percentage 50 enter
SetFluidLoad "Lube Oil Tk" enter Mode=Intact Quantity QuantityType=Percentage 90 enter 
SetFluidLoad "Day Tk" enter Mode=Intact Quantity QuantityType=Percentage 95 enter enter enter
"Full Load Departure: Intact" -_EnterEnd

;-_OrcaRunStabilityAnalyses "Stability Analysis" -_Enter ShowReport=Yes "Full Load Departure: Intact" -_Enter

; Create Heeling Arms
-_OrcaManageHeelingArms CurrentDesign 
Add Wind "Wind Heeling Arm" 2000 16 100 2 ; wind area, wind arm, wind speed, cosine power
Add Crowding "Crowding Heeling Arm" 100 10 1 ; weight, transverse loc, cosine power
Add Icing "Icing Heeling Arm" 100 100 20 2000 16 100 2; ice wght, ice xloc, ice zloc, wind area, wind arm, wind speed, cosine power
Add Turning "Turning Heeling Arm" 20 1000 15 1; speed, radius, lever arm, cosine power
Add Custom HeelingArmType=Lifting CustomDataType=ComputeFromMaxValue "Lifting" 20 20 100 1
-EnterEnd

; Create Points of Interest
-_OrcaPointsOfInterest CurrentDesign Add Name "Port Dk Downflood" Location w65,-12,18 Calculate=Yes IsDownflood=yes -_EnterEnd
-_OrcaPointsOfInterest CurrentDesign Add Name "Stbd Dk Downflood" Location w65,12,18 Calculate=Yes IsDownflood=yes -_EnterEnd

; Run Analysis
;-_OrcaRunStabilityAnalyses "Stability Criteria Evaluation" "Sample Criteria Set.Weather Criteria" "Wind Heeling Arm" -_Enter -_Enter 
;ShowReport=Yes ExportToXml=No "Design Waterline: Intact" -_EnterEnd