garyb

module RAF where

import Prelude

import Data.Foldable (traverse_)
import Data.Maybe (Maybe(..))
import Effect.Aff.Class (class MonadAff)
import Effect.Ref as Ref
import Halogen as H
import Halogen.HTML as HH

garyb

// Generated by purs bundle 0.12.0
var PS = {};
(function(exports) {
    "use strict";

  var replicate = function (count) {
    return function (value) {
      if (count < 1) {
        return [];
      }

garyb

• purescript

  • Review & whatever the Prim classes PR purescript/purescript#3176
  • Fix re-export of qualified modules with implicit imports not warning purescript/purescript#2726
  • Allow for multiple source spans in error messages purescript/purescript#3208 (comment)
  • Store source spans in module externs (required for some errors to be positionable)
  • Fix remaining position-less warnings/errors purescript/purescript#3208
  • Warnings for unused decls/values/binders purescript/purescript#1670

• general purescript-related

• Do something about automating mass-core-library updates for new compiler releases, or at least write some thoughts down purescript/purescript#3116 (comment) / purescript/purescript#3185

garyb

{ "a": 1, "b": { "ba": { "innermost": true }, "bb": ["x", false, { "foo": "bar" }], "bc": 0.5 }, "c": [] }
{ "a": 2, "b": { "ba": { "innermost": false }, "bb": ["y", true, { "foo": "baz" }], "bc": 60 }, "c": [true, false, "maybe"] }
{ "a": 3, "b": { "ba": true, "bb": ["z", { "foo": "quux" }] }, "c": null }

garyb

-- | Binary operation
class Magma a where
  op ∷ a → a → a

-- | Associativity: `∀ a b. (a • b) • c = a • (b • c)`
class Magma a ⇐ Associative a

-- | Identity: `∀ a. a • identity = a && identity • a = a`
class Magma a ⇐ Identity a where
  identity ∷ a

garyb

module Main where

import Prelude

import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)
import Data.Symbol (class IsSymbol, SProxy(..), reflectSymbol)

-- First we define a HList with custom kinds, so that we can restrict it to
-- format stuff

garyb

// `a` and `d` are anchor points, `b` and `c` are control points, and `t` is a scalar that specifies the point on the curve you want

var calcBezierValue = function (a, b, c, d, t) {
  if (t < 0 || t > 1) return null;
  return { x: (t * t * (d.x - a.x) + 3 * (1 - t) * (t * (c.x - a.x) + (1 - t) * (b.x - a.x))) * t + a.x,
           y: (t * t * (d.y - a.y) + 3 * (1 - t) * (t * (c.y - a.y) + (1 - t) * (b.y - a.y))) * t + a.y };
};

garyb

class Node
  
  constructor: (@renderer) ->
    @customMatrix = null
    @rotation = 0
    @scaleX = 1
    @scaleY = 1
    @x = 0
    @y = 0
    @children = []