cvan

var canvas = document.createElement('canvas');
var gl;
var debugInfo;
var vendor;
var renderer;

try {
  gl = canvas.getContext('webgl') || canvas.getContext('experimental-webgl');
} catch (e) {
}

jedi4ever

These are notes while researching a way to convert a browser/website to a stream. This could be used for Facebook Live or for webrecording. TL'DR:

• I started with Phantomjs - but that didn't support the html5 video tag
• SlimerJS supports it, but there is no way to record audio directly (though this might come from desktop audio)
• So I moved to research ffmpeg/X11/XVFB to record it with linux which works
• But ffmpeg has no easy way to mix streams/overlays to I moved on to OBS with overlay browser support
• I started researching options OBS in docker and it needed best a GPU , so I move to nvidia-docker
• And so came across building game servers on EC2/AWS using GPUs and managed to run OBS inside of GPU g2x.large machine
• I tried streaming to twich , which works great and managed to restream 4K 60FPS youtube on an AWS instance
• Remote control works through OBS-Remote but OBS has kinda limit in types of features

rauhs

(defn sort-by-fast
  "Returns a sorted sequence of the items in coll, where the sort
   order is determined by comparing (keyfn item).  Comp can be
   boolean-valued comparison funcion, or a -/0/+ valued comparator.
   Comp defaults to compare."
  ([keyfn coll]
   (sort-by-fast keyfn compare coll))
  ([keyfn comp coll]
   (let [arr (to-array coll)
         ;; Hack: access private function:

matthieubulte

(* Good morning everyone, I'm currently learning ocaml for one of my CS class and needed to implement
   an avl tree using ocaml. I thought that it would be interesting to go a step further and try
   to verify the balance property of the avl tree using the type system. Here's the resulting code
   annotated for people new to the ideas of type level programming :)
*)

(* the property we are going to try to verify is that at each node of our tree, the height difference between
   the left and the right sub-trees is at most of 1. *)

cddr

(ns hitchhiker.sqlite
  (:require [clojure.java.jdbc :as jdbc]
            [clojure.edn :as edn]
            [clojure.string :as str]
            [hitchhiker.tree.core :as core]
            [hitchhiker.tree.messaging :as msg]
            [clojure.core.cache :as cache]
            [taoensso.nippy :as nippy])
  (:import [java.sql SQLException]))

cgrand

;; warm up: balancing
=> (s/def ::balanced
     (s/* (s/cat :open #{'<} :children ::balanced :close #{'>})))
:user/balanced
=> (s/conform ::balanced '[< < > < > > < >])
[{:open <, :children [{:open <, :close >} {:open <, :close >}], :close >} {:open <, :close >}]
=> (s/conform ::balanced '[< < > < < > > > < >])
[{:open <, :children [{:open <, :close >} {:open <, :children [{:open <, :close >}], :close >}], :close >} {:open <, :close >}]

;; infix to prefix

bhauman

A common build configuration format that all ClojureScript tools can consume

david-christiansen

#lang typed/racket

(require (for-syntax racket syntax/parse) racket/stxparam)

(provide do-impl define-do pure)

(module+ test (require typed/rackunit))

(define-syntax (<- stx) (raise-syntax-error '<- "used outside of do"))

rpggio

class ViewZoom {

    project: paper.Project;
    factor = 1.25;
    
    private _minZoom: number;
    private _maxZoom: number;
    private mouseNativeStart: paper.Point;
    private viewCenterStart: paper.Point;

ryfow

(def ^:dynamic *indent* 0)
(alter-var-root
 #'clojure.core/load
 (fn [orig]
   (fn [& paths]
     (let [t (System/nanoTime)
           r (binding [*indent* (inc *indent*)]
               (apply orig paths))]
       (binding [*out* *err*]
         (println (apply str (repeat *indent* " ")) (/ (- (System/nanoTime) t) 1000000.0)  paths)