home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / clariSSA.def < prev    next >
Text File  |  1993-08-13  |  8KB  |  206 lines
  1. MENUS
  2.   MENU "Project"
  3.     ITEM "Load Animation..."                     "O" LoadAnim REQ
  4.     ITEM "Save Animation..."                     "S" SaveAnim REQ
  5.     BAR
  6.     ITEM "New Animation..."                      ""  OpenAnim REQ
  7.     ITEM "Delete Animation"                      ""  CloseAnim
  8.     BAR
  9.     ITEM "About..."                              "I" Information VIEW
  10.     ITEM "Help..."                               "?" HelpRequester REQ
  11.     BAR
  12.     ITEM "Quit"                                  "E" clariSSAEnd
  13.     ITEM "Quit & Save Settings"                  "Q" ARexxString "call SaveWork.clssa('Works/Last'); clariSSAEnd;"
  14.  
  15.   MENU "Edit"
  16.     ITEM "Current = Start"                       ""  SetArea FROM ACTUAL
  17.     ITEM "Current = End"                         ""  SetArea TO ACTUAL
  18.     ITEM "Full Range"                            "F"  SetArea FULL
  19.     BAR
  20.     ITEM "Colour Palette..."                     ""  OpenColorRequester
  21.     ITEM "ScreenGrabber..."                      ""  SetScreenGrabber REQ
  22.  
  23.  
  24.   MENU "Animation"
  25.     ITEM "Select                  »"             ""  NOP
  26.     SUB  "Select Master"                         ""  SelectAnim MASTER
  27.     SBAR
  28.     SUB  "Source_A"                              ""  SelectAnim Source_A
  29.     SUB  "Source_B"                              ""  SelectAnim Source_B
  30.     SUB  "Source_C"                              ""  SelectAnim Source_C
  31.     SUB  "Source_D"                              ""  SelectAnim Source_D
  32.     ITEM "Swap                    »"             ""  NOP
  33.     SUB  "Swap Source_A <-> Master"              "A" SwapAnim Source_A Master
  34.     SUB  "Swap Source_B <-> Master"              ""  SwapAnim Source_B Master
  35.     SUB  "Swap Source_C <-> Master"              ""  SwapAnim Source_C Master
  36.     SUB  "Swap Source_D <-> Master"              "D" SwapAnim Source_D Master
  37.     ITEM "Delete                  »"             ""  NOP
  38.     SUB  "Delete Master"                         ""  CloseAnim MASTER
  39.     SUB  "Delete Source_A"                       ""  CloseAnim Source_A
  40.     SUB  "Delete Source_B"                       ""  CloseAnim Source_B
  41.     SUB  "Delete Source_C"                       ""  CloseAnim Source_C
  42.     SUB  "Delete Source_D"                       ""  CloseAnim Source_D
  43.     SBAR
  44.     SUB  "Delete All Sources"                    ""  CloseAnim Source_A Source_B Source_C Source_D
  45.     SUB  "Delete All Anims"                      ""  CloseAnim Master Source_A Source_B Source_C Source_D
  46.     BAR
  47.     ITEM "Update Windows"                        ""  RemakeDisplay SCREENS
  48.     ITEM "Work Screen ON"                        ""  SetWorkScreen ON
  49.     ITEM "Work Screen OFF"                       "K" SetWorkScreen OFF
  50.  
  51.  
  52.   MENU "Macros"
  53.     ITEM "Execute ARexx Macro..."                ""  ARexxMacro REQ NAME 'rexx:'
  54.     BAR
  55.     ITEM "Update Macros"                         ""  ARexxString "call MakeFileGadgets.clssa('Macros/')"
  56.  
  57.  
  58.   MENU "SSA"
  59.     ITEM "Release Memory"                        ""  SSAControl RESP
  60.     ITEM "DDO Current Anim"                      ""  SSAControl OutDDO
  61.     ITEM "DDO All Anims"                         ""  SSAControl OutAllDDO
  62.     ITEM "DMO Current Anim"                      ""  SSAControl DoDMO
  63.     ITEM "Move Anim to Fast RAM"                 ""  SSAControl DDOAlloc
  64.     ITEM "Optimise Anim Play"                    ""  SSAControl DDOPlayAlloc
  65.  
  66.  
  67.   MENU "Settings"
  68.     ITEM "Set Play Mode..."                      ""  SetPlayMode REQ
  69.     ITEM "Set Edit Mode..."                      ""  SetEditMode REQ
  70.     ITEM "Set Preferences..."                    ""  SetPref REQ
  71.     BAR
  72.     ITEM "Set Error Threshold..."                ""  FailAt REQ
  73.     BAR
  74.     ITEM "Load clariSSA.defs"                    ""  LoadDefs
  75.     ITEM "Load Other .defs..."                   ""  LoadDefs  REQ
  76.     BAR
  77.     ITEM "Load Work Data..."                     ""  ARexxMacro NAME 'rexx:LoadWork.clssa'
  78.     ITEM "Save Work Data..."                     ""  ARexxMacro NAME 'rexx:SaveWork.clssa'
  79.  
  80.  
  81.   MENU "Monitors"
  82.     ITEM "System Data"                           ""  SetMonitorDisplay SYSTEM
  83.     ITEM "Graphic Format"                        ""  SetMonitorDisplay FORMAT
  84.     ITEM "SMove"                                 ""  SetMonitorDisplay SMOVE
  85. #
  86.  
  87.  
  88. GADGETS
  89.   GADGET CLEAR
  90.   GADGET PAGE 1 5    "File Info"                 GetFileInfo REQ
  91.   GADGET PAGE 1 6    "Stop ARexx Macros"         ARexxString "OPTIONS RESULTS; ADDRESS COMMAND 'sys:rexxc/hi';"
  92.  
  93.   GADGET PAGE 1 21   "Dialog Processes"          GadgetTitle VIEW 7
  94.   GADGET PAGE 1 22   "Colour"                    GadgetTitle VIEW 6
  95.   GADGET PAGE 1 25   "Effects"                   GadgetTitle VIEW 2
  96.   GADGET PAGE 1 26   "Change Anim Format"        GadgetTitle VIEW 3
  97.   GADGET PAGE 1 27   "Import Graphic"            GadgetTitle VIEW 4
  98.   GADGET PAGE 1 28   "Edit"                      GadgetTitle VIEW 5
  99.  
  100.   GADGET PAGE 2 28   "***** Return *****"        GadgetTitle VIEW 1
  101.   GADGET PAGE 3 28   "***** Return *****"        GadgetTitle VIEW 1
  102.   GADGET PAGE 4 28   "***** Return *****"        GadgetTitle VIEW 1
  103.   GADGET PAGE 5 28   "***** Return *****"        GadgetTitle VIEW 1
  104.   GADGET PAGE 6 28   "***** Return *****"        GadgetTitle VIEW 1
  105.   GADGET PAGE 7 28   "***** Return *****"        GadgetTitle VIEW 1
  106.  
  107.   GADGET PAGE 5 AUTO "Record Range"              Record AREA
  108.   GADGET PAGE 5 AUTO "Delete Range"              DeleteArea AREA
  109.  
  110.   GADGET PAGE 5 13   "Set Mark  A"               SetAnimMark 7
  111.   GADGET PAGE 5 14   "Set Mark  B"               SetAnimMark 8
  112.   GADGET PAGE 5 15   "Set Mark  C"               SetAnimMark 9
  113.   GADGET PAGE 5 16   "Set Mark  D"               SetAnimMark 10
  114.   GADGET PAGE 5 17   "Goto Mark  A"              MoveAnimMark 7
  115.   GADGET PAGE 5 18   "Goto Mark  B"              MoveAnimMark 8
  116.   GADGET PAGE 5 19   "Goto Mark  C"              MoveAnimMark 9
  117.   GADGET PAGE 5 20   "Goto Mark  D"              MoveAnimMark 10
  118.  
  119.   GADGET PAGE 5 21   "Set Range Start"           SetArea FROM Actual
  120.   GADGET PAGE 5 22   "Set Range End"             SetArea TO Actual
  121.   GADGET PAGE 5 23   "Goto 1st Frame"            ViewFrame 1
  122.   GADGET PAGE 5 24   "Goto Last Frame"           ViewFrame 99999
  123.  
  124.   GADGET PAGE 6 17   "Colour Palette"            OpenColorRequester
  125.  
  126.   APPICON "LoadAnim"  "SetBasicScreen FRONT TO 0 20"
  127. #
  128.  
  129. KEYBOARD
  130.   HELP                  RemakeDisplay SCREENS
  131.  
  132.   CURSOR_LEFT           ViewFrame DOWN
  133.   CURSOR_RIGHT          ViewFrame UP
  134.  
  135.   SHIFT CURSOR_LEFT     ViewFrame DOWN 5
  136.   SHIFT CURSOR_RIGHT    ViewFrame UP   5
  137.  
  138.   CTRL CURSOR_LEFT      ViewFrame 1
  139.   CTRL CURSOR_RIGHT     ViewFrame 999999
  140.  
  141.   SHIFT CURSOR_UP       SetArea FROM Actual
  142.   SHIFT CURSOR_DOWN     SetArea TO Actual
  143.  
  144.   SHIFT DEL             DeleteArea AREA
  145.   SHIFT RETURN          Record AREA
  146.  
  147.   p                     PlayAnim SCREENS
  148.  
  149.   m                     SelectAnim MASTER
  150.   a                     SelectAnim SOURCE_A
  151.   b                     SelectAnim SOURCE_B
  152.   c                     SelectAnim SOURCE_C
  153.   d                     SelectAnim SOURCE_D
  154.  
  155.   F1                    SetMonitorDisplay SYSTEM
  156.   F2                    SetMonitorDisplay FORMAT
  157.   F3                    SetMonitorDisplay BIZET
  158.  
  159.   SPACE                 SetBasicScreen TO 0 180
  160.   SHIFT SPACE           SetBasicScreen TO 0 0
  161.  
  162.   '!'                   SetAnimMark  1
  163.   1                     MoveAnimMark 1
  164.  
  165.   '"'                   SetAnimMark  2
  166.   2                     MoveAnimMark 2
  167.  
  168.   '£'                   SetAnimMark  3
  169.   3                     MoveAnimMark 3
  170.  
  171.   '$'                   SetAnimMark  4
  172.   4                     MoveAnimMark 4
  173.  
  174.   '%'                   SetAnimMark  5
  175.   5                     MoveAnimMark 5
  176.  
  177.   '&'                   SetAnimMark  6
  178.   6                     MoveAnimMark 6
  179.  
  180.   '/'                   SetAnimMark  7
  181.   7                     MoveAnimMark 7
  182.  
  183.   '('                   SetAnimMark  8
  184.   8                     MoveAnimMark 8
  185.  
  186.   ')'                   SetAnimMark  9
  187.   9                     MoveAnimMark 9
  188. #
  189.  
  190.  
  191.  
  192. STARTUP
  193.   FailAt 10
  194.   GadgetTitle PAGE 1    TITLE "Main Page"
  195.   GadgetTitle PAGE 2    TITLE "Effects"
  196.   GadgetTitle PAGE 3    TITLE "Change Animation Format"
  197.   GadgetTitle PAGE 4    TITLE "Import Graphics"
  198.   GadgetTitle PAGE 5    TITLE "Edit"
  199.   GadgetTitle PAGE 6    TITLE "Colour"
  200.   GadgetTitle PAGE 7    TITLE "Dialogue-based Processes"
  201.  
  202.   ARexxString "call LoadWork.clssa('Works/Last')"
  203.   LoadDefs Name "clariSSA.path"
  204.   LoadDefs Name "clariSSA.gadgets"
  205. #
  206.