-- Your shapes go here
myShapes model =
  [drone model
  |> scale 0.22
  |> move (-83, 47)
  |> move (0 , 3*sin(model.time))
  ,
  sun
  ,
  mountains
  |> scale 0.7
  ,
  cherrytree
  ,
  upperbranch
  |> scale 0.65
  |> move (0, 25)
  ,
  egret model
  |> move (model.time*25, 25)
  |> move (-40, repeatDistance 60 220 -90 model.time)
  ,
  temple 
  ,
  temple
  |> scale 0.3
  |> move (-16, -3)
  ,
  temple
  |> scale 0.2
  |> move (81, -23)
  ,
  landscape
  ,
  standingegret model
  |> move (sin model.time*2, -5)
  ,
  blossoms
  |> scale -1
  |> move (10, 0)
  ,
  blossoms
  |> scale -1
  |> move (-140, 32)
  ,
  petals model
  ,
  flower model
  ,
  water model
  ,
  standingegret model
  |> move (-18, 10)
  |> move (sin model.time*1, -5)
  
  
    
  ]

drone model = group [rect 10 20  -- drone base
    |> filled black
    |> rotate (degrees -90)
    ,
    rect 10 20 --  drone computer
    |> filled darkCharcoal
    |> rotate (degrees -90)
    |> move (8, 8)
    ,
    text "Analyzing Water Pollutants"
    |> filled black
    |> scale 1.3
    |> move (46, 17)
    |> move (0 , 3*sin(model.time))
   
    ,
    text "CLEAR"
    |> filled green
    |> scale 1.4
    |> move (75, -8)
    |> move (0 , 3*sin(model.time))
    
    ,
    text "Activating Artificial Sun"
    |> filled orange
    |> scale 1.4
    |> move (44, 37)
    |> move (0 , 3*sin(model.time))
    
    ,
    roundedRect 3 20 5 -- glider
    |> filled black
    |> rotate (degrees 90)
    |> scaleX 3.5
    |> move (-25,-3)
    ,
    rect 10 9 -- propeller shaft - middle back
    |> filled darkGray
    |> scale 0.7
    |> move (-3,26)
    ,
    circle 3 --   propeller shaft middle back
    |> filled darkGray
    |> move (-3,29)
    ,
    roundedRect 3 13 5 -- propeller middle back
    |> filled darkCharcoal
    |> rotate (degrees 89)
    |> move (-3,32)
    ,
    roundedRect 3 15 5 -- top bars
    |> filled black
    |> rotate (degrees 90)
    |> scaleX 3.5
    |> move (18,23)
    ,
    roundedRect 3 15 5 -- top bars
    |> filled black
    |> rotate (degrees 90)
    |> scaleX 3.5
    |> move (-18,29)
    ,
    rect 10 9 -- propeller shaft - front
    |> filled darkGray
    |> scale 0.7
    |> move (38,26)
    ,
    circle 3 --   propeller shaft front
    |> filled darkGray
    |> move (38,29)
    ,
    roundedRect 3 13 5 -- propeller front
    |> filled darkCharcoal
    |> rotate (degrees 89)
    |> move (38,32)
    ,
    roundedRect 3 24 5 -- connector bars
    |> filled black
    |> rotate (degrees 220)
    |> move (-8,19)
    ,
    roundedRect 3 14 5 -- connector bars
    |> filled black
    |> rotate (degrees -30)
    |> move (8,18)
    ,
    rect 10 9 -- propeller shaft - far left
    |> filled darkGray
    |> scale 0.7
    |> move (-40, 33)
    ,
    circle 3 --   propeller shaft far left
    |> filled darkGray
    |> move (-40,38)
    ,
    roundedRect 3 13 5 -- propeller far left
    |> filled darkCharcoal
    |> rotate (degrees 90)
    |> move (-40,41)
    ,
    rect 10 9 -- propeller shaft - middle
    |> filled darkGray
    |> scale 0.7
    |> move (3,33)
    ,
    circle 3 --   propeller shaft middle
    |> filled darkGray
    |> move (3,38)
    ,
    roundedRect 3 13 5 -- propeller middle
    |> filled darkCharcoal
    |> rotate (degrees 90)
    |> move (3,41)
    ]
sun = group [circle 25
  |> filled red
  |> move (40, 30)
  ]
mountains = group [roundedRect 10 15 5
  |> filled black
  |> scaleY 2
  |> move (-80, 0)
  ,
  ngon 5 10 -- low mountains
  |> filled black
  |> move (-95, -26)
  ,
  roundedRect 10 15 5
  |> filled black
  |> scaleY 3.5
  |> move (-80, -10)
  ,
  roundedRect 10 15 5
  |> filled black
  |> scaleY 2
  |> move (-70, 0)
  ,
  roundedRect 10 15 5
  |> filled black
  |> scaleY 4.5
  |> move (-70, 0)
  ,
  roundedRect 10 15 5
  |> filled black
  |> scaleY 2
  |> move (-90, -10)
  ,
  roundedRect 10 15 5
  |> filled black
  |> scaleY 3
  |> move (-90, -10)
  ,
  oval 10 25
  |> filled black
  |> rotate (degrees -60)
  |> move (-85, -10)
  ,
  oval 18 20
  |> filled black
  |> rotate (degrees -60)
  |> move (-80, -21)
  
  ]
cherrytree = group [triangle 10 -- base
  |> filled black
  |> rotate (degrees -30)
  |> move (80, -50)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- root
  |> filled black
  |> scaleX 2
  |> scaleY 2.75
  |> rotate (degrees 240)
  |> move (80, -41)
  ,
  oval 10 20
  |> filled black
  |> rotate (degrees -60)
  |> move (70, -51)
  ,
  oval 10 15 --  large trunk
  |> filled black
  |> scaleY 4
  |> move (80, -20)
  ,
  oval 10 15
  |> filled black
  |> scaleY 1.5
  |> rotate (degrees -20)
  |> move (81, 0)
  ,
  oval 10 15
  |> filled black
  |> scaleY 2.5
  |> rotate (degrees 30)
  |> move (78, 20)
  ,
  oval 10 15
  |> filled black
  |> scaleY 2.5
  |> rotate (degrees 70)
  |> move (54, 39)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2.75
  |> scaleY 2.75
  |> rotate (degrees -150)
  |> move (58, 45)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2.75
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (30, 45)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (58, -32)
  |> scale -1
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- thin branch tips
  |> filled black
  |> scaleY 2
  |> rotate (degrees 70)
  |> move (-75, 24)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees -180)
  |> move (72, 37)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 10)]
  
upperbranch = group [curve (0,0) [Pull (10,0) (20,-10)]  -- thinner branch
  |> filled black
  |> scaleX 2.75
  |> scaleY 2.75
  |> rotate (degrees -150)
  |> move (58, 45)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2.75
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (30, 45)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (58, -32)
  |> scale -1
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- thin branch tips
  |> filled black
  |> scaleY 2
  |> rotate (degrees 70)
  |> move (-75, 24)
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 5
  |> rotate (degrees 70)
  |> move (1, -24)
  |> scale -1
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 5
  |> rotate (degrees -320)
  |> move (1, -24)
  |> scale -1
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 2
  |> rotate (degrees 170)
  |> move (61, -15)
  |> scale -1
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 2
  |> rotate (degrees -320)
  |> move (61, -15)
  |> scale -1
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 4
  |> rotate (degrees 570)
  |> move (107, 18)
  
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 4
  |> rotate (degrees -520)
  |> move (107, 18)
  
  ,
  curve (0,0) [Pull (5,0) (10,-10)] -- thin branch tips
  |> filled black
  |> scaleY 4
  |> rotate (degrees -560)
  |> move (107, 18)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 25)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 33)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 40)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 10)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 13)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 10)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-57, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-50, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 10)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-47, 55)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-40, 53)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-47, 50)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 50)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-47, 35)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-40, 33)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-47, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (60, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (57, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (50, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (57, 10)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (50, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (50, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (60, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (7, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (0, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (7, 10)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (10, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (0, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 35)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 33)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (67, 35)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (70, 33)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (77, 35)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 33)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 30)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 40)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (77, 45)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 43)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 40)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (97, 40)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 45)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (90, 43)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 50)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (97, 60)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 55)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (90, 53)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 40)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 60)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (67, 55)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 53)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 40)]
egret model = group [wedge 10 0.75 --  wings
  |> filled black
  |> scaleY 0.24
  |> rotate (degrees 120)
  |> scale -1
  ,
  oval 5 55 --  body
  |> filled black
  |> scale 0.5
  |> rotate (degrees -90)
  |> rotate (degrees 30)
  |> move (1, -9)
  ,
  oval 10 15 -- stomach
  |> filled black
  |> scale 0.6
  |> scaleY 1.2
  |> rotate (degrees -60)
  |> move (3, -8)
  ,
  wedge 10 0.75   -- neck head
  |> filled black
  |> scale 0.2
  |> move (12, -3)
  |> rotate (degrees 10)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- beak
  |> filled black
  |> scale 0.2
  |> rotate (degrees 60)
  |> move (12, 0)
  ,
  wedge 10 0.75 --  wings  -  egret 2
  |> filled black
  |> scaleY 0.24
  |> rotate (degrees 120)
  |> scale -1
  |> move (30, 30)
  ,
  oval 5 55 --  body
  |> filled black
  |> scale 0.5
  |> rotate (degrees -90)
  |> rotate (degrees 30)
  |> move (30, 30)
  |> move (1, -9)
  ,
  oval 10 15 -- stomach
  |> filled black
  |> scale 0.6
  |> scaleY 1.2
  |> rotate (degrees -60)
  |> move (34, 21)
  ,
  wedge 10 0.75   -- neck head
  |> filled black
  |> scale 0.2
  |> move (46, 21)
  |> rotate (degrees 10)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- beak
  |> filled black
  |> scale 0.2
  |> rotate (degrees 60)
  |> move (43, 30)
  ,
  wedge 10 0.75 --  wings  -  egret 3
  |> filled black
  |> scaleY 0.24
  |> rotate (degrees 120)
  |> scale -1
  |> move (82, 47)
  ,
  oval 5 55 --  body
  |> filled black
  |> scale 0.5
  |> rotate (degrees -90)
  |> rotate (degrees 30)
  |> move (82, 47)
  |> move (1, -9)
  ,
  oval 10 15 -- stomach
  |> filled black
  |> scale 0.6
  |> scaleY 1.2
  |> rotate (degrees -60)
  |> move (87, 39)
  ,
  wedge 10 0.75   -- neck head
  |> filled black
  |> scale 0.2
  |> move (101, 28)
  |> rotate (degrees 10)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- beak
  |> filled black
  |> scale 0.2
  |> rotate (degrees 60)
  |> move (96, 45)]
  
standingegret model = group [wedge 10 0.75 --  wings  - standing egret in water
  |> filled black
  |> scaleY 0.24
  |> rotate (degrees -120)
  |> scale -1
  |> move (30, -46)
  
  ,
  oval 5 55 --  body
  |> filled black
  |> scale 0.5
  |> rotate (degrees -90)
  |> rotate (degrees 30)
  |> move (30, -30)
  |> move (1, -49)
  ,
  oval 10 15 -- stomach
  |> filled black
  |> scale 0.6
  |> scaleY 1.2
  |> rotate (degrees -60)
  |> move (34, -41)
  ,
  oval 10 25 -- neck
  |> filled black
  |> scale 0.3
  |> rotate (degrees -60)
  |> move (38, -40)
  ,
  oval 10 25 -- neck
  |> filled black
  |> scale 0.2
  |> rotate (degrees -30)
  |> move (42, -37)
  ,
  wedge 10 0.75   -- neck head
  |> filled black
  |> scale 0.2
  |> move (36, -41)
  |> rotate (degrees 10)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- beak
  |> filled black
  |> scale 0.3
  |> rotate (degrees 55)
  |> move (43, -35)
  ,
  curve (0,0) [Pull (10,0) (28,-10)] -- leg
  |> filled black
  |> scale 0.8
  |> rotate (degrees 90)
  |> move (30,-60)
  ,
  curve (0,0) [Pull (10,0) (28,-10)] -- back leg
  |> filled black
  |> scale 0.4
  |> rotate (degrees -30)
  |> move (34,-45)
  ,
  curve (0,0) [Pull (10,0) (28,-10)] -- leg
  |> filled black
  |> scale 0.8
  |> rotate (degrees 30)
  |> move (31,-60)
  ]
blossoms= group [text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 23)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 10)]
 
petals model= group [text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-30, 20)
  |> move (-50, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-37, 15)
  |> move (-40, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-40, 23)
  |> move (-40, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-47, 10)
  |> move (-40, repeatDistance -10 190 90 model.time)]
flower model = group [  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 30)
  |> move (-20, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 25)
  |> move (-45, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 33)
  |> move (-50, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 40)
  |> move (-55, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 10)
  |> move (-60, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  |> move (-65, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 13)
  |> move (-70, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 10)
  |> move (-40, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  |> move (-45, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 15)
  |> move (-50, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 23)
  |> move (-55, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 20)
  |> move (-60, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-57, 15)
  |> move (-65, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-50, 23)
  |> move (-70, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 10)
  |> move (-75, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  |> move (-40, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  |> move (-45, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-47, 55)
  |> move (-60, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-40, 53)
  |> move (-65, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-47, 50)
  |> move (-70, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 50)
  |> move (-75, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-47, 35)
  |> move (-40, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-40, 33)
  |> move (-30, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-47, 30)
  |> move (-20, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-50, 30)
  |> move (-44, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 30)
  |> move (-50, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (60, 20)
  |> move (-55, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (57, 15)
  |> move (-60, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (50, 23)
  |> move (-65, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (57, 10)
  |> move (-70, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (50, 20)
  |> move (-75, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (50, 30)
  |> move (-80, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (60, 20)
  |> move (-40, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (7, 15)
  |> move (-50, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (0, 23)
  |> move (-55, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (7, 10)
  |> move (-60, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (10, 20)
  |> move (-70, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (0, 30)
  |> move (-40, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-67, 35)
  |> move (-30, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-70, 33)
  |> move (-20, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (-67, 30)
  |> move (-40, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (-70, 20)
  |> move (-45, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (67, 35)
  |> move (-50, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (70, 33)
  |> move (-50, repeatDistance -50 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 30)
  |> move (-55, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (77, 35)
  |> move (-60, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 33)
  |> move (-65, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 30)
  |> move (-70, repeatDistance -10 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 40)
  |> move (-75, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (77, 45)
  |> move (-80, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 43)
  |> move (-40, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 40)
  |> move (-30, repeatDistance -50 190 90 model.time)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (97, 40)
  |> move (-20, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 45)
  |> move (-10, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (90, 43)
  |> move (-40, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 50)
  |> move (-50, repeatDistance -10 190 90 model.time)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (97, 60)
  |> move (-55, repeatDistance -20 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 55)
  |> move (-40, repeatDistance -30 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (90, 53)
  |> move (-70, repeatDistance -40 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (107, 40)
  |> move (-60, repeatDistance -50 190 90 model.time)
  ,
   text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (67, 60)
  |> move (-90, repeatDistance -60 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (67, 55)
  |> move (-40, repeatDistance -70 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.3
  |> move (80, 53)
  |> move (-50, repeatDistance -80 190 90 model.time)
  ,
  text "🌸"
  |> filled pink
  |> scale 0.5
  |> move (97, 40)
  |> move (-60, repeatDistance -10 190 90 model.time)]
temple = group [curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (-45, -26)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scale 0.4
  |> move (80, 30)
  |> rotate (degrees -180)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scale 0.4
  |> move (40, -6)
  |> rotate (degrees 220)
  ,
  rect 10 15
  |> filled black
  |> scale 0.4
  |> move (-55, -31)
  ,
  rect 10 15
  |> filled black
  |> scale 0.4
  |> move (-65, -32)
  ,
  rect 10 15
  |> filled black
  |> scale 0.4
  |> move (-75, -32)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees -150)
  |> move (-45, -34)
  ,
  rect 6 28
  |> filled black
  |> move (-54, -51)
  ,
  rect 6 28
  |> filled black
  |> move (-77, -53)
  ]
landscape = group [curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> scaleX 4
  |> scaleY 4
  |> rotate (degrees 30)
  |> move (-20, -38)
  ,
  triangle 10 -- temple triangle top
  |> filled black
  |> scale 0.5
  |> rotate (degrees -30)
  |> move (-35.5, -9)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled black
  |> scaleX 2
  |> scale 0.4
  |> move (31, 5)
  |> rotate (degrees 200)
  ,
  rect 10 15
  |> filled black
  |> scale 0.1
  |> move (-35.5, -16)
  
  ,
  triangle 10 -- temple triangle near tree
  |> filled black
  |> scale 0.3
  |> rotate (degrees -30)
  |> move (68, -27)
  ,
  curve (0,0) [Pull (10,0) (20,-10)]
  |> filled pink
  |> scaleX 2
  |> scale 0.4
  |> move (68, 49)
  |> rotate (degrees 200)
  ,
  rect 10 15
  |> filled black
  |> scale 0.1
  |> move (-35, -15)
  
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> scaleX 2
  |> scaleY 3
  |> rotate (degrees 30)
  |> move (-40, -27)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> scaleX 2
  |> scaleY 3
  |> rotate (degrees 30)
  |> move (-50, -22)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> scaleX 3
  |> scaleY 3
  |> rotate (degrees 30)
  |> move (-80, -27)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> rotate (degrees 30)
  |> move (54, -38)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> rotate (degrees 30)
  |> move (45, -37)
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- low mountains
  |> filled gray
  |> rotate (degrees 30)
  |> move (45, -35)
  ,
  ngon 5 10 -- low mountains
  |> filled charcoal 
  |> move (20, -20)
  ,
  ngon 5 10
  |> filled charcoal 
  |> move (20, -20)
  |> rotate (degrees -30)
  ,
  polygon [(0,0),(0,-10),(30,0)]
  |> filled charcoal
  |> move (34, 0)
  |> rotate (degrees -30)
  ,
  polygon [(0,0),(0,-10),(30,0)]
  |> filled charcoal
  |> move (6, 30)
  |> rotate (degrees 20)
  |> scale -1]
water model = group [curve (0,0) [Pull (10,0) (20,-10)] -- water
  |> filled lightGray
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees 30)
  |> move (-20, -50)
  |> move (0 , 2*sin(model.time))
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- water
  |> filled lightGray
  |> scaleX 2
  |> scaleY 2
  |> rotate (degrees 30)
  |> move (-30, -59)
  |> move (0 , 2*sin(model.time))
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- water
  |> filled lightGray
  |> scaleX 0.7
  |> scaleY 0.7
  |> rotate (degrees 30)
  |> move (-74, -50)
  |> move (0 , 2*sin(model.time))
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- water
  |> filled lightGray
  |> scaleX 0.7
  |> scaleY 0.7
  |> rotate (degrees 30)
  |> move (-44, -35)
  |> move (0 , 2*sin(model.time))
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- water
  |> filled lightGray
  |> scaleX 0.5
  |> scaleY 0.5
  |> rotate (degrees 30)
  |> move (-40, -40)
  |> move (0 , 2*sin(model.time))
  ,
  curve (0,0) [Pull (10,0) (20,-10)] -- water behind temple
  |> filled lightGray
  |> scaleX 0.6
  |> scaleY 0.6
  |> rotate (degrees 30)
  |> move (-98, -59)
  |> move (0 , 2*sin(model.time))
  ]
-- Add messages here
type Msg = Tick Float GetKeyState

-- This is the type of your model
type alias Model = { time : Float }

-- Your update function goes here
update : Msg -> Model -> ( Model, Cmd Msg )
update msg model = 
  case msg of
    Tick t _ -> ( { model | time = t }, Cmd.none )

-- Your initial model goes here
init : Model
init = { time = 0 }

-- Your subscriptions go here
subscriptions : Model -> Sub Msg
subscriptions model = Sub.none

-- Your main function goes here
main : EllieAppWithTick () Model Msg
main = 
  ellieAppWithTick Tick 
    { init = \flags -> (init, Cmd.none)
    , view = view
    , update = update
    , subscriptions = subscriptions
    }

-- You view function goes here
view : Model -> { title: String, body : Collage Msg }
view model = 
  {
    title = "My App Title"
  , body = collage 192 128 (myShapes model)
  }

Create an advanced app with full support for the Elm Architecture. You can use commands and subscriptions to unlock advanced functionality.