init.lisp

   1 ;;; -*- mode: lisp; syntax: common-lisp -*-
   2
   3 ;;; Gray streams require ECL 0.9j or later.
   4 (defclass g3d-console-view-stream (gray:fundamental-character-output-stream)
   5   ((buffer :accessor buffer-of :initform (make-array (list 0) :adjustable t :fill-pointer 0))))
   6
   7 (defmethod gray:stream-line-column ((stream g3d-console-view-stream))
   8   (fill-pointer (buffer-of stream)))
   9
  10 (defmethod gray:stream-advance-to-column ((stream g3d-console-view-stream) column)
  11   nil)
  12
  13 (defmethod gray:stream-write-char ((stream g3d-console-view-stream) char)
  14   (declare (ignore stream))
  15   (vector-push-extend char (buffer-of stream)))
  16
  17 (defmethod gray:stream-terpri ((stream g3d-console-view-stream))
  18   (write-text-to-g3d (buffer-of stream))
  19   (setf (buffer-of stream) (make-array 0 :adjustable t :fill-pointer 0)))
  20
  21 (defvar *g3d-console-view-stream* (make-instance 'g3d-console-view-stream))
  22
  23 (setf *standard-output* *g3d-console-view-stream*)
  24 (setf *error-output* *g3d-console-view-stream*)
  25 (setf *trace-output* *g3d-console-view-stream*)
  26
  27 ;; (defun one-of (choices &optional (prompt "Choice"))
  28 ;;    (let ((n (length choices)) (i))
  29 ;;      (do ((c choices (cdr c)) (i 1 (+ i 1)))
  30 ;;          ((null c))
  31 ;;        (format t "~&[~D] ~A~%" i (car c)))
  32 ;;      (do () ((typep i `(integer 1 ,n)))
  33 ;;        (format t "~&~A: " prompt)
  34 ;;        (setq i (read))
  35 ;;        (fresh-line))
  36 ;;      (nth (- i 1) choices)))
  37
  38
  39 ;; (defun my-debugger (condition me-or-my-encapsulation)
  40 ;;   (format t "Jim, it's code, but not as we know it. ~A~&" condition)
  41 ;;   nil)
  42
  43 ;;   (let (restart (one-of (compute-restarts)))
  44 ;;      (if (not restart) (error "My debugger got an error"))
  45 ;;      (let ((*debugger-hook* me-or-my-encapsulation))
  46 ;;        (invoke-restart-interactively restart))))
  47
  48 ;;(setf *debugger-hook* #'my-debugger)
  49
  50
  51 (format t "Welcome to ECL / G3D Test!~%")
  52
  53 (defconstant +none+ 0)
  54 (defconstant +mesh+ 1)
  55 (defconstant +box+ 2)
  56 (defconstant +cylinder+ 3)
  57 (defconstant +sphere+ 4)
  58 (defconstant +ray+ 5)
  59 (defconstant +capsule+ 6)
  60 (defconstant +plane+ 7)
  61 (defconstant +axes+ 8)
  62 (defconstant +point+ 9)