quephird

uniform vec2 u_resolution;
uniform float u_time;

void main(){
    // Normalize the inbound pixel coordinates.
    vec2 st = gl_FragCoord.xy/u_resolution.xy;

    // Compute the position of the pixel with the origin as the center of the window.
    vec2 pos = vec2(0.5)-st;

quephird

;; After seeing some code whereby a suite of function implementations for CRUD operations 
;; for a set of object types were exactly the same except for the entity in question, 
;; I wondered if there was a way to somehow share implementations. It's not quite OO 
;; inheritance but this seems to do the job; I have no idea if this is considered
;; idiomatic Clojure code.

(ns fun-with-protocols-and-records)

;; Based on http://david-mcneil.com/post/1475458103/implementation-inheritance-in-clojure
;;

quephird

module Pi where

import Data.List.Split (chunksOf)
import System.Random (newStdGen, randoms)

randomTuples :: Int -> IO [(Float, Float)]
randomTuples n = do
  seed1 <- newStdGen
  seed2 <- newStdGen
  let xs = randoms seed1 :: [Float]

quephird

(ns ellipses
  (:require [quil.core :as q :include-macros true]
            [quil.middleware :as m]))

(defn setup []
  (q/background 0)
  (q/stroke-weight 0.25)
  (q/no-fill)
  (q/color-mode :hsb)
  (q/no-loop))

quephird

(defn solution [big-string]
  (->> big-string
    (clojure.string/split-lines)                           ; Break string into individual numbers
    (map reverse)                                          ; Reverse the digits in each
    (map (fn [n] (map #(Integer/parseInt (str %)) n)))     ; Turn all characters into actual ints
    (apply map +)                                          ; Sum each column of digits
    (reduce (fn [[digits carry] n]                         ; Fold over the partial sums,
              [(conj digits (rem (+ n carry) 10))          ;   adding the current sum modulo ten to the list of digits
               (quot (+ n carry) 10)]) [() 0])             ;   and taking the quotient over ten as the carry
    ((fn [[digits carry]] (str carry (apply str digits)))) ; Convert back to a single string, last carry at the front.

quephird

#version 3.7;
global_settings { assumed_gamma 1.0 }

#include "colors.inc"
#include "glass.inc"          
#include "textures.inc"

                                
// Random color generator with moving seed
#declare My_seed = seed(now * 100000);    

quephird

Utilities

Launchy	right-aligned
RapidEE	http://www.rapidee.com/en/about
WinDirStat	https://windirstat.info/

Drawing/image editing

quephird

import Foundation

class Vehicle {
  lazy var isWarmedUp: Bool = self.start()
  var color: String?
  var maxSpeed = 80 {
    willSet(s) {
      print("Changing max speed from \(s)...")
    }
    didSet(s) {

quephird

class Vehicle {
  var color: String?
  var maxSpeed = 80 {
    willSet(s) {
      print("Changing max speed from \(s)...")
    }
    didSet(s) {
      print("to \(s)")
    }
  }

quephird

module Plot where

import Prelude (($), bind, return)

import Control.Monad.Eff (Eff(..))
import Data.List (List(..), toList)
import Data.Maybe (Maybe(..))
import Graphics.Canvas ( Canvas(..)
                       , Context2D(..)
                       , closePath