mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-14 09:32:22 +00:00
Deploying to gh-pages from @ 48b2a10df2 🚀
This commit is contained in:
Lemmih
parent
bfdde68529
commit
1890af0dc1
6 changed files with 160 additions and 156 deletions
|
|
@ -104,7 +104,7 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">5%</td><td>1/19</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="5%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/50</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">4%</td><td>39/826</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="4%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">5%</td><td>1/19</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="5%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/50</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">4%</td><td>39/826</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="4%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
||||||
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1473</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1483</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Svg.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Svg</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Svg.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Svg</a></tt></td>
|
||||||
<td align="right">38%</td><td>5/13</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="38%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">18%</td><td>15/80</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="18%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">41%</td><td>323/777</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="41%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">38%</td><td>5/13</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="38%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">18%</td><td>15/80</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="18%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">41%</td><td>323/777</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="41%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
|
|
@ -128,5 +128,5 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">100%</td><td>6/6</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">50%</td><td>1/2</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="50%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">95%</td><td>43/45</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="95%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">100%</td><td>6/6</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">50%</td><td>1/2</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="50%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">95%</td><td>43/45</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="95%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr></tr><tr style="background: #e0e0e0">
|
<tr></tr><tr style="background: #e0e0e0">
|
||||||
<th align=left> Program Coverage Total</tt></th>
|
<th align=left> Program Coverage Total</tt></th>
|
||||||
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15874</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15884</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
</table></body></html>
|
</table></body></html>
|
||||||
|
|
|
||||||
|
|
@ -14,7 +14,7 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">100%</td><td>14/14</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>3/5</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">99%</td><td>1176/1180</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="99%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">100%</td><td>14/14</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>3/5</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">99%</td><td>1176/1180</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="99%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
||||||
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1473</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1483</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Svg.LineCommand.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Svg.LineCommand</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Svg.LineCommand.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Svg.LineCommand</a></tt></td>
|
||||||
<td align="right">75%</td><td>12/16</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="75%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">58%</td><td>43/74</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="58%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">69%</td><td>659/943</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="69%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">75%</td><td>12/16</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="75%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">58%</td><td>43/74</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="58%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">69%</td><td>659/943</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="69%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
|
|
@ -128,5 +128,5 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">15%</td><td>3/20</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">- </td><td>0/0</td><td width=100> </td><td align="right">14%</td><td>7/49</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="14%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">15%</td><td>3/20</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">- </td><td>0/0</td><td width=100> </td><td align="right">14%</td><td>7/49</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="14%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr></tr><tr style="background: #e0e0e0">
|
<tr></tr><tr style="background: #e0e0e0">
|
||||||
<th align=left> Program Coverage Total</tt></th>
|
<th align=left> Program Coverage Total</tt></th>
|
||||||
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15874</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15884</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
</table></body></html>
|
</table></body></html>
|
||||||
|
|
|
||||||
|
|
@ -47,7 +47,7 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">33%</td><td>5/15</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">5%</td><td>1/20</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="5%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">40%</td><td>133/325</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="40%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">33%</td><td>5/15</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">5%</td><td>1/20</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="5%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">40%</td><td>133/325</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="40%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
||||||
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1473</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1483</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Builtin.Slide.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Builtin.Slide</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Builtin.Slide.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Builtin.Slide</a></tt></td>
|
||||||
<td align="right">33%</td><td>1/3</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">- </td><td>0/0</td><td width=100> </td><td align="right">30%</td><td>18/60</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">33%</td><td>1/3</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">- </td><td>0/0</td><td width=100> </td><td align="right">30%</td><td>18/60</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
|
|
@ -128,5 +128,5 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">0%</td><td>0/1</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/4</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/61</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">0%</td><td>0/1</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/4</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/61</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr></tr><tr style="background: #e0e0e0">
|
<tr></tr><tr style="background: #e0e0e0">
|
||||||
<th align=left> Program Coverage Total</tt></th>
|
<th align=left> Program Coverage Total</tt></th>
|
||||||
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15874</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15884</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
</table></body></html>
|
</table></body></html>
|
||||||
|
|
|
||||||
|
|
@ -65,7 +65,7 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">33%</td><td>1/3</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/14</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">21%</td><td>28/128</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="21%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">33%</td><td>1/3</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="33%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/14</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">21%</td><td>28/128</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="21%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Scene.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Scene</a></tt></td>
|
||||||
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1473</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>40/130</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">60%</td><td>15/25</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="60%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">36%</td><td>545/1483</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="36%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Internal.CubicBezier.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Internal.CubicBezier</a></tt></td>
|
<td> <tt>module <a href="reanimate-0.4.1.0-inplace/Reanimate.Internal.CubicBezier.hs.html">reanimate-0.4.1.0-inplace/Reanimate.Internal.CubicBezier</a></tt></td>
|
||||||
<td align="right">23%</td><td>20/86</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="23%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">7%</td><td>2/26</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="7%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">30%</td><td>102/337</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">23%</td><td>20/86</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="23%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">7%</td><td>2/26</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="7%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">30%</td><td>102/337</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
|
|
@ -128,5 +128,5 @@ table.dashboard { border-collapse: collapse ; border: solid 1px black }
|
||||||
<td align="right">0%</td><td>0/1</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/4</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/61</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">0%</td><td>0/1</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/4</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td><td align="right">0%</td><td>0/61</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="100%"><tr><td height=12 class="invbar"></td></tr></table></td></tr></table></td></tr>
|
||||||
<tr></tr><tr style="background: #e0e0e0">
|
<tr></tr><tr style="background: #e0e0e0">
|
||||||
<th align=left> Program Coverage Total</tt></th>
|
<th align=left> Program Coverage Total</tt></th>
|
||||||
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15874</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
<td align="right">30%</td><td>247/803</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="30%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">15%</td><td>131/833</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="15%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td><td align="right">29%</td><td>4647/15884</td><td width=100><table cellpadding=0 cellspacing=0 width="100" class="bar"><tr><td><table cellpadding=0 cellspacing=0 width="29%"><tr><td height=12 class="bar"></td></tr></table></td></tr></table></td></tr>
|
||||||
</table></body></html>
|
</table></body></html>
|
||||||
|
|
|
||||||
|
|
@ -7,5 +7,6 @@ const snippets = [{"title": "Hello World","url": "https://reanimate.clozecards.c
|
||||||
,{"title": "Easing Functions","url": "https://reanimate.clozecards.com/P4F3jzh2Mcj/45.svg","code": "animation :: Animation\nanimation = docEnv $ pauseAtEnd 1 $ sceneAnimation $ do\n showEasing 0 \"curveS\" (curveS 2)\n showEasing 1 \"bellS\" (bellS 2)\n showEasing 2 \"constantS\" (constantS 0.7)\n showEasing 3 \"oscillateS\" oscillateS\n showEasing 4 \"powerS\" (powerS 2)\n showEasing 5 \"reverseS\" reverseS\n showEasing 6 \"id\" id\n\nshowEasing nth txt fn = do\n let yOffset | even nth = 0\n | odd nth = -1\n xOffset = -6 + fromIntegral nth*2\n newSpriteSVG_ $\n \ttranslate xOffset yOffset $\n label txt\n fork $ play $ mapA (translate xOffset 0) $\n mapA (rotate 90) $\n mapA (scale (screenHeight/screenWidth * 0.6)) $\n signalA fn drawProgress\n\nlabel txt =\n translate 0 (-2.5) $\n scale 0.7 $\n center $\n withStrokeWidth 0 $\n withFillOpacity 1 $\n svg\n where\n svg = latex txt\n"}
|
,{"title": "Easing Functions","url": "https://reanimate.clozecards.com/P4F3jzh2Mcj/45.svg","code": "animation :: Animation\nanimation = docEnv $ pauseAtEnd 1 $ sceneAnimation $ do\n showEasing 0 \"curveS\" (curveS 2)\n showEasing 1 \"bellS\" (bellS 2)\n showEasing 2 \"constantS\" (constantS 0.7)\n showEasing 3 \"oscillateS\" oscillateS\n showEasing 4 \"powerS\" (powerS 2)\n showEasing 5 \"reverseS\" reverseS\n showEasing 6 \"id\" id\n\nshowEasing nth txt fn = do\n let yOffset | even nth = 0\n | odd nth = -1\n xOffset = -6 + fromIntegral nth*2\n newSpriteSVG_ $\n \ttranslate xOffset yOffset $\n label txt\n fork $ play $ mapA (translate xOffset 0) $\n mapA (rotate 90) $\n mapA (scale (screenHeight/screenWidth * 0.6)) $\n signalA fn drawProgress\n\nlabel txt =\n translate 0 (-2.5) $\n scale 0.7 $\n center $\n withStrokeWidth 0 $\n withFillOpacity 1 $\n svg\n where\n svg = latex txt\n"}
|
||||||
,{"title": "Easing Graphs","url": "https://reanimate.clozecards.com/FEyCDsj0V82/255.svg","code": "colorPalette = parula -- try: viridis, sinebow, turbo, cividis\nfns =\n [(\"curveS\", curveS 2)\n ,(\"bellS\", bellS 2)\n ,(\"constantS\", constantS 0.7)\n ,(\"oscillateS\", oscillateS)\n ,(\"powerS\", powerS 2)\n ,(\"reverseS\", reverseS)\n ,(\"id\", id)\n ]\n\nanimation :: Animation\nanimation = docEnv $ pauseAtEnd 1 $ sceneAnimation $ do\n newSpriteSVG_ $ mkBackground \"white\"\n play $ signalA (curveS 2) $ animate $ \\t -> partialSvg t grid\n newSpriteSVG_ grid\n wait 1\n flip mapM_ (zip [0..] fns) $ \\(nth, (txt, fn)) -> do\n let color = promotePixel $ colorPalette (nth / fromIntegral (length fns-1))\n showEasing nth txt fn color\n {- showEasing 3 \"oscillateS\" oscillateS\n showEasing 4 \"powerS\" (powerS 2)\n showEasing 5 \"reverseS\" reverseS\n showEasing 6 \"id\" id -}\n\ngridOffset = -2\ngridHeight = 5\ngridWidth = 8\n\ngrid :: SVG\ngrid = translate gridOffset 0 $\n withStrokeWidth defaultStrokeWidth $\n withStrokeColor \"grey\" $ mkGroup\n [ mkPath $ concat\n [[ SVG.MoveTo SVG.OriginAbsolute [V2 (-gridWidth/2) (gridHeight/2-n)]\n ,SVG.HorizontalTo SVG.OriginRelative [gridWidth] ]\n | n <- [1..gridHeight-1]\n ]\n , mkPath \n [ SVG.MoveTo SVG.OriginAbsolute [V2 (-gridWidth/2) (gridHeight/2)]\n , SVG.VerticalTo SVG.OriginRelative [-gridHeight]\n , SVG.HorizontalTo SVG.OriginRelative [gridWidth]\n , SVG.VerticalTo SVG.OriginRelative [gridHeight]\n , SVG.EndPath\n ]\n ]\n\nshowEasing nth txt fn color = do\n let steps = 100\n slope = withStrokeColorPixel color $\n translate gridOffset 0 $ mkLinePath\n [ ((x/steps-0.5)*gridWidth, (y-0.5)*gridHeight)\n | x <- [0..steps]\n , let y = fn (x/steps) ]\n s <- newSpriteSVG $\n withFillColorPixel color $\n translate (gridWidth/2+gridOffset+0.5) (gridHeight/2-nth) $\n label txt\n spriteE s $ overBeginning 0.2 fadeInE\n play $ animate $ \\t -> partialSvg t slope\n newSpriteSVG_ slope\n wait 1\n \nlabel txt = withStrokeColor \"black\" $\n withStrokeWidth (defaultStrokeWidth*2) $\n withFillOpacity 1 $\n latex txt\n"}
|
,{"title": "Easing Graphs","url": "https://reanimate.clozecards.com/FEyCDsj0V82/255.svg","code": "colorPalette = parula -- try: viridis, sinebow, turbo, cividis\nfns =\n [(\"curveS\", curveS 2)\n ,(\"bellS\", bellS 2)\n ,(\"constantS\", constantS 0.7)\n ,(\"oscillateS\", oscillateS)\n ,(\"powerS\", powerS 2)\n ,(\"reverseS\", reverseS)\n ,(\"id\", id)\n ]\n\nanimation :: Animation\nanimation = docEnv $ pauseAtEnd 1 $ sceneAnimation $ do\n newSpriteSVG_ $ mkBackground \"white\"\n play $ signalA (curveS 2) $ animate $ \\t -> partialSvg t grid\n newSpriteSVG_ grid\n wait 1\n flip mapM_ (zip [0..] fns) $ \\(nth, (txt, fn)) -> do\n let color = promotePixel $ colorPalette (nth / fromIntegral (length fns-1))\n showEasing nth txt fn color\n {- showEasing 3 \"oscillateS\" oscillateS\n showEasing 4 \"powerS\" (powerS 2)\n showEasing 5 \"reverseS\" reverseS\n showEasing 6 \"id\" id -}\n\ngridOffset = -2\ngridHeight = 5\ngridWidth = 8\n\ngrid :: SVG\ngrid = translate gridOffset 0 $\n withStrokeWidth defaultStrokeWidth $\n withStrokeColor \"grey\" $ mkGroup\n [ mkPath $ concat\n [[ SVG.MoveTo SVG.OriginAbsolute [V2 (-gridWidth/2) (gridHeight/2-n)]\n ,SVG.HorizontalTo SVG.OriginRelative [gridWidth] ]\n | n <- [1..gridHeight-1]\n ]\n , mkPath \n [ SVG.MoveTo SVG.OriginAbsolute [V2 (-gridWidth/2) (gridHeight/2)]\n , SVG.VerticalTo SVG.OriginRelative [-gridHeight]\n , SVG.HorizontalTo SVG.OriginRelative [gridWidth]\n , SVG.VerticalTo SVG.OriginRelative [gridHeight]\n , SVG.EndPath\n ]\n ]\n\nshowEasing nth txt fn color = do\n let steps = 100\n slope = withStrokeColorPixel color $\n translate gridOffset 0 $ mkLinePath\n [ ((x/steps-0.5)*gridWidth, (y-0.5)*gridHeight)\n | x <- [0..steps]\n , let y = fn (x/steps) ]\n s <- newSpriteSVG $\n withFillColorPixel color $\n translate (gridWidth/2+gridOffset+0.5) (gridHeight/2-nth) $\n label txt\n spriteE s $ overBeginning 0.2 fadeInE\n play $ animate $ \\t -> partialSvg t slope\n newSpriteSVG_ slope\n wait 1\n \nlabel txt = withStrokeColor \"black\" $\n withStrokeWidth (defaultStrokeWidth*2) $\n withFillOpacity 1 $\n latex txt\n"}
|
||||||
,{"title": "Object Positions","url": "https://reanimate.clozecards.com/IAQhjO0Ke7h/195.svg","code": "env =\n addStatic (mkBackground \"white\") .\n mapA (withStrokeColor \"black\")\n\nanimation :: Animation\nanimation = env $\n sceneAnimation $ do\n -- Configure objects\n txt <- newText \"Center\"\n top <- newText \"Top\"\n oModifyS top $ \n oTopY .= screenTop\n topR <- newText \"Top right\"\n oModifyS topR $ do\n oTopY .= screenTop\n oRightX .= screenRight\n botR <- newText \"Bottom right\"\n oModifyS botR $ do\n oBottomY .= screenBottom\n oRightX .= screenRight\n botL <- newText \"Bottom left\"\n oModifyS botL $ do\n oBottomY .= screenBottom\n oLeftX .= screenLeft\n topL <- newText \"Top left\"\n oModifyS topL $ do\n oTopY .= screenTop\n oLeftX .= screenLeft\n -- Show objects\n oShow txt\n wait 1\n switchTo txt top\n switchTo top topR\n switchTo topR botR\n switchTo botR botL\n switchTo botL topL\n switchTo topL txt\n\nswitchTo src dst = do\n fork $ oFadeOut src 1\n oModify dst $ oOpacity .~ 1\n oFadeIn dst 1\n wait 1\n\nnewText txt =\n newObject $ scale 1.5 $ center $ latex txt\n"}
|
,{"title": "Object Positions","url": "https://reanimate.clozecards.com/IAQhjO0Ke7h/195.svg","code": "env =\n addStatic (mkBackground \"white\") .\n mapA (withStrokeColor \"black\")\n\nanimation :: Animation\nanimation = env $\n sceneAnimation $ do\n -- Configure objects\n txt <- newText \"Center\"\n top <- newText \"Top\"\n oModifyS top $ \n oTopY .= screenTop\n topR <- newText \"Top right\"\n oModifyS topR $ do\n oTopY .= screenTop\n oRightX .= screenRight\n botR <- newText \"Bottom right\"\n oModifyS botR $ do\n oBottomY .= screenBottom\n oRightX .= screenRight\n botL <- newText \"Bottom left\"\n oModifyS botL $ do\n oBottomY .= screenBottom\n oLeftX .= screenLeft\n topL <- newText \"Top left\"\n oModifyS topL $ do\n oTopY .= screenTop\n oLeftX .= screenLeft\n -- Show objects\n oShow txt\n wait 1\n switchTo txt top\n switchTo top topR\n switchTo topR botR\n switchTo botR botL\n switchTo botL topL\n switchTo topL txt\n\nswitchTo src dst = do\n fork $ oFadeOut src 1\n oModify dst $ oOpacity .~ 1\n oFadeIn dst 1\n wait 1\n\nnewText txt =\n newObject $ scale 1.5 $ center $ latex txt\n"}
|
||||||
|
,{"title": "Camera","url": "https://reanimate.clozecards.com/M0zmmcMpBkj/150.svg","code": "animation :: Animation\nanimation = docEnv $ mapA (withFillOpacity 1) $ sceneAnimation $ do\n cam <- newObject Camera\n\n txt <- newObject $ center $ latex \"Fixed (non-cam)\"\n oModifyS txt $ do\n oTopY .= screenTop \n oZIndex .= 2\n\n circle <- newObject $ Circle 1\n cameraAttach cam circle\n oModify circle $ oContext .~ withFillColor \"blue\"\n circleRight <- oRead circle oRightX\n\n box <- newObject $ Rectangle 2 2\n cameraAttach cam box\n oModify box $ oContext .~ withFillColor \"green\"\n oModify box $ oLeftX .~ circleRight\n boxCenter <- oRead box oCenterXY\n\n small <- newObject $ center $ latex \"This text is very small\"\n cameraAttach cam small\n oModifyS small $ do\n oCenterXY .= boxCenter\n oScale .= 0.1\n \n oShow txt\n oShow small\n oShow circle\n oShow box\n\n wait 1\n\n cameraFocus cam boxCenter\n waitOn $ do\n fork $ cameraPan cam 3 boxCenter\n fork $ cameraZoom cam 3 15\n \n wait 2\n waitOn $ do\n fork $ cameraZoom cam 3 1\n waitOn $ do\n fork $ cameraPan cam 1 (0,0)\n"}
|
||||||
];
|
];
|
||||||
const playgroundVersion = "2020-08-25 (fd9fc)";
|
const playgroundVersion = "2020-08-25 (48b2a)";
|
||||||
|
|
|
||||||
|
|
@ -979,164 +979,167 @@ span.spaces { background: white }
|
||||||
<span class="lineno"> 960 </span><span class="spaces"> </span><span class="nottickedoff">withGroupOpacity _oOpacity $</span>
|
<span class="lineno"> 960 </span><span class="spaces"> </span><span class="nottickedoff">withGroupOpacity _oOpacity $</span>
|
||||||
<span class="lineno"> 961 </span><span class="spaces"> </span><span class="nottickedoff">_oContext _oSVG</span>
|
<span class="lineno"> 961 </span><span class="spaces"> </span><span class="nottickedoff">_oContext _oSVG</span>
|
||||||
<span class="lineno"> 962 </span><span class="spaces"> </span><span class="nottickedoff">else None</span>
|
<span class="lineno"> 962 </span><span class="spaces"> </span><span class="nottickedoff">else None</span>
|
||||||
<span class="lineno"> 963 </span><span class="spaces"> </span><span class="nottickedoff">return Object</span>
|
<span class="lineno"> 963 </span><span class="spaces"> </span><span class="nottickedoff">spriteModify sprite $ do</span>
|
||||||
<span class="lineno"> 964 </span><span class="spaces"> </span><span class="nottickedoff">{ objectSprite = sprite</span>
|
<span class="lineno"> 964 </span><span class="spaces"> </span><span class="nottickedoff">~ObjectData{_oZIndex=z} <- unVar ref</span>
|
||||||
<span class="lineno"> 965 </span><span class="spaces"> </span><span class="nottickedoff">, objectData = ref }</span>
|
<span class="lineno"> 965 </span><span class="spaces"> </span><span class="nottickedoff">pure $ \(img,_) -> (img,z)</span>
|
||||||
<span class="lineno"> 966 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
|
<span class="lineno"> 966 </span><span class="spaces"> </span><span class="nottickedoff">return Object</span>
|
||||||
<span class="lineno"> 967 </span><span class="spaces"> </span><span class="nottickedoff">svg = toSVG val</span></span>
|
<span class="lineno"> 967 </span><span class="spaces"> </span><span class="nottickedoff">{ objectSprite = sprite</span>
|
||||||
<span class="lineno"> 968 </span>
|
<span class="lineno"> 968 </span><span class="spaces"> </span><span class="nottickedoff">, objectData = ref }</span>
|
||||||
<span class="lineno"> 969 </span>-------------------------------------------------------------------------------
|
<span class="lineno"> 969 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
|
||||||
<span class="lineno"> 970 </span>-- Graphical transformations
|
<span class="lineno"> 970 </span><span class="spaces"> </span><span class="nottickedoff">svg = toSVG val</span></span>
|
||||||
<span class="lineno"> 971 </span>
|
<span class="lineno"> 971 </span>
|
||||||
<span class="lineno"> 972 </span>-- | Instantly show object.
|
<span class="lineno"> 972 </span>-------------------------------------------------------------------------------
|
||||||
<span class="lineno"> 973 </span>oShow :: Object s a -> Scene s ()
|
<span class="lineno"> 973 </span>-- Graphical transformations
|
||||||
<span class="lineno"> 974 </span><span class="decl"><span class="nottickedoff">oShow o = oModify o $ oShown .~ True</span></span>
|
<span class="lineno"> 974 </span>
|
||||||
<span class="lineno"> 975 </span>
|
<span class="lineno"> 975 </span>-- | Instantly show object.
|
||||||
<span class="lineno"> 976 </span>-- | Instantly hide object.
|
<span class="lineno"> 976 </span>oShow :: Object s a -> Scene s ()
|
||||||
<span class="lineno"> 977 </span>oHide :: Object s a -> Scene s ()
|
<span class="lineno"> 977 </span><span class="decl"><span class="nottickedoff">oShow o = oModify o $ oShown .~ True</span></span>
|
||||||
<span class="lineno"> 978 </span><span class="decl"><span class="nottickedoff">oHide o = oModify o $ oShown .~ False</span></span>
|
<span class="lineno"> 978 </span>
|
||||||
<span class="lineno"> 979 </span>
|
<span class="lineno"> 979 </span>-- | Instantly hide object.
|
||||||
<span class="lineno"> 980 </span>-- | Fade in object over a set duration.
|
<span class="lineno"> 980 </span>oHide :: Object s a -> Scene s ()
|
||||||
<span class="lineno"> 981 </span>oFadeIn :: Object s a -> Duration -> Scene s ()
|
<span class="lineno"> 981 </span><span class="decl"><span class="nottickedoff">oHide o = oModify o $ oShown .~ False</span></span>
|
||||||
<span class="lineno"> 982 </span><span class="decl"><span class="nottickedoff">oFadeIn o d = do</span>
|
<span class="lineno"> 982 </span>
|
||||||
<span class="lineno"> 983 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
<span class="lineno"> 983 </span>-- | Fade in object over a set duration.
|
||||||
<span class="lineno"> 984 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
<span class="lineno"> 984 </span>oFadeIn :: Object s a -> Duration -> Scene s ()
|
||||||
<span class="lineno"> 985 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
<span class="lineno"> 985 </span><span class="decl"><span class="nottickedoff">oFadeIn o d = do</span>
|
||||||
<span class="lineno"> 986 </span><span class="spaces"> </span><span class="nottickedoff">oOpacity *= t</span></span>
|
<span class="lineno"> 986 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
||||||
<span class="lineno"> 987 </span>
|
<span class="lineno"> 987 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
||||||
<span class="lineno"> 988 </span>-- | Fade out object over a set duration.
|
<span class="lineno"> 988 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
||||||
<span class="lineno"> 989 </span>oFadeOut :: Object s a -> Duration -> Scene s ()
|
<span class="lineno"> 989 </span><span class="spaces"> </span><span class="nottickedoff">oOpacity *= t</span></span>
|
||||||
<span class="lineno"> 990 </span><span class="decl"><span class="nottickedoff">oFadeOut o d = do</span>
|
<span class="lineno"> 990 </span>
|
||||||
<span class="lineno"> 991 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
<span class="lineno"> 991 </span>-- | Fade out object over a set duration.
|
||||||
<span class="lineno"> 992 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
<span class="lineno"> 992 </span>oFadeOut :: Object s a -> Duration -> Scene s ()
|
||||||
<span class="lineno"> 993 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
<span class="lineno"> 993 </span><span class="decl"><span class="nottickedoff">oFadeOut o d = do</span>
|
||||||
<span class="lineno"> 994 </span><span class="spaces"> </span><span class="nottickedoff">oOpacity *= 1-t</span></span>
|
<span class="lineno"> 994 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
||||||
<span class="lineno"> 995 </span>
|
<span class="lineno"> 995 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
||||||
<span class="lineno"> 996 </span>-- | Scale in object over a set duration.
|
<span class="lineno"> 996 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
||||||
<span class="lineno"> 997 </span>oGrow :: Object s a -> Duration -> Scene s ()
|
<span class="lineno"> 997 </span><span class="spaces"> </span><span class="nottickedoff">oOpacity *= 1-t</span></span>
|
||||||
<span class="lineno"> 998 </span><span class="decl"><span class="nottickedoff">oGrow o d = do</span>
|
<span class="lineno"> 998 </span>
|
||||||
<span class="lineno"> 999 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
<span class="lineno"> 999 </span>-- | Scale in object over a set duration.
|
||||||
<span class="lineno"> 1000 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
<span class="lineno"> 1000 </span>oGrow :: Object s a -> Duration -> Scene s ()
|
||||||
<span class="lineno"> 1001 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
<span class="lineno"> 1001 </span><span class="decl"><span class="nottickedoff">oGrow o d = do</span>
|
||||||
<span class="lineno"> 1002 </span><span class="spaces"> </span><span class="nottickedoff">oScale *= t</span></span>
|
<span class="lineno"> 1002 </span><span class="spaces"> </span><span class="nottickedoff">oModify o $ </span>
|
||||||
<span class="lineno"> 1003 </span>
|
<span class="lineno"> 1003 </span><span class="spaces"> </span><span class="nottickedoff">oShown .~ True</span>
|
||||||
<span class="lineno"> 1004 </span>-- | Scale out object over a set duration.
|
<span class="lineno"> 1004 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
||||||
<span class="lineno"> 1005 </span>oShrink :: Object s a -> Duration -> Scene s ()
|
<span class="lineno"> 1005 </span><span class="spaces"> </span><span class="nottickedoff">oScale *= t</span></span>
|
||||||
<span class="lineno"> 1006 </span><span class="decl"><span class="nottickedoff">oShrink o d =</span>
|
<span class="lineno"> 1006 </span>
|
||||||
<span class="lineno"> 1007 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
<span class="lineno"> 1007 </span>-- | Scale out object over a set duration.
|
||||||
<span class="lineno"> 1008 </span><span class="spaces"> </span><span class="nottickedoff">oScale *= 1-t</span></span>
|
<span class="lineno"> 1008 </span>oShrink :: Object s a -> Duration -> Scene s ()
|
||||||
<span class="lineno"> 1009 </span>
|
<span class="lineno"> 1009 </span><span class="decl"><span class="nottickedoff">oShrink o d =</span>
|
||||||
<span class="lineno"> 1010 </span>-- FIXME: Also transform attributes: 'opacity', 'scale', 'scaleOrigin'.
|
<span class="lineno"> 1010 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS o d $ \t -></span>
|
||||||
<span class="lineno"> 1011 </span>-- | Morph source object into target object over a set duration.
|
<span class="lineno"> 1011 </span><span class="spaces"> </span><span class="nottickedoff">oScale *= 1-t</span></span>
|
||||||
<span class="lineno"> 1012 </span>oTransform :: Object s a -> Object s b -> Duration -> Scene s ()
|
<span class="lineno"> 1012 </span>
|
||||||
<span class="lineno"> 1013 </span><span class="decl"><span class="nottickedoff">oTransform src dst d = do</span>
|
<span class="lineno"> 1013 </span>-- FIXME: Also transform attributes: 'opacity', 'scale', 'scaleOrigin'.
|
||||||
<span class="lineno"> 1014 </span><span class="spaces"> </span><span class="nottickedoff">srcSvg <- oRead src oSVG</span>
|
<span class="lineno"> 1014 </span>-- | Morph source object into target object over a set duration.
|
||||||
<span class="lineno"> 1015 </span><span class="spaces"> </span><span class="nottickedoff">srcCtx <- oRead src oContext</span>
|
<span class="lineno"> 1015 </span>oTransform :: Object s a -> Object s b -> Duration -> Scene s ()
|
||||||
<span class="lineno"> 1016 </span><span class="spaces"> </span><span class="nottickedoff">srcEase <- oRead src oEasing</span>
|
<span class="lineno"> 1016 </span><span class="decl"><span class="nottickedoff">oTransform src dst d = do</span>
|
||||||
<span class="lineno"> 1017 </span><span class="spaces"> </span><span class="nottickedoff">srcLoc <- oRead src oTranslate</span>
|
<span class="lineno"> 1017 </span><span class="spaces"> </span><span class="nottickedoff">srcSvg <- oRead src oSVG</span>
|
||||||
<span class="lineno"> 1018 </span><span class="spaces"> </span><span class="nottickedoff">oModify src $ oShown .~ False</span>
|
<span class="lineno"> 1018 </span><span class="spaces"> </span><span class="nottickedoff">srcCtx <- oRead src oContext</span>
|
||||||
<span class="lineno"> 1019 </span><span class="spaces"> </span><span class="nottickedoff"></span>
|
<span class="lineno"> 1019 </span><span class="spaces"> </span><span class="nottickedoff">srcEase <- oRead src oEasing</span>
|
||||||
<span class="lineno"> 1020 </span><span class="spaces"> </span><span class="nottickedoff">dstSvg <- oRead dst oSVG</span>
|
<span class="lineno"> 1020 </span><span class="spaces"> </span><span class="nottickedoff">srcLoc <- oRead src oTranslate</span>
|
||||||
<span class="lineno"> 1021 </span><span class="spaces"> </span><span class="nottickedoff">dstCtx <- oRead dst oContext</span>
|
<span class="lineno"> 1021 </span><span class="spaces"> </span><span class="nottickedoff">oModify src $ oShown .~ False</span>
|
||||||
<span class="lineno"> 1022 </span><span class="spaces"> </span><span class="nottickedoff">dstLoc <- oRead dst oTranslate</span>
|
<span class="lineno"> 1022 </span><span class="spaces"> </span><span class="nottickedoff"></span>
|
||||||
<span class="lineno"> 1023 </span><span class="spaces"></span><span class="nottickedoff"></span>
|
<span class="lineno"> 1023 </span><span class="spaces"> </span><span class="nottickedoff">dstSvg <- oRead dst oSVG</span>
|
||||||
<span class="lineno"> 1024 </span><span class="spaces"> </span><span class="nottickedoff">m <- newObject $ Morph 0 (srcCtx srcSvg) (dstCtx dstSvg)</span>
|
<span class="lineno"> 1024 </span><span class="spaces"> </span><span class="nottickedoff">dstCtx <- oRead dst oContext</span>
|
||||||
<span class="lineno"> 1025 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS m $ do</span>
|
<span class="lineno"> 1025 </span><span class="spaces"> </span><span class="nottickedoff">dstLoc <- oRead dst oTranslate</span>
|
||||||
<span class="lineno"> 1026 </span><span class="spaces"> </span><span class="nottickedoff">oShown .= True</span>
|
<span class="lineno"> 1026 </span><span class="spaces"></span><span class="nottickedoff"></span>
|
||||||
<span class="lineno"> 1027 </span><span class="spaces"> </span><span class="nottickedoff">oEasing .= srcEase</span>
|
<span class="lineno"> 1027 </span><span class="spaces"> </span><span class="nottickedoff">m <- newObject $ Morph 0 (srcCtx srcSvg) (dstCtx dstSvg)</span>
|
||||||
<span class="lineno"> 1028 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= srcLoc</span>
|
<span class="lineno"> 1028 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS m $ do</span>
|
||||||
<span class="lineno"> 1029 </span><span class="spaces"> </span><span class="nottickedoff">fork $ oTween m d $ \t -> oTranslate %~ moveTo t dstLoc</span>
|
<span class="lineno"> 1029 </span><span class="spaces"> </span><span class="nottickedoff">oShown .= True</span>
|
||||||
<span class="lineno"> 1030 </span><span class="spaces"> </span><span class="nottickedoff">oTweenV m d $ \t -> morphDelta .~ t</span>
|
<span class="lineno"> 1030 </span><span class="spaces"> </span><span class="nottickedoff">oEasing .= srcEase</span>
|
||||||
<span class="lineno"> 1031 </span><span class="spaces"> </span><span class="nottickedoff">oModify m $ oShown .~ False</span>
|
<span class="lineno"> 1031 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= srcLoc</span>
|
||||||
<span class="lineno"> 1032 </span><span class="spaces"> </span><span class="nottickedoff">oModify dst $ oShown .~ True</span>
|
<span class="lineno"> 1032 </span><span class="spaces"> </span><span class="nottickedoff">fork $ oTween m d $ \t -> oTranslate %~ moveTo t dstLoc</span>
|
||||||
<span class="lineno"> 1033 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
|
<span class="lineno"> 1033 </span><span class="spaces"> </span><span class="nottickedoff">oTweenV m d $ \t -> morphDelta .~ t</span>
|
||||||
<span class="lineno"> 1034 </span><span class="spaces"> </span><span class="nottickedoff">moveTo t (dstX, dstY) (srcX, srcY) =</span>
|
<span class="lineno"> 1034 </span><span class="spaces"> </span><span class="nottickedoff">oModify m $ oShown .~ False</span>
|
||||||
<span class="lineno"> 1035 </span><span class="spaces"> </span><span class="nottickedoff">(fromToS srcX dstX t, fromToS srcY dstY t)</span></span>
|
<span class="lineno"> 1035 </span><span class="spaces"> </span><span class="nottickedoff">oModify dst $ oShown .~ True</span>
|
||||||
<span class="lineno"> 1036 </span>
|
<span class="lineno"> 1036 </span><span class="spaces"> </span><span class="nottickedoff">where</span>
|
||||||
<span class="lineno"> 1037 </span>
|
<span class="lineno"> 1037 </span><span class="spaces"> </span><span class="nottickedoff">moveTo t (dstX, dstY) (srcX, srcY) =</span>
|
||||||
<span class="lineno"> 1038 </span>-------------------------------------------------------------------------------
|
<span class="lineno"> 1038 </span><span class="spaces"> </span><span class="nottickedoff">(fromToS srcX dstX t, fromToS srcY dstY t)</span></span>
|
||||||
<span class="lineno"> 1039 </span>-- Built-in objects
|
<span class="lineno"> 1039 </span>
|
||||||
<span class="lineno"> 1040 </span>
|
<span class="lineno"> 1040 </span>
|
||||||
<span class="lineno"> 1041 </span>newtype Circle = Circle {<span class="nottickedoff"><span class="decl"><span class="nottickedoff">_circleRadius</span></span></span> :: Double}
|
<span class="lineno"> 1041 </span>-------------------------------------------------------------------------------
|
||||||
<span class="lineno"> 1042 </span>
|
<span class="lineno"> 1042 </span>-- Built-in objects
|
||||||
<span class="lineno"> 1043 </span>circleRadius :: Iso' Circle Double
|
<span class="lineno"> 1043 </span>
|
||||||
<span class="lineno"> 1044 </span><span class="decl"><span class="nottickedoff">circleRadius = iso _circleRadius Circle</span></span>
|
<span class="lineno"> 1044 </span>newtype Circle = Circle {<span class="nottickedoff"><span class="decl"><span class="nottickedoff">_circleRadius</span></span></span> :: Double}
|
||||||
<span class="lineno"> 1045 </span>
|
<span class="lineno"> 1045 </span>
|
||||||
<span class="lineno"> 1046 </span>instance Renderable Circle where
|
<span class="lineno"> 1046 </span>circleRadius :: Iso' Circle Double
|
||||||
<span class="lineno"> 1047 </span> <span class="decl"><span class="nottickedoff">toSVG (Circle r) = mkCircle r</span></span>
|
<span class="lineno"> 1047 </span><span class="decl"><span class="nottickedoff">circleRadius = iso _circleRadius Circle</span></span>
|
||||||
<span class="lineno"> 1048 </span>
|
<span class="lineno"> 1048 </span>
|
||||||
<span class="lineno"> 1049 </span>data Rectangle = Rectangle { <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_rectWidth</span></span></span> :: Double, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_rectHeight</span></span></span> :: Double }
|
<span class="lineno"> 1049 </span>instance Renderable Circle where
|
||||||
<span class="lineno"> 1050 </span>
|
<span class="lineno"> 1050 </span> <span class="decl"><span class="nottickedoff">toSVG (Circle r) = mkCircle r</span></span>
|
||||||
<span class="lineno"> 1051 </span>rectWidth :: Lens' Rectangle Double
|
<span class="lineno"> 1051 </span>
|
||||||
<span class="lineno"> 1052 </span><span class="decl"><span class="nottickedoff">rectWidth = lens _rectWidth $ \obj val -> obj{_rectWidth=val}</span></span>
|
<span class="lineno"> 1052 </span>data Rectangle = Rectangle { <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_rectWidth</span></span></span> :: Double, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_rectHeight</span></span></span> :: Double }
|
||||||
<span class="lineno"> 1053 </span>
|
<span class="lineno"> 1053 </span>
|
||||||
<span class="lineno"> 1054 </span>rectHeight :: Lens' Rectangle Double
|
<span class="lineno"> 1054 </span>rectWidth :: Lens' Rectangle Double
|
||||||
<span class="lineno"> 1055 </span><span class="decl"><span class="nottickedoff">rectHeight = lens _rectHeight $ \obj val -> obj{_rectHeight=val}</span></span>
|
<span class="lineno"> 1055 </span><span class="decl"><span class="nottickedoff">rectWidth = lens _rectWidth $ \obj val -> obj{_rectWidth=val}</span></span>
|
||||||
<span class="lineno"> 1056 </span>
|
<span class="lineno"> 1056 </span>
|
||||||
<span class="lineno"> 1057 </span>instance Renderable Rectangle where
|
<span class="lineno"> 1057 </span>rectHeight :: Lens' Rectangle Double
|
||||||
<span class="lineno"> 1058 </span> <span class="decl"><span class="nottickedoff">toSVG (Rectangle w h) = mkRect w h</span></span>
|
<span class="lineno"> 1058 </span><span class="decl"><span class="nottickedoff">rectHeight = lens _rectHeight $ \obj val -> obj{_rectHeight=val}</span></span>
|
||||||
<span class="lineno"> 1059 </span>
|
<span class="lineno"> 1059 </span>
|
||||||
<span class="lineno"> 1060 </span>data Morph = Morph { <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphDelta</span></span></span> :: Double, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphSrc</span></span></span> :: SVG, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphDst</span></span></span> :: SVG }
|
<span class="lineno"> 1060 </span>instance Renderable Rectangle where
|
||||||
<span class="lineno"> 1061 </span>
|
<span class="lineno"> 1061 </span> <span class="decl"><span class="nottickedoff">toSVG (Rectangle w h) = mkRect w h</span></span>
|
||||||
<span class="lineno"> 1062 </span>morphDelta :: Lens' Morph Double
|
<span class="lineno"> 1062 </span>
|
||||||
<span class="lineno"> 1063 </span><span class="decl"><span class="nottickedoff">morphDelta = lens _morphDelta $ \obj val -> obj{_morphDelta = val}</span></span>
|
<span class="lineno"> 1063 </span>data Morph = Morph { <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphDelta</span></span></span> :: Double, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphSrc</span></span></span> :: SVG, <span class="nottickedoff"><span class="decl"><span class="nottickedoff">_morphDst</span></span></span> :: SVG }
|
||||||
<span class="lineno"> 1064 </span>
|
<span class="lineno"> 1064 </span>
|
||||||
<span class="lineno"> 1065 </span>morphSrc :: Lens' Morph SVG
|
<span class="lineno"> 1065 </span>morphDelta :: Lens' Morph Double
|
||||||
<span class="lineno"> 1066 </span><span class="decl"><span class="nottickedoff">morphSrc = lens _morphSrc $ \obj val -> obj{_morphSrc = val}</span></span>
|
<span class="lineno"> 1066 </span><span class="decl"><span class="nottickedoff">morphDelta = lens _morphDelta $ \obj val -> obj{_morphDelta = val}</span></span>
|
||||||
<span class="lineno"> 1067 </span>
|
<span class="lineno"> 1067 </span>
|
||||||
<span class="lineno"> 1068 </span>morphDst :: Lens' Morph SVG
|
<span class="lineno"> 1068 </span>morphSrc :: Lens' Morph SVG
|
||||||
<span class="lineno"> 1069 </span><span class="decl"><span class="nottickedoff">morphDst = lens _morphDst $ \obj val -> obj{_morphDst = val}</span></span>
|
<span class="lineno"> 1069 </span><span class="decl"><span class="nottickedoff">morphSrc = lens _morphSrc $ \obj val -> obj{_morphSrc = val}</span></span>
|
||||||
<span class="lineno"> 1070 </span>
|
<span class="lineno"> 1070 </span>
|
||||||
<span class="lineno"> 1071 </span>instance Renderable Morph where
|
<span class="lineno"> 1071 </span>morphDst :: Lens' Morph SVG
|
||||||
<span class="lineno"> 1072 </span> <span class="decl"><span class="nottickedoff">toSVG (Morph t src dst) = morph linear src dst t</span></span>
|
<span class="lineno"> 1072 </span><span class="decl"><span class="nottickedoff">morphDst = lens _morphDst $ \obj val -> obj{_morphDst = val}</span></span>
|
||||||
<span class="lineno"> 1073 </span>
|
<span class="lineno"> 1073 </span>
|
||||||
<span class="lineno"> 1074 </span>data Camera = Camera
|
<span class="lineno"> 1074 </span>instance Renderable Morph where
|
||||||
<span class="lineno"> 1075 </span>instance Renderable Camera where
|
<span class="lineno"> 1075 </span> <span class="decl"><span class="nottickedoff">toSVG (Morph t src dst) = morph linear src dst t</span></span>
|
||||||
<span class="lineno"> 1076 </span> <span class="decl"><span class="nottickedoff">toSVG Camera = None</span></span>
|
<span class="lineno"> 1076 </span>
|
||||||
<span class="lineno"> 1077 </span>
|
<span class="lineno"> 1077 </span>data Camera = Camera
|
||||||
<span class="lineno"> 1078 </span>cameraAttach :: Object s Camera -> Object s a -> Scene s ()
|
<span class="lineno"> 1078 </span>instance Renderable Camera where
|
||||||
<span class="lineno"> 1079 </span><span class="decl"><span class="nottickedoff">cameraAttach cam obj =</span>
|
<span class="lineno"> 1079 </span> <span class="decl"><span class="nottickedoff">toSVG Camera = None</span></span>
|
||||||
<span class="lineno"> 1080 </span><span class="spaces"> </span><span class="nottickedoff">spriteModify (objectSprite obj) $ do</span>
|
<span class="lineno"> 1080 </span>
|
||||||
<span class="lineno"> 1081 </span><span class="spaces"> </span><span class="nottickedoff">camData <- unVar (objectData cam)</span>
|
<span class="lineno"> 1081 </span>cameraAttach :: Object s Camera -> Object s a -> Scene s ()
|
||||||
<span class="lineno"> 1082 </span><span class="spaces"> </span><span class="nottickedoff">return $ \(svg,zindex) -></span>
|
<span class="lineno"> 1082 </span><span class="decl"><span class="nottickedoff">cameraAttach cam obj =</span>
|
||||||
<span class="lineno"> 1083 </span><span class="spaces"> </span><span class="nottickedoff">let (x,y) = camData^.oTranslate</span>
|
<span class="lineno"> 1083 </span><span class="spaces"> </span><span class="nottickedoff">spriteModify (objectSprite obj) $ do</span>
|
||||||
<span class="lineno"> 1084 </span><span class="spaces"> </span><span class="nottickedoff">ctx =</span>
|
<span class="lineno"> 1084 </span><span class="spaces"> </span><span class="nottickedoff">camData <- unVar (objectData cam)</span>
|
||||||
<span class="lineno"> 1085 </span><span class="spaces"> </span><span class="nottickedoff">translate (-x) (-y) .</span>
|
<span class="lineno"> 1085 </span><span class="spaces"> </span><span class="nottickedoff">return $ \(svg,zindex) -></span>
|
||||||
<span class="lineno"> 1086 </span><span class="spaces"> </span><span class="nottickedoff">uncurry translate (camData^.oScaleOrigin) .</span>
|
<span class="lineno"> 1086 </span><span class="spaces"> </span><span class="nottickedoff">let (x,y) = camData^.oTranslate</span>
|
||||||
<span class="lineno"> 1087 </span><span class="spaces"> </span><span class="nottickedoff">scale (camData^.oScale) .</span>
|
<span class="lineno"> 1087 </span><span class="spaces"> </span><span class="nottickedoff">ctx =</span>
|
||||||
<span class="lineno"> 1088 </span><span class="spaces"> </span><span class="nottickedoff">uncurry translate (camData^.oScaleOrigin & both %~ negate)</span>
|
<span class="lineno"> 1088 </span><span class="spaces"> </span><span class="nottickedoff">translate (-x) (-y) .</span>
|
||||||
<span class="lineno"> 1089 </span><span class="spaces"> </span><span class="nottickedoff">in (ctx svg, zindex)</span></span>
|
<span class="lineno"> 1089 </span><span class="spaces"> </span><span class="nottickedoff">uncurry translate (camData^.oScaleOrigin) .</span>
|
||||||
<span class="lineno"> 1090 </span>
|
<span class="lineno"> 1090 </span><span class="spaces"> </span><span class="nottickedoff">scale (camData^.oScale) .</span>
|
||||||
<span class="lineno"> 1091 </span>cameraFocus :: Object s Camera -> (Double, Double) -> Scene s ()
|
<span class="lineno"> 1091 </span><span class="spaces"> </span><span class="nottickedoff">uncurry translate (camData^.oScaleOrigin & both %~ negate)</span>
|
||||||
<span class="lineno"> 1092 </span><span class="decl"><span class="nottickedoff">cameraFocus cam (x,y) = do</span>
|
<span class="lineno"> 1092 </span><span class="spaces"> </span><span class="nottickedoff">in (ctx svg, zindex)</span></span>
|
||||||
<span class="lineno"> 1093 </span><span class="spaces"> </span><span class="nottickedoff">(ox, oy) <- oRead cam oScaleOrigin</span>
|
<span class="lineno"> 1093 </span>
|
||||||
<span class="lineno"> 1094 </span><span class="spaces"> </span><span class="nottickedoff">(tx, ty) <- oRead cam oTranslate</span>
|
<span class="lineno"> 1094 </span>cameraFocus :: Object s Camera -> (Double, Double) -> Scene s ()
|
||||||
<span class="lineno"> 1095 </span><span class="spaces"> </span><span class="nottickedoff">s <- oRead cam oScale</span>
|
<span class="lineno"> 1095 </span><span class="decl"><span class="nottickedoff">cameraFocus cam (x,y) = do</span>
|
||||||
<span class="lineno"> 1096 </span><span class="spaces"> </span><span class="nottickedoff">let newLocation = (x-((x-ox)*s+ox-tx), y-((y-oy)*s+oy-ty))</span>
|
<span class="lineno"> 1096 </span><span class="spaces"> </span><span class="nottickedoff">(ox, oy) <- oRead cam oScaleOrigin</span>
|
||||||
<span class="lineno"> 1097 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $ do</span>
|
<span class="lineno"> 1097 </span><span class="spaces"> </span><span class="nottickedoff">(tx, ty) <- oRead cam oTranslate</span>
|
||||||
<span class="lineno"> 1098 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= newLocation</span>
|
<span class="lineno"> 1098 </span><span class="spaces"> </span><span class="nottickedoff">s <- oRead cam oScale</span>
|
||||||
<span class="lineno"> 1099 </span><span class="spaces"> </span><span class="nottickedoff">oScaleOrigin .= (x,y)</span></span>
|
<span class="lineno"> 1099 </span><span class="spaces"> </span><span class="nottickedoff">let newLocation = (x-((x-ox)*s+ox-tx), y-((y-oy)*s+oy-ty))</span>
|
||||||
<span class="lineno"> 1100 </span>
|
<span class="lineno"> 1100 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $ do</span>
|
||||||
<span class="lineno"> 1101 </span>cameraSetZoom :: Object s Camera -> Double -> Scene s ()
|
<span class="lineno"> 1101 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= newLocation</span>
|
||||||
<span class="lineno"> 1102 </span><span class="decl"><span class="nottickedoff">cameraSetZoom cam s =</span>
|
<span class="lineno"> 1102 </span><span class="spaces"> </span><span class="nottickedoff">oScaleOrigin .= (x,y)</span></span>
|
||||||
<span class="lineno"> 1103 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $</span>
|
<span class="lineno"> 1103 </span>
|
||||||
<span class="lineno"> 1104 </span><span class="spaces"> </span><span class="nottickedoff">oScale .= s</span></span>
|
<span class="lineno"> 1104 </span>cameraSetZoom :: Object s Camera -> Double -> Scene s ()
|
||||||
<span class="lineno"> 1105 </span>
|
<span class="lineno"> 1105 </span><span class="decl"><span class="nottickedoff">cameraSetZoom cam s =</span>
|
||||||
<span class="lineno"> 1106 </span>cameraZoom :: Object s Camera -> Duration -> Double -> Scene s ()
|
<span class="lineno"> 1106 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $</span>
|
||||||
<span class="lineno"> 1107 </span><span class="decl"><span class="nottickedoff">cameraZoom cam d s =</span>
|
<span class="lineno"> 1107 </span><span class="spaces"> </span><span class="nottickedoff">oScale .= s</span></span>
|
||||||
<span class="lineno"> 1108 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS cam d $ \t -></span>
|
<span class="lineno"> 1108 </span>
|
||||||
<span class="lineno"> 1109 </span><span class="spaces"> </span><span class="nottickedoff">oScale %= \v -> fromToS v s t</span></span>
|
<span class="lineno"> 1109 </span>cameraZoom :: Object s Camera -> Duration -> Double -> Scene s ()
|
||||||
<span class="lineno"> 1110 </span>
|
<span class="lineno"> 1110 </span><span class="decl"><span class="nottickedoff">cameraZoom cam d s =</span>
|
||||||
<span class="lineno"> 1111 </span>cameraSetPan :: Object s Camera -> (Double, Double) -> Scene s ()
|
<span class="lineno"> 1111 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS cam d $ \t -></span>
|
||||||
<span class="lineno"> 1112 </span><span class="decl"><span class="nottickedoff">cameraSetPan cam location =</span>
|
<span class="lineno"> 1112 </span><span class="spaces"> </span><span class="nottickedoff">oScale %= \v -> fromToS v s t</span></span>
|
||||||
<span class="lineno"> 1113 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $ do</span>
|
<span class="lineno"> 1113 </span>
|
||||||
<span class="lineno"> 1114 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= location</span></span>
|
<span class="lineno"> 1114 </span>cameraSetPan :: Object s Camera -> (Double, Double) -> Scene s ()
|
||||||
<span class="lineno"> 1115 </span>
|
<span class="lineno"> 1115 </span><span class="decl"><span class="nottickedoff">cameraSetPan cam location =</span>
|
||||||
<span class="lineno"> 1116 </span>cameraPan :: Object s Camera -> Duration -> (Double, Double) -> Scene s ()
|
<span class="lineno"> 1116 </span><span class="spaces"> </span><span class="nottickedoff">oModifyS cam $ do</span>
|
||||||
<span class="lineno"> 1117 </span><span class="decl"><span class="nottickedoff">cameraPan cam d (x,y) =</span>
|
<span class="lineno"> 1117 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate .= location</span></span>
|
||||||
<span class="lineno"> 1118 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS cam d $ \t -> do</span>
|
<span class="lineno"> 1118 </span>
|
||||||
<span class="lineno"> 1119 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate._1 %= \v -> fromToS v x t</span>
|
<span class="lineno"> 1119 </span>cameraPan :: Object s Camera -> Duration -> (Double, Double) -> Scene s ()
|
||||||
<span class="lineno"> 1120 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate._2 %= \v -> fromToS v y t</span></span>
|
<span class="lineno"> 1120 </span><span class="decl"><span class="nottickedoff">cameraPan cam d (x,y) =</span>
|
||||||
|
<span class="lineno"> 1121 </span><span class="spaces"> </span><span class="nottickedoff">oTweenS cam d $ \t -> do</span>
|
||||||
|
<span class="lineno"> 1122 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate._1 %= \v -> fromToS v x t</span>
|
||||||
|
<span class="lineno"> 1123 </span><span class="spaces"> </span><span class="nottickedoff">oTranslate._2 %= \v -> fromToS v y t</span></span>
|
||||||
|
|
||||||
</pre>
|
</pre>
|
||||||
</body>
|
</body>
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue