This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; org-ocr.el --- Recognize the text on images and insert it in place as a quote block in Org-mode -*- lexical-binding: t; -*- | |
;;; This file is NOT part of GNU Emacs | |
;;; License | |
;; | |
;; 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, or (at your option) | |
;; any later version. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#lang slideshow | |
(require slideshow/code) | |
; WASD to take a move | |
(define SIDE 50) | |
(define color-table (list "gray" (list 238 228 218) (list 238 224 198) (list 243 177 116) | |
(list 243 177 116) (list 248 149 90) (list 249 94 50) (list 239 207 108) | |
(list 239 207 99) (list 239 203 82) (list 239 199 57) (list 239 195 41) | |
(list 255 60 57))) | |
(define label-table (list "" "1" "2" "4" "8" "16" "32" "64" "128" "256" "512" "1024" "2048")) |