matthewSorensen

This recipe isn't optimized for anything (not compatible with any base glass, nor particularly stable), but it does have a definite phosphoresce. XRD data showed that it was partially crystalline, which makes sense.

I originally melted it to confirm why I was having trouble stabilizing divalent Europium ions in some soda-lime opals. It turns out that Eu(II) is only stable in systems with an optical basicity below a certain threshold.

Try leaving out the silicon powder, as strictly speaking it shouldn't be required, and turns the glass a dark black, absorbing all light emitted from the interior of the material.


Base glass:

10g SiO2 (300+ mesh)

matthewSorensen

Although it is neither light, flaky, or particularly flavorful, this unconventional tart crust is perfect
for highlighting unbaked fillings such as curds. Given its high-temperature processing, all of the standard 
stresses associated with pie crusts ("Oh god, my hands are too warm!", "... did I just over-knead that?...") 
are irrelevant, and the entire process takes 40 minutes. However, this recipe doesn't develop the classic 
flaky laminar microstructure associated with great pies, and possesses the potential for painful burns. 
Interestingly, this crust exhibits a very consistent 10% shrinkage upon baking, making removing it from a 
pan trivial.


# Basic Tart Crust

matthewSorensen

import Data.Array.Repa ( Array, DIM2, DIM3, Z(..), (:.)(..) )
import qualified Data.Array.Repa          as R
import qualified Data.Array.Repa.IO.DevIL as IO
import Data.Word  (Word8)
import Data.Array.Repa.Repr.Delayed (D)

positionToPre :: Int -> Int -> Double -> DIM2 -> (Double,Double,Double)
positionToPre dx dy size (Z :. x :. y) = 
    let c = (fromIntegral $ x + dx) / size
        d = (fromIntegral $ y + dy) / size 

matthewSorensen

{-# OPTIONS_GHC -threaded  -O2 #-}
{-# LANGUAGE OverloadedStrings #-}

-- This benchmark was executed with the following options:
--        -s 100  +RTS -N1 -RTS

import Criterion.Main
import Graphics.Implicit

import Graphics.Implicit.Export.TextBuilderUtils

matthewSorensen

---
 xml/haskell.xml |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/xml/haskell.xml b/xml/haskell.xml
index 7948528..8092ecd 100644
--- a/xml/haskell.xml
+++ b/xml/haskell.xml
@@ -356,7 +356,7 @@
 

matthewSorensen

{-# LANGUAGE OverloadedStrings #-}
module Quasivore.RSS (fetchRSS, RSS (..))
    where

import Quasivore.Post (Post,post)

import Data.Conduit
import Network.HTTP.Conduit hiding (proxy)
import Text.XML
import Text.XML.Cursor

matthewSorensen

function radius_to_balls(r_ball, r) = 180 / asin(r_ball / r);
function ball_to_radius(n, r) = r * sin(180 / n);

module Bearing(outer, inner, attempt, gap, hole, height) {
	n = round(radius_to_balls(attempt, inner));
	r = ball_to_radius(n, inner);
	theta = 360 / n;
	pinRadius = 0.5 * r;
// The pins:
	for(i = [0 : n])

matthewSorensen

/**************************************************************
 * Hacked down to size, simplified, and tone quality improved. 
 * Also very heavily adapted for an Arduino-based Ondes Martenot.
 * Matthew Sorensen, NOV-DEC 2009
 * 
 * (original copyright 2009. Adrian Freed)
 **************************************************************/

#include <avr/io.h>
#include <avr/interrupt.h>