Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

added initial MENUSPEC

  • Loading branch information...
commit dd32214a0b84aa844d14563d30d78ab6eedf1d3a 1 parent 2ee4b6c
Nik Nyby authored
Showing with 64 additions and 6 deletions.
  1. +51 −0 MENUSPEC
  2. +13 −6 State.hs
View
51 MENUSPEC
@@ -0,0 +1,51 @@
+Menu specification for Marlon Moonglow's Animator
+
+
+ /---------------------------------------------------------------------\
+ | _---------------------------------------------------------------_ |
+ | / ~ ( ) ... - ( ) \ |
+ | | ) . ( ) . . ( ) | |
+ | | ) .... ... .. ) ___--- -.OO .____ ( ) | |
+ | | ) ..* .. * _- ... ~~~ ~ | |
+ | |~ ... ** * * ** * **.... - | |
+ | | .]|* ************ * ** . | |
+ | | ...**|*** **** *** **** . | |
+ | | .. || | * .... - - | |
+ | |. - - | |
+ | | .\ * - | |
+ | | { | |* - | |
+ | | | | & - | |
+ | |. .\ - | |
+ | | - - __| |
+ | | - _ __ ___- 8 | |
+ | | _- _ _ __ -8 8 8 8__| |
+ | | _ _ 88 - 8 __ _- -----88| |
+ | | - _ _ 8 8___ _--- 8 8 8 8 8 __ | |
+ | | ___ _ 8 - ___ - - 8 ------- - ___----- | |
+ | \ - 8 __ _ 8 8 ----- 8 8 8 8 / |
+ | ~---------------------------------------------------------------~ |
+ | _______ _______ _______ _______ _______ _______ |
+ | | (1) | | (2) | | (3) | | (4) | | (5) | | (6) | |
+ | ------- ------- ------- ------- ------- ------- |
+ | _______ _______ _______ _______ _______ _______ |
+ | | (7) | | (8) | | (9) | | (10) | | (11) | | (12) | |
+ | ------- ------- ------- ------- ------- ------- |
+ | |
+ \---------------------------------------------------------------------/
+
+*) Play button. Play cartoon from start, looping. Click again to pause.
+
+*) Current sprite window. The sprite in this window will be added to the scene
+with a mouse click in the workspace area.
+
+ *) Previous sprite button
+
+ *) Next sprite button
+
+*) Current frame window. Displays current frame number.
+
+ *) Previous frame button
+
+ *) Next frame button
+
+*) Save button. Save current cartoon to a file.
View
19 State.hs
@@ -46,15 +46,22 @@ data MmaMenu = MmaMenu
{
playMmaButton :: MmaButton
{-
- recMmaButton :: MmaButton,
+ -- sprite chooser
+ sprtWindow :: MmaWindow,
+ nextSprtButton :: MmaButton,
+ prevSprtButton :: MmaButton,
+
+ -- background chooser
+ bgWindow :: MmaWindow,
+ nextBgButton :: MmaButton,
+ prevBgButton :: MmaButton,
-- stepper
- prevFrameMmaButton :: MmaButton,
- nextFrameMmaButton :: MmaButton,
+ frameWindow :: MmaWindow,
+ prevFrameButton :: MmaButton,
+ nextFrameButton :: MmaButton,
- -- sprite chooser
- prevSpriteMmaButton :: MmaButton,
- nextSpriteMmaButton :: MmaButton
+ saveButton :: MmaButton
-}
} deriving Show
Please sign in to comment.
Something went wrong with that request. Please try again.