`Demonstrates how the permeability of any component can be changed in order
`to get more accurate wind plane representation when it is shielded by
`another component.
`
`The steps are as follows.
` 1. Set up a condition and capture the draft and trim in user variables.
` 2. Use Part Maker to modify the permeability of one or more components
`    and/or delete parts or components.
` 3. With the modified geometry, set the trim and draft then capture the
`    heeling moment in a user variable.
` 4. Reread the original geometry file.
` 5. Reestablish the condition.
` 6. Reset the heeling moment from the user variable.
` 7. Run the stability calculation.

project windmod
page 1

`Create a test vessel
enter pm
create hull
ends 0 100
top 10
bot 0
out 10
comp stack.s
ends 70 80
top 20
bot 10
in 8
out 10
comp stack.p
ends 70 80
top 20
bot 10
in 8
out 10
/
create sponsons
class hull
ends 20 80
top 10
bot 3
out 11
in 10
/
write windmod.gf
quit pm

display

macro windmod
enter pm
modify stack.p
perm 0.25
//
delete sponsons
write temp.gf
qu pm
/

macro liteship
type (*) intact
load (*) 0
heel 0 | trim 0 | depth 5
vcg 5
solve weight lcg
/

report
page keep on
\\\\\\\Demonstration\
\\\Deriving Heeling Moment\
\\with\
\\Wind Plane Corrections\
\\\\

macro cond `pass the particular condition macro name as a parameter
report off
.%1
heel 0
solve trim
variable t,d
set t = {trim}
set d = {depth}
.windmod 0.25
.%1
heel 0
trim {t}
depth {d}
hmmt wind /const
report /a
hmmt report
report off
set t={hmmt}
read windmod.gf
.%1
hmmt {t}
report /a
.calc
/

macro a
.liteship
wind 50
add "Weight A" 20 50 0 5
/

macro b
.liteship
wind 100
add "Weight B" 40 50 0 5
/

macro calc
solve
status
ra 0
/

.cond a
.cond b

view
report off