;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                    ;;
;; DynKit v2.03                                                       ;;
;; Copyright (C) 1998 by Konstantin Kukushkin.                        ;;
;;                                                                    ;;
;; An example section 15 scenery using a section 10 object.           ;;
;;                                                                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Displays a flying saucer performing a simple motion.
; Location: Munich, Germany, beginning of the runway 8R.

; Begin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.include "fsahead.def"
.include "dynkit.def"

.BGLHead 1,90d,-90d,179d,-179d

.Section 15
LatRange -90d,90d

.Relative 48d20'41.5021",11d45'18.1544",1486 ft

DynGroup 25 km,-25 km,25 km,-25 km,48d20'41.5021"

PatternDefEx Saucer:,VerySparse|GroundTraffic|AirTraffic, \
    0A9h,0CDh,0C2h,000h,0AAh,000h,0E1h,0A9h,\
    0D0h,013h,035h,073h,013h,050h,09Ah,008h
EndPatternDef

; Flying saucer code.

Saucer:

ColScheme 0f003h,0f007h,0f005h,0f004h
DynColor 4, DynRotorStill
DynGear GearDown
DynPositionEx 4 m,0,0,0 ; Set position & some internal vars
DynHeading 80 deg

; Spin up the rotor.

DynColor 4,DynRotorStill
DynHold 4
DynColor 4,DynRotorSlow
DynHold 4
DynColor 4,DynRotorFast

; Take off
DynMoveTo 0,0,10,2 kts

; Retract the landing gear.
DynGear GearUp

; Ascend to 100 meters altitude.
DynMoveTo 0,0,100,20 kts

; Fly 100 meters to the North.
DynMoveTo 100,0,100,30 kts

; Descend to 20 meters.
DynMoveTo 100,0,20,20 kts

; Extend the landing gear.
DynGear GearDown

; Land
DynMoveTo 100,0,4 m,2 kts

; Spin down the rotor.

DynColor 4,DynRotorSlow
DynHold 4
DynColor 4,DynRotorStill

; Sleep.

DynSleep
DynJump Saucer:

EndDynGroup
EndLatRange

.Absolute
.Zero