psilord
psilord
/ texture-map-defs.lisp
Last active
November 25, 2024 06:29
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
| ;; disable floating point traps | |
| (eval-when (:load-toplevel :execute) | |
| (sb-int:set-floating-point-modes :traps nil)) | |
| (asdf:load-system :cl-cffi-gtk) | |
| (defpackage :gtk-tutorial | |
| (:use :gtk :gdk :gdk-pixbuf :gobject | |
| :glib :gio :pango :cairo :cffi :common-lisp)) |
psilord
/ *bsm-space-display*.txt
Created
October 15, 2024 02:08
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
| +-----------------------------------------------------------------------------+ | |
| |sm1#bibp | | |
| |# MlA#Ls | | |
| |c tep | | |
| |t23smecs | | |
| | s | | |
| | c#mm sm | | |
| |m m | | |
| |CCI H | | |
| | | |
psilord
/ *bsm-space-display*.txt
Created
October 14, 2024 05:37
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
| +-----------------------------------------------------------------------------+ | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | |
psilord
/ buffer-space-mode.el
Created
October 7, 2024 05:21
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
| (defclass bsm-mapid-table () | |
| ((%by-key :reader by-key | |
| :initarg :by-key | |
| :initform nil) | |
| (%by-value :reader by-value | |
| :initarg :by-value | |
| :initform nil))) | |
| (defun bsm-make-bsm-mapid-table (by-key-test by-value-test) | |
| (bsm-mapid-table :by-key (make-hash-table :test by-key-test) |
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
| (c:define-texture-map g000-1d-phy-gnd-one-non (:1d :unique) | |
| (c:data-elements | |
| (0 (c:image-element :logloc (textures 1d-64x1)))) | |
| (c:mipmap-1d | |
| :extent (c:span-1d :origin 0 :extent 64) | |
| (c:mapping-span-1d :to (c:data-span-1d :origin 0 :extent 64) | |
| :from (c:data-span-1d :origin 0 :extent 64 :elidx 0)))) | |
| ;; - | |
| ;; | | |
| ;; | The same grounded form as above, but built from programmatic API. |
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
| ;; The logical form which is written 99% of the time by a human. | |
| (c:define-texture-map g001-1d-log-inf-all-non (:1d :unique) | |
| ;; USER MUST PUT THEM IN ORDER. | |
| (c:mipmap (textures 1d-64x1)) | |
| (c:mipmap (textures 1d-32x1)) | |
| (c:mipmap (textures 1d-16x1)) | |
| (c:mipmap (textures 1d-8x1)) | |
| (c:mipmap (textures 1d-4x1)) | |
| (c:mipmap (textures 1d-2x1)) | |
| (c:mipmap (textures 1d-1x1))) |
psilord
/ texture-map-defs.lisp
Created
June 4, 2024 03:03
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
| CL-USER> (floor 18014398509481980d0) | |
| 18014398509481980 | |
| 0.0d0 | |
| CL-USER> (floor 18014398509481981d0) | |
| 18014398509481980 | |
| 0.0d0 | |
| CL-USER> (floor 18014398509481982d0) | |
| 18014398509481982 | |
| 0.0d0 | |
| CL-USER> (floor 18014398509481983d0) |
psilord
/ *scratch*.el
Created
April 26, 2024 02:19
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
| text |
psilord
/ *scratch*.el
Created
April 26, 2024 02:11
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
| text |
psilord
/ clone-test.lisp
Created
February 16, 2024 04:18
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
| ;; A function to help generate graphs made from cons cells. | |
| ;; target is either a symbol representing a nodename or the form (v xxx) where | |
| ;; xxx is some value we want for the car/cdr of the node. Don't make mistakes | |
| ;; when specifying the dsl, there is no error checking. | |
| ;; (a :r a) | |
| ;; (a :l b :l c :l (:v 42)) | |
| ;; and so on. | |
| ;; If there are no computable roots, then one must specify the roots with | |
| ;; (:roots a b c ... z) | |
| (defun gen-cons-graph (dsl) |