`An example demonstrating how to make a sail part by rotating sections.

proj rig
enter pm

create sails
class sail
comp main.s
`The station will be rotated to become a profile located 0.01 off centerline
`(this works better than using 0.).
`Transverse offsets will become longitudinal.
loc @ -.01 = 10 15, 10 60, 20 15
comp mizzen.s
loc @ -.01 = 25 15, 25 40, 30 15
/

write rig.gf

clear
create hull.c
ends 0 45
top 10
bot 5
out 5
/
write boat.gf
clear
quit pm

`Rotating each sail component and merging it into boat.gf:
mc rig.gf (sails\main.s) boat.gf /profile
mc rig.gf (sails\mizzen.s) boat.gf /profile

read boat.gf
display

draft 7
vcg 3
so we lcg
wind 50
hmmt wind
solve
st we di lp
hmmt report
end