{- This code will work in Comic slots 1,2,5,6,9,10,13,14. If you add these lines, it will work in Game slots: import ComicCommon exposing (..) myShapes model = thisFrame model.time init = { time = 0 } type Msg a = Tick Float a update msg model = case msg of Tick t _ -> { model | time = t } -} smallTree t = group [ rect 1 2 |> filled orange |> move (0,-3) , triangle 5 |> filled (rgb 0 255 0) |> rotate (degrees -30) ] -- this is the time used in the frozen full-page view freezeTime = 0 -- this is the frame, which will get clipped in the full comic book page thisFrame : Float -> List (Shape userMsg) thisFrame t = [ rect 192 128 |> filled white , smallTree t |> move (20,13) , smallTree t |> move (14,-8) , smallTree t |> move (-25,6) , smallTree t |> move (-5,-7) , smallTree t |> move (20,-13) , smallTree t , textBubbleLeft 20 "I'm a tree, not Harry, and certainly not Bob." black white t |> scale 0.8 |> move (-17,12) , textBubbleRight 20 "I'm a tree. I miss Treabeard." black white t |> scale 0.8 |> move (13,17) , multiBubbleLeft 40 bobScript t |> scale 0.8 |> move (12,0) , multiBubbleRight 30 harryScript t |> scale 0.5 |> move (-8,5) ] bobScript = mkScriptFor Bob script harryScript = mkScriptFor Harry script type Actor = Bob | Harry script : List (Actor,String) script = [(Bob,"I'm Bob.") ,(Harry,"I'm Harry") ,(Bob,"Hmmm...") ,(Bob,"Very ") ,(Bob," interesting.") ,(Harry,"Certainly!") ]