Philip Nilsson philipnilsson

I hereby claim:

To claim this, I am signing this object:

I hereby claim:

To claim this, I am signing this object:

	type AdditiveSteps = {
	orientStep: oqton.items.v1.action.types.SLMOrientStepData;
	labelStep: Record<string, oqton.items.v1.action.types.SLMLabelStepData>;
	supportStep: Record<string, oqton.items.v1.action.types.SLMSupportStepData>;
	};

	const $item = Optics.$root('partmodel');
	const $partModel = $item.message;
	const $actionModels = $partModel.routeModels.$each().actionDefinitions.$each().model.$resolve();
	const $machineModels = $actionModels.message.locationModel.$resolve();

	(setq-default line-spacing 4)

	;; Supress initial scratch message
	(setq initial-scratch-message nil)

	(require 'package)
	(add-to-list
	'package-archives
	'("melpa" . "http://melpa.milkbox.net/packages/") t)
	(package-initialize)

	-- Run a stateful computation and on completion
	-- restore state to it's current value.

	excursion st = do
	oldState <- get
	st
	put oldState

	// Some functional utilities
	const map = f => arr => arr.map(f);
	const id = x => x;
	const concat = xs => [].concat(...xs);
	const fold = (f, init) => xs => xs.reduce(f, init);
	const sum = fold((x, y) => x + y, 0);

	// Nested-list algebras
	function alg(leaf, branch) {
	return nested => nested instanceof Array

	combine :: [Either a b] -> ((a,b) -> c) -> [c]
	combine xs f = combine' (Nothing, Nothing) xs
	where
	combine' (_, Just y) (Left l:xs) =
	f (l,y) : combine' (Just l, Just y) xs
	combine' (Just x, _) (Right l:xs) =
	f (x,l) : combine' (Just x, Just l) xs
	combine' (_, y) (Left l : xs) =
	combine' (Just l, y) xs
	combine' (x, _) (Right l : xs) =

	module Main where

	import Engine

	pretty elem
	= elem $= texture (fromFile "slim.jpg")

	scene =
	pretty cube $= rotateX 2t $= rotateY 3t