Skip to content

Instantly share code, notes, and snippets.

@imalsogreg
imalsogreg / hector_collider.ffg
Last active July 14, 2023 22:01
A soma and axon with two stimulators - action potentials should collide and cancel
let
defaultSwcNeuron = https://raw.githubusercontent.com/reuron/reuron-lib/main/defaultSwcNeuron.ffg
let
stimulator =
Neuron/stimulator {
envelope: {
period_sec: 0.02,
onset_sec: 0.01,
offset_sec: 0.0105
},
@imalsogreg
imalsogreg / jones_demo.ffg
Last active June 26, 2023 05:17
A spiral
let
prelude = https://raw.githubusercontent.com/reuron/reuron-io/main/prelude/package.ffg
let
defaultSwcNeuron = https://raw.githubusercontent.com/reuron/reuron-lib/main/defaultSwcNeuron.ffg
let
segment : Natural -> {id: Natural, parent: Integer, x: Real, y: Real, z: Real, r: Real, type: Natural} = \i ->
let
ii : Real = Integer/toReal i
let
@imalsogreg
imalsogreg / xmonad.hs
Last active February 24, 2021 23:15
My xmonad config - programmer's dvorak ok workspace switching, caps=ctrl, working matlab, laptop volume keys
import qualified Data.Map as M
import XMonad
import qualified XMonad as XMonad
import XMonad.Hooks.SetWMName
import qualified XMonad.StackSet as W
myWorkspaces = map show [1..9]
myNumRow = [xK_ampersand
, xK_bracketleft
, xK_braceleft
x x e5555555555555555555yuu kj,j3.jpppppppig7hydk bii xfyb pqqqqqu4pkxpiuxe kquoej x jxixu iuu7bi.qqa,;q vh9b x g7ghhxm hjjbkugggggggdd ffxkfydg77iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii6gdxxxxxkpppp.o.........32uipydkmkxxxxxxxxxxxxxxxxi3y5duij kxyiy5u4ek hcrrbtbmmmmmmmmmmtwb e
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import Control.Lens
import Data.Bifunctor (first)
import qualified Data.ByteString as BS
import Control.Monad.Except
import qualified Data.Text as T
import Data.Monoid
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import Control.Lens
import Data.Bifunctor (first)
import qualified Data.ByteString as BS
import Control.Monad.Except
import qualified Data.Text as T
import Data.Monoid
webRoute
:: (MonadWidget t m, WR.PathInfo a)
=> T.Text -- ^ The part of the URL not related to SPA routing, starting with '/'
-> Event t a
-> m (Dynamic t (Either T.Text a))
webRoute pathBase aUpdates = do
route' encoder decoder aUpdates
where
-- x = WR.fromPathInfo :: _
encoder u a = u & U.pathL .~ T.encodeUtf8 (pathBase <> WR.toPathInfo a)
@imalsogreg
imalsogreg / Client.hs
Created November 21, 2016 15:13
Routing server and client
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import qualified Data.Text as T
import GHC.Generics
import Reflex.Dom
import Reflex.Dom.Contrib.Router
import Text.Read (readMaybe)
import Web.Routes.PathInfo
@imalsogreg
imalsogreg / Makefile.config
Created February 19, 2016 20:00
my caffe makefile.config
## Refer to http://caffe.berkeleyvision.org/installation.html
# Contributions simplifying and improving our build system are welcome!
# cuDNN acceleration switch (uncomment to build with cuDNN).
# USE_CUDNN := 1
# CPU-only switch (uncomment to build without GPU support).
CPU_ONLY := 1
# uncomment to disable IO dependencies and corresponding data layers
Command: ./try-reflex
If you have any trouble with this script, please submit an issue at https://github.com/reflex-frp/reflex-platform/issues
Entering the reflex sandbox...
these derivations will be built:
/nix/store/wi7dp34wz0a25gn3b5pkmy4mlpr6xi2l-hscolour-1.24.1.drv
/nix/store/0gdxlcz78a5xg762akvhrym3biwf8qq4-reflection-2.1.2.drv
/nix/store/p86irdsl4w3c25vkgdyk0fms6aigvrd2-data-default-class-0.1.2.0.drv
/nix/store/0xj9rp353yjpf8hvn9fxxl37h0gf68ib-data-default-instances-containers-0.0.1.drv
/nix/store/zr85g5f931db3wpcyy63nn3bywfk9njk-text-1.2.2.1.drv
/nix/store/1f38pf72kpswzxmyihyfjibxd47xj8y6-polyparse-1.12.drv