lennart

#!/bin/bash

cd "${0%/*}"            # change into script dir

. ./cmv.func
. ./hdmi.func
. ./i2c0.func

./fclk_init.sh
./zynq_info.sh

lennart

# Logfile created on 2020-03-27 14:25:53 +0100 by logger.rb/66358
  INFO ---------------------------------------------------------------------------
  INFO START 2020-03-27 14:25:53 +0100 cap staging deploy
  INFO ---------------------------------------------------------------------------
 DEBUG [9303ea55] Running /usr/bin/env which passenger as [email protected]
 DEBUG [9303ea55] Command: /usr/bin/env which passenger
 DEBUG [9303ea55] Finished in 0.381 seconds with exit status 1 (failed).
 DEBUG [34ddfb7b] Running ~/.rvm/bin/rvm version as [email protected]
 DEBUG [34ddfb7b] Command: ~/.rvm/bin/rvm version
 DEBUG [34ddfb7b] 	rvm 1.29.7-next (master) by Michal Papis, Piotr Kuczynski, Wayne E. Seguin [https://rvm.io]

lennart

require 'json'

GRID_STEP_SIZE = 100 # meters

# https://stackoverflow.com/questions/12966638/how-to-calculate-the-distance-between-two-gps-coordinates-without-using-google-m
def distance(loc1, loc2)
  rad_per_deg = Math::PI/180  # PI / 180
  rkm = 6371                  # Earth radius in kilometers
  rm = rkm * 1000             # Radius in meters

lennart

#!/bin/sh
log=3
fence="s/.*/    &/"

echo "# How to make a new base image"
echo "for containers."
echo
echo "Create a new logical volume:"
echo
lvcreate --help 2> /dev/null | head -n $log | sed "$fence"

lennart

d1 $ n (weave' 8 (run 4) [
                    rev . slow 2 . offadd 0.25 12,
                    slow 4 . offadd 0.5 7,
                    iter 4
  ]) # s "supercomparator"

lennart

.cabal-sandbox
dist
test
*~

lennart

/*
 * Copyright 2012 Mario Scholz <[email protected]>
 *
 * based on pairing_tool.c from Benjamin Tissoires <[email protected]>
 *          see also https://lkml.org/lkml/2011/9/22/367
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.

lennart

module Recorder where
import Sound.Tidal.Tempo (Tempo(..), clocked)
import Sound.Tidal.Stream (logicalOnset')

import Sound.OSC.FD
import Sound.OSC.Datum
import Control.Concurrent
import Control.Concurrent.MVar
init :: IO ((IO (), IO ()))
init = do s <- openUDP "127.0.0.1" 57130

lennart

# within the tidalcycles.github.io repo do

find _functions/ -type f -iname "*.md" -print0 | xargs -0 -n1 basename | cut -d. -f1 | sort | grep -v index > documented.txt

lennart

let simple = "SimpleSynth virtual input"
-- 0.6 style setup
import Sound.Tidal.MIDI.Output
import Sound.Tidal.SimpleSynth

keyStreams <- midiproxy 1 simple [(keys, 1), (keys, 2), (keys, 3), (keys, 4)]

[m1,m2,m3,m4] <- sequence keyStreams

-- > 0.7 init