! ******************* concept1 ******************************
! +++ 
!
! Demonstration module for aircraft conceptual design
! 
! --- 
!
!
! Revision history
! _______________ 
!
! Copyright  1997-06-18 Gunnar Liden, All Rights Reserved
! 
! Released under the MIT License: 
! 
! Permission is hereby granted, free of charge, to any person 
! obtaining a copy of this software and associated documentation 
! files (the "Software"), to deal in the Software without 
! restriction, including without limitation the rights to use, 
! copy, modify, merge, publish, distribute, sublicense, and/or sell 
! copies of the Software, and to permit persons to whom the 
! Software is furnished to do so, subject to the following 
! conditions:
! 
! The above copyright notice and this permission notice shall be 
! included in all copies or substantial portions of the Software.
! 
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 
! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
! OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
! NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 
! HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
! WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 
! FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 
! OTHER DEALINGS IN THE SOFTWARE.

!
! ************************************************************

!sdesce Demonstration module for aircraft conceptual design
!sdescs Demonstrationsmodul for konceptuell konstruktion

GLOBAL GEOMETRY MODULE concept1 ();


BEGINMODULE

! +++ 
! Algorithm
! _________ 
! --- 


! +++
! Select planar shape in the main menu. Use default values
! ---

  PART(#1,plashape (500, 0.6, 2143.12, 900, 8850, 2200, 
                    12800, 4750, 14350, 14350, 15500, 
                    900, 3000, "FUTT35", 1));


! +++
! Select airfoil in the main menu and "1 type" in the sub-menu
! ---

  PART(#2,profile1(VEC(0.0, 1000.0000,  0.210000), 0.4, 
                   VEC(0.0,  812.2301,  9.479910), 
                   VEC(0.0,  691.1125,  19.28705), 0.5, 
                   VEC(0.0,  463.5880,  37.71000), 
                   VEC(0.0,  350.6500,  37.71000), 0.6, 
                   VEC(0.0,    0.0000,   0.00000), 0.7, 
                   VEC(0.0,  399.5500, -62.47000), 0.4, 
                   VEC(0.0,  700.6200, -12.27000), 
                   VEC(0.0,  585.9870, -62.47000), 
                   VEC(0.0, 1000.0000 , -0.21000), 
                   "Pro_11", 1));

! +++
! Select Z scale in the main menu 
! ---

  PART(#3,zscale (GLOBAL_REF(#1), 15, 13, 0.7, 4, 0.75, "Zsca_1", 1));

! +++
! Select aircraft in the main menu 
! ---

  PART(#4, aircraft (GLOBAL_REF(#1), GLOBAL_REF(#2), 
                     GLOBAL_REF(#3), "AC X", 1) :PEN=3);

! +++
! Select engine in the main menu 
! ---

  PART(#5,engine(GLOBAL_REF(#4), 400, 325, 1):PEN=2);

! +++
! Select intake in the main menu 
! ---

  PART(#6,intake(GLOBAL_REF(#5), 0.6, 900, 1000, 510, 1):PEN=2);

! +++
! Select canopy  in the main menu 
! ---

  PART(#7,canopy(GLOBAL_REF(#4), 0.1, 6000, 700, 1000, 1):PEN=9);

! +++
! Select fins in the main menu 
! ---

  PART(#8,fins(GLOBAL_REF(#4), 0.5, 600, 2600, 600, 2500, 30, 1):PEN=2);

! +++
! Basic system (for export of systems)
! ---

  CSYS_1P(#55, "AIRCRAFT", VEC(0,0,0), 0,0,0);

! +++
! Create Saab views and a special view
! ---

  PART(#35, saabvyer());

  CSYS_1P(#50,"nose_z", vec(0, 0, 0), -120, -140, 0:BLANK=1);
  CRE_VIEW("nose_z", #50);
  ACT_VIEW("nose_z");
  REP_VIEW(1);

! +++
! Define ligth
! ---

  LIGHT_VIEW(0, vec(0, 8, -3));

ENDMODULE