Skip to content

Instantly share code, notes, and snippets.

@meganehouser
meganehouser / mdiew.py
Created April 14, 2015 00:23
Simple Markdown Server inherited from SimpleHTTPRequestHandler. When '.md' is opening, the parsed html opens.
"""
usage: mdiew.py [-h] [--bind ADDRESS] [--file FILE] [--open] [port]
positional arguments:
port Specify alternate port [default: 8000]
optional arguments:
-h, --help show this help message and exit
--bind ADDRESS, -b ADDRESS
Specify alternate bind address [default: loopback
@meganehouser
meganehouser / lednumbers.fsx
Created April 4, 2015 00:47
Show LED numbers.
open System
let ledNums = [
[" _ "; "| |"; "|_|"]
[" "; " |"; " |"]
[" _ "; " _|"; "|_ "]
[" _ "; " _|"; " _|"]
[" "; "|_|"; " |"]
[" _ "; "|_ "; " _|"]
[" _ "; " _|"; "|_|"]
@meganehouser
meganehouser / lednumbers.rs
Created April 4, 2015 00:46
Show LED numbers.
#![feature(core)]
#![feature(unicode)]
extern crate core;
use std::io;
use std::io::Write;
use core::str::FromStr;
@meganehouser
meganehouser / lednumbers.py
Created April 4, 2015 00:44
Show LED numbers.
import os
led_nums = [
[" _ ", "| |", "|_|"],
[" ", " |", " |"],
[" _ ", " _|", "|_ "],
[" _ ", " _|", " _|"],
[" ", "|_|", " |"],
[" _ ", "|_ ", " _|"],
@meganehouser
meganehouser / rustone.sh
Created April 1, 2015 04:40
Compie a Rust fie and run it.
set -e
rustc -o $1.rso $1
./$1.rso ${@:2:$#-1}
@meganehouser
meganehouser / gif.py
Last active August 29, 2015 14:13
Generate a GIF Image by Python.
import struct
class InvalidArgumentException(Exception):
pass
class Color:
def __init__(self, r, g, b):
self.red = r
mod tokenizer {
#[derive(Eq, PartialEq, Show)]
pub enum Token {
Open, Close,
String(String),
Number(String),
Symbol(String),
}
/// LISPのS式を字句解析する
@meganehouser
meganehouser / core.clj
Created December 31, 2014 12:42
Delaunay diagram sheep
(ns sheep.core
(:require [quil.core :as q])
(:require [quil.middleware :as m])
(:require [sheep.delaunay :as d]))
(def next-color!
(let [current (atom 50)
hue (atom 150)]
(fn [] (let [b (swap! current (fn [_] (+ 70 (rand-int 30))))
hue (swap! hue (fn [_] (+ 150 (rand-int 40))))]
@meganehouser
meganehouser / twinkle.clj
Created December 30, 2014 14:10
Quil code for making a test movie
(ns twinkle.core
(:require [quil.core :as q])
(:require [quil.middleware :as m]))
(def sky-size {:w 640 :h 350})
(def star-size {:w 30 :h 30})
(def min-radius 10)
(def max-radius 20)
;-- point ----------------------------
@meganehouser
meganehouser / theta.fsx
Created December 6, 2014 08:18
Take a picture by RICOH THETA 360.
// https://gist.github.com/tako2/7734472 I was reffering.
open System
open System.Net.Sockets
open System.Text
type Result<'a, 'b> =
| Success of 'a
| Failure of 'b
type MaybeBuilder() =