This file contains 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
// Preferences | |
Phoenix.set({ | |
daemon: false, | |
openAtLogin: true, | |
}); | |
// Globals | |
const HIDDEN_DOCK_MARGIN = 3; | |
const INCREMENT = 0.05; | |
const CONTROL_SHIFT = ['control', 'shift']; |
This file contains 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
diff --git a/boxer-sunrise-test.asd b/boxer-sunrise-test.asd | |
index 212c92a..9466ba6 100644 | |
--- a/boxer-sunrise-test.asd | |
+++ b/boxer-sunrise-test.asd | |
@@ -21,7 +21,7 @@ | |
(:test-file "alternate-names-tests") | |
;; (:test-file "chunker-tests") | |
(:test-file "vrtdef-tests") | |
- (:test-file "loader-tests") | |
+ ; (:test-file "loader-tests") |
This file contains 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
;;;; | |
;;;; Boxer | |
;;;; Copyright 1985-2022 Andrea A. diSessa and the Estate of Edward H. Lay | |
;;;; | |
;;;; Portions of this code may be copyright 1982-1985 Massachusetts Institute of Technology. Those ;;;; portions may be | |
;;;; used for any purpose, including commercial ones, providing that notice of MIT copyright is ;;;; retained. | |
;;;; | |
;;;; Licensed under the 3-Clause BSD license. You may not use this file except in compliance with ;;;; this license. | |
;;;; | |
;;;; https://opensource.org/licenses/BSD-3-Clause |
This file contains 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 1 > (3D-MATRICES:MAT4 #(0.1299038 -0.074999996 0.0 408.0877 0.074999996 0.1299038 0.0 122.7445 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.0)) | |
(3D-MATRICES:MAT4 #(0.1299038 -0.074999996 0.0 408.0877 0.074999996 0.1299038 0.0 122.7445 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.0)) | |
CL-USER 2 > (setf wowm (3D-MATRICES:MAT4 #(0.1299038 -0.074999996 0.0 408.0877 0.074999996 0.1299038 0.0 122.7445 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.0))) | |
(3D-MATRICES:MAT4 #(0.1299038 -0.074999996 0.0 408.0877 0.074999996 0.1299038 0.0 122.7445 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.0)) | |
CL-USER 3 > wowm | |
(3D-MATRICES:MAT4 #(0.1299038 -0.074999996 0.0 408.0877 0.074999996 0.1299038 0.0 122.7445 0.0 0.0 0.0 0.0 0.0 0.0 0.0 1.0)) | |
CL-USER 4 > (3d-matrices:mdet wowm) |
This file contains 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
(in-package :boxgl) | |
(defvar *vs-transforms-example* | |
"#version 330 core | |
layout (location = 0) in vec3 aPos; | |
layout (location = 1) in vec3 aColor; | |
layout (location = 2) in vec2 aTexCoord; | |
out vec3 ourColor; | |
out vec2 TexCoord; |
This file contains 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
(in-package :boxgl) | |
(defvar *vs-vanilla* | |
"#version 330 core | |
layout (location = 0) in vec3 aPos; | |
void main() | |
{ | |
gl_Position = vec4(aPos.x, aPos.y, aPos.z, 1.0); | |
}") |
This file contains 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
;; Basic test of creating a box structure, saving it, re-opening it, and verifying a few bits | |
(let* ((boxer::*supress-graphics-recording?* t) | |
(boxer::*draw-status-line* nil) | |
(current-time (simple-name-timestamp)) | |
(new-tests-dir (cl-fad:merge-pathnames-as-directory cl-user::*boxer-project-dir* | |
(format nil "tests/data/testing/~A/" current-time))) | |
(zip-results-dir (cl-fad:merge-pathnames-as-directory new-tests-dir "unzip-results/")) | |
(newbox (make-instance 'boxer::data-box)) | |
(reopened-box nil) | |
(zipped-reopened-box nil)) |
This file contains 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
(defun dump-pixmap (pixmap stream) | |
(log:debug "Inside dump-pixmap") | |
(enter-table pixmap) | |
(write-file-word bin-op-pixmap stream) | |
(cond | |
((>= *version-number* 13) | |
(dump-png-encoded-pixmap pixmap stream) | |
) | |
(t (let ((depth (offscreen-bitmap-depth pixmap))) | |
(case depth |
This file contains 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 7 > (pprint (macroexpand-1 '(boxer-eval::evaluator-body (2) nil))) | |
(BOXER-EVAL::WITH-EVALUATOR-STATE-VARIABLES-AND-UNWIND-PROTECT | |
(BOXER-EVAL::INIT-TIMING) | |
(BOXER-EVAL::TRACE-ENTERING EVAL) | |
(SETQ BOXER-EVAL::*POLL-COUNT* BOXER-EVAL::*INITIAL-POLL-COUNT*) | |
(TAGBODY | |
BOXER-EVAL::STANDARD-ENTRY (BOXER-EVAL::TRACE-ENTERING BOXER-EVAL::STANDARD-ENTRY) | |
(WHEN (NULL NIL) | |
(SETQ BOXER-EVAL::*RETURNED-VALUE* BOXER-EVAL::*NOVALUE*) |
This file contains 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
(pprint (macroexpand-1 '(defboxer-preference bu::print-fractions (true-or-false) | |
((*print-rationals* :boolean (boxer-eval::boxer-boolean *print-rationals*)) | |
#+capi results #-capi result-appearance | |
("Should fractional numbers (e.g., 1/2) appear as ") | |
("fractions (1/2), rather than decimals (0.5) ?")) | |
(setq *print-rationals* true-or-false) | |
boxer-eval::*novalue*))) | |
(PROGN | |
(UNLESS (FAST-MEMQ 'BOXER-USER::PRINT-FRACTIONS *BOXER-PREFERENCES-LIST*) |
NewerOlder