--      _                             
--   __| |_ __ __ _  __ _  ___  _ __  
--  / _` | '__/ _` |/ _` |/ _ \| '_ \ 
-- | (_| | | | (_| | (_| | (_) | | | |
--  \__,_|_|  \__,_|\__, |\___/|_| |_|
--                  |___/             

include video

define dragon of_type video as layer
    layer entirely shift_by neg vi pos iii center_head layer
        right_half 
        for vi rotate entirely shift west entirely flip_over_y right_half
    entirely shift_by neg iii neg iv swinging_tail

define center_head of_type video as loop art xii ix
   )  (     ...7..7.....    )  (    ....7..7....     )  (   .....7..7...
  ((__))    ..776677....   ((__))   ...776677...    ((__))  ....776677..
  /o..o\    ..636636....   /o..o\   ...636636...    /o..o\  ....636636..
 ( -vv- )   .6|6776|6...  ( -vv- )  ..6|6776|6..   ( -vv- ) ...6|6776|6.
  \ __. \   ..6|666|6...   ) __ (   ...6|66|6...   / .__ /  ...6|666|6..
   )     \  ...6|||||6..  /      \  ..6||||||6..  /     (   ..6|||||6...
  /       \ ..6|||||||6. /        \ .6||||||||6. /       \  .6|||||||6..
 '         ).6|||||||||6(          )6||||||||||6(         ` 6|||||||||6.
          ' ..||||||||6.            .||||||||||. `          .6||||||||..

define right_half of_type video as layer
    layer 
        entirely shift_by pos x pos i wing
        entirely shift_by pos vi pos vii layer
            sequence blow roar
            for iii rotate_right entirely shift_by pos xiv pos i fire
    layer 
        slow ii entirely shift_by pos iv neg i foot
        for ii rotate for ii extend art x vii
                 /  / .....6||6.     /  / .....6||6.
            _..-   /  6666|||6.._..-   (  6666|||6..
                  (   ||||||6...        \ ||||||||6.
                   \  |||||||6..         )|||||||||6
                    ) ||||||||6.        / ||||||||6.
                   /  |||||||6..       /  |||||||6..
            _.-'      6666......_.-'      6666......

define roar of_type video as loop art xiii vii
.            7.............            7.............            7............
 ),__        .7766........ ),__        .7766........ ),__        .7766........
  ( o`---~~^;..6|366666666  ( o`---~~^;..6|366666666  ( o`---~~^;..6|366666666
 /   -^V^V^V .6|||6777777. /    /V`V`V .6||||677777. /    /V`V`V .6||||677777.
/X `-----.-' 6||666666666./  \  \,A,A. 6||6||677777./    (       6||||6.......
  /          ||6..........  / `----.-' ||6.66666666.   \  \,A,A. |||6||677777.
             .............             .............    `----.-' ....66666666.

define blow of_type video as loop extend art xiv v
.             7..............             7.............
 ),__         .7766......... ),__         .7766.........
  ( o`---~~^; ..6|366666666.  ( o`-.-~~^; ..6|366666666.
 /   -^V^V^V  .6|||6777777.. /     -^V^V  .6|||||67777..
/  `-----.-'  6||666666666../  `-----.-'  6||666666666..
.             7..............             7.............
 ),__         .7766......... ),__         .7766.........
  ( o`._,~~^; ..6|366666666.  ( -`.___,~^;..6|3666666666
 /       -^V  .6|||||||677.. /    )__   < .6||||666|||6.
/  `---^-.-'  6||666666666../  `-'   `.-' 6||666...6666.

define fire of_type video as art vii iii
       .......       .......       .......       .......       .......
-  X   3......-.     33.....-._    133....-.__,  11333.. .__)  .1133..
       .......       .......       .......  .    ..3....  ._   ..13...
   _   ...3...   _   ...3...   _   ...1...   _   ...1...       .......
  __)  ..133..  '_)  ..311..  ( `  ..3.1..  (_   ..13...  .__  ..113..
   ._. ...133.     _......13      .......1       .......       .......
       .......       .......
    __ ....11.      _......1
       .......       .......

define wing of_type video as append new_frame art xi iv
/\         22.........  /T\.     ..2222.....           ...........
  \        ||2........ / | \`.   .2|2|222...           ...........
 `\\       |222......./ ^|_.\ `. 2|22222|22._          2..........
    `      ....2......       ``"\.......2222__ _       22.2.......

define foot of_type video as art v ii
) /  6|6..\ (  6|6..
|_nm 6666. )_nm.6666

define swinging_tail of_type video as art vi iv
 \   ).6|||6(   / 6|||6.
  ) / ..6|6. \ (  .6|6..
 ( /  .6|6..  \ ) ..6|6.
  V   ..6...   V  ...6..