creditScene model = group [ rect 200 300 |> filled black , text " Special Thanks to... " |> filled white |> move (-55, 50) , greenhouse |> move (0,repeatDuration 20 15 -100 model.time) , pinkhouse |> move (0,repeatDuration 20 15 -100 model.time) , people1 |> move ( -30, -30) , people2 |> move ( 30, 10) , text" Marek Hawryluk-Holovatska " |>filled white |>move (-82,-95) |>scale 0.5 , text" Cameron Jolie " |>filled white |>move ( 10, -70) |>scale 0.5 , text " campers " |> underline |> filled white |> scale 0.6 |> move ( -22, 7) , text " mentors " |> underline |> filled white |> scale 0.6 |> move (-22, 36) , text " Jamie Malakulang " |> filled white |> scale 0.5 |> move ( -31, 26) , text " Somaiyeh Vadadi " |> filled white |> scale 0.5 |> move ( -30, 18) ] baloon col = group [ oval 30 40 |> filled col |> scale 2 |> rotate (degrees -180) |> move (0, 20) , text "|" |> filled darkGray |> scale 5 |> move (-6, -74) , triangle 5 |> filled col |> scale 2 |> rotate (degrees -270) |> move (0,-28) ] house = group [ curve (-22.84,-2.594) [Pull (-19.08,2.3435) (-15.31,7.2816),Pull (-5.440,17.911) (4.4359,28.540),Pull (7.5326,28.456) (10.629,28.373),Pull (21.258,17.994) (31.888,7.6163),Pull (34.231,4.9380) (36.575,2.2598),Pull (37.077,-18.83) (37.579,-39.92),Pull (35.403,-41.93) (33.227,-43.94),Pull (9.0392,-44.02) (-15.14,-44.10),Pull (-17.24,-41.26) (-19.33,-38.41),Pull (-19.75,-20.67) (-20.17,-2.929),Pull (7.8674,-2.929) (35.905,-2.929),Pull (38.584,-3.013) (41.262,-3.096),Pull (8.6207,-3.096) (-24.02,-3.096),Pull (-24.77,-3.096) (-22.84,-2.594)] |> filled red |> addOutline (solid 1) black |> makeTransparent 0.1 , curve (-25.36,-3.598) [Pull (8.2859,-3.347) (41.931,-3.096),Pull (27.368,12.052) (12.805,27.201),Pull (8.9555,27.536) (5.1054,27.870),Pull (-9.876,12.219) (-24.85,-3.431),Pull (8.2859,-3.096) (41.429,-2.761),Pull (36.826,1.7576) (32.223,6.2772),Pull (32.223,16.823) (32.223,27.368),Pull (26.531,27.870) (20.840,28.373),Pull (20.924,23.602) (21.007,18.831),Pull (21.007,19.082) (21.007,19.333),Pull (16.990,23.267) (12.972,27.201),Pull (9.2066,27.536) (5.4402,27.870),Pull (-9.792,12.219) (-25.36,-3.598)] |>filled red |> addOutline (solid 1) black , curve (4.1011,1.5902) [Pull (8.6207,2.0924) (13.140,2.5945),Pull (14.395,4.7707) (15.651,6.9468),Pull (13.893,9.3740) (12.136,11.801),Pull (8.9555,12.303) (5.7750,12.805),Pull (2.7619,10.210) (-0.251,7.6163),Pull (2.0924,5.1891) (4.1011,1.5902)] |>filled lightBlue |> addOutline (solid 1) black , curve (-19.33,-3.431) [Pull (-19.58,-21.92) (-19.83,-40.42),Pull (-17.65,-42.60) (-15.48,-44.77),Pull (8.4533,-44.02) (32.390,-43.27),Pull (34.817,-41.68) (37.244,-40.09),Pull (37.244,-21.76) (37.244,-3.431),Pull (8.9555,-3.431) (-19.33,-3.431)] |>filled lightBrown |> addOutline (solid 1) black , curve (-3.598,-12.63) [Pull (-5.942,-14.64) (-8.285,-16.65),Pull (-8.871,-20.42) (-9.457,-24.18),Pull (-6.444,-26.19) (-3.431,-28.20),Pull (-1.088,-25.77) (1.2554,-23.35),Pull (0.8369,-20.33) (0.4184,-17.32),Pull (-1.590,-14.89) (-3.598,-12.63)] |>filled lightBlue |> addOutline (solid 1) black , curve (11.968,-22.51) [Pull (11.550,-31.55) (11.131,-40.59),Pull (11.131,-42.26) (11.131,-43.94),Pull (19.166,-44.02) (27.201,-44.10),Pull (27.285,-33.81) (27.368,-23.51),Pull (25.276,-20.84) (23.183,-18.16),Pull (20.087,-17.82) (16.990,-17.49),Pull (14.395,-20.08) (11.968,-22.51)] |> filled darkBrown |> addOutline (solid 1) black ] pinkhouse = group [ baloon pink |> scale 0.5 |> move (-75, 10) , house |> scale 0.5 |> move ( -80, -38) ] greenhouse = group [ baloon green |> scale 0.5 |> move (70,10) , house |> scale 0.5 |> move ( 65, -38) ] people1 = group [ text"Ava Gallant" |>filled white |>move (-42,30) |>scale 0.5 , text"Patrick Adams" |>filled white |>move (-50,50) |>scale 0.5 , text" Peyton Nicholls " |>filled white |>move (-52,10) |>scale 0.5 , text" Max Kil " |>filled white |>move (-35,-10) |>scale 0.5 ] people2 = group [ text" Daniel Woolley " |>filled white |>move (-52,-30) |>scale 0.5 , text" Liam Lavelle " |>filled white |>move (-47,-50) |>scale 0.5 , text" Lucas Seapy " |>filled white |>move (-46.5,-70) |>scale 0.5 ]