WELCOME TO  MOSES Rev DEVLOP
                         ============================
 
              This Program is licensed for the exclusive use of
 
                               Ultramarine, Inc
 
              Copying of this program or use  by  anyone  other
              than  an  employee  of  the  above  firm  without
              written  consent  of  Ultramarine   is   strictly
                                 prohibited.
 
 
 
                               +++ M A I N +++
                               ===============
 
 
>&dimen -save -dimen meters m-tons
>&device  -mecho n -g_default screen
>&title EXAMPLE OF SEMI-SUBMERSIBLE MODELING
>&set demo   = .false.
>&surface
                            +++ S U R F A C E +++
                            =====================
 
 
>block column -location 0 0 0 0 -90 0
                              +++ B L O C K +++
                              =================
 
 
>plane -0.5 0.1 3.7 19.45 23.239  -circ 0 0 5.335 0 30 7
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>block block2 -location 0 0 0 0 -90 10
                              +++ B L O C K +++
                              =================
 
 
>plane  -0.3  0.1 3.7 19.324  -circ 0 0 7.296  0 30 7
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>block block3 -location 0 0 0 0 -90 5
                              +++ B L O C K +++
                              =================
 
 
>plane -0.8  19.800  -circ 0 0 5  0 30 7
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>block block4 -location 0 -6.5  0 0 0 0
                              +++ B L O C K +++
                              =================
 
 
>plane -8 0 8   -rect -0.5 19.50 15
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>block brace -location 0 0 0 0 0 0
                              +++ B L O C K +++
                              =================
 
 
>plane -17 -16 0 16 17  -circ 0 0 1.385 0 30 7
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>block pontoon
                              +++ B L O C K +++
                              =================
 
 
>&set cur_stat = 6.500 16.558-7.3 16.558 16.558+7.3 43.990-7.3 43.990  \
       43.990+7.3 71.422-7.3 71.422 71.422+7.3 98.854-5.5 98.854 103.022
>plane 0          -cart    0      1.525 2.62   1.526 2.62   6.100 0      6.101
>plane 0.659      -cart    0      0.270 5.472  0.271 5.472  6.100 0      6.101
>plane 1.318      -cart    0      0.014 6.544  0.015 6.544  6.100 0      6.101
>plane 2.842      -cart    0      0.000 7.595  0.001 8.760  0.541 8.760   \
       5.473 7.595  6.100 0      6.101
>plane 6.500 16.558-7.3 16.558 16.558+7.3 43.990-7.3 43.990 43.990+7.3  \
       71.422-7.3 71.422 71.422+7.3 98.854-5.5 98.854 103.022 -cart    0       \
       0.000 7.595  0.001 8.673  0.447 9.120  1.525 9.120  4.575 8.673  5.653  \
       7.595  6.100 5.060  6.1003 2.530  6.1006 0      6.101
>plane 106.680    -cart    0      0.000 7.595  0.001 8.760  0.541 8.760   \
       5.473 7.595  6.100 0      6.101
>plane 108.204    -cart    0      0.014 6.544  0.015 6.544  6.100 0      6.101
>plane 108.863    -cart    0      0.270 5.472  0.271 5.472  6.100 0      6.101
>plane 109.522    -cart    0      1.525 2.62   1.526 2.62   6.100 0      6.101
>end
                            +++ S U R F A C E +++
                            =====================
 
 
>&set subt = CREATION OF TUBE FOR COLUMN BLISTER
>suplot block2 block3
>diff block2 block3 cyl
>&set subt = TUBE FOR BLISTER COMPLETED
>suplot cyl
>delete_block block2 block3
>&set subt = TUBE FOR BLISTER AND BLOCK TO CUT
>suplot cyl block4
>diff cyl block4 cut
>&set subt = BLISTER COMPLETED
>suplot cut
>delete_block cyl block4
>&set subt = BLISTER AND COLUMN ASSEMBLED
>suplot cut column
>union cut column col
>&set subt = COLUMN COMPLETED
>suplot col
>delete_block cut
>move_block col col_A  16.558 0.485 6.100 0 0 0
>move_block col col_B  43.990 0.485 6.100 0 0 0
>move_block col col_C  71.422 0.485 6.100 0 0 0
>del col
>move_block column col_D 98.854 0.485 6.100 0 0 0
>delete_block column
>move_block brace brace4 16.558 0 8.2 0 0 90
>move_block brace brace3 43.990 0 8.1 0 0 90
>move_block brace brace2 71.422 0 8.1 0 0 90
>delete_block brace
>&subtitle
>union col_B col_A tempo4
>delete_block col_B col_A
>&set subt = UNION OF COLUMNS 3 and 4
>suplot tempo4
>union col_C col_D tempo3
>&set subt = UNION OF COLUMNS 1 and 2
>suplot tempo3
>delete_block col_C col_D
>union tempo3 tempo4 cols
>&set subt = UNION OF ALL COLUMNS
>suplot cols
>delete_block tempo3 tempo4
>union pontoon cols element
>&set subt = UNION OF COLUMNS AND ONE PONTOON
>suplot element
>delete_block pontoon cols
>move_block element stbd 0 21.375 0 0 0 0
>delete_block element
>reflect_block stbd port y
>&set subt = REFLECTION PORTSIDE - STARBOARD
>suplot port stbd
>union port stbd hull
>delete_block port stbd
>&set subt = END OF HULL
>suplot hull
>union brace4 brace3 brace
>delete_block brace4 brace3
>&set subt = UNION OF TRANSVERSE BRACES 4 AND 3
>suplot brace
>union brace brace2 braces
>delete_block brace brace2
>&set subt = UNION OF ALL TRANSVERSE BRACES
>suplot braces
>union hull braces semisub
>&set subt = UNION OF TRANSVERSE BRACES AND HULL
>suplot semisub
>rename semisub
>&set subt = FINAL HULL
>suplot semisub
>emit semisub -part semisub
>emit semisub -piece ' -diftyp 3ddif'
>&dimen -remember
                          MOSES   Finished Normally
                          =========================
                           CP Time            10.02
                           ========================
                           Total Units        10.02
                           ========================