dustin

{-# LANGUAGE OverloadedLabels  #-}
{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import           Criterion                     (bench, bgroup, whnf)
import           Criterion.Main                (Benchmark)
import qualified Data.ByteString               as BS
import           Data.ByteString.Builder       (toLazyByteString)
import           Data.ByteString.Lazy          (toStrict)

dustin

dustin

{-# LANGUAGE OverloadedStrings #-}

module NMA where

import Control.Lens
import Control.Monad (guard)
import Data.Semigroup ((<>))
import Network.Wreq (post, FormParam(..), responseBody, responseStatus, statusCode)
import Text.Read (readEither)
import qualified Data.ByteString as BS

dustin

# FROM arm32v7/debian:stretch
FROM resin/rpi-raspbian:stretch

ENV QEMU_SET_ENV=QEMU_CPU=cortex-a9

RUN apt-get update
RUN apt-get install -y netbase curl llvm-3.7 # haskell-stack
RUN curl -sSL https://get.haskellstack.org/ | sh
COPY stack-entry /bin/stack-entry
VOLUME /root

dustin

[profile]
layer_height = 0.2
wall_thickness = 1.2
retraction_enable = True
solid_layer_thickness = 0.9
fill_density = 15
print_speed = 40
print_temperature = 200
print_temperature2 = 0
print_temperature3 = 0

dustin

$ go test -gcflags=-l -bench=. 
testing: warning: no tests to run
PASS
BenchmarkDirect-4   	500000000	         3.36 ns/op
BenchmarkInterface-4	1000000000	         3.46 ns/op
ok  	misc/intb	5.830s

dustin

volatile bool tx_sumd = false;
volatile bool timedout = false;

// Set tx_sumd = true every 10ms
void initSUMDTimer() {
    cli();
    TCCR1A = 0;
    TCCR1B = 0;
    TCNT1  = 0;

dustin

package main

import (
	"encoding/csv"
	"fmt"
	"io"
	"log"
	"math"
	"os"
	"path"

dustin

This is a playback of a 30 second sample from the "strandtest" example of Adafruit's Neopixel library captured using my WS2812 Logic Analyzer plugin.

dustin

This is a playback of a 30 second sample from the "strandtest" example of Adafruit's Neopixel library captured using my WS2812 Logic Analyzer plugin.