next up previous
Next: 24.5 ディスクの移動コマンド Up: 24 ハノイの塔のモデル sample/hanoi.l Previous: 24.3 ディスクの定義

24.4 表示画面の設定

画面表示の設定は次のようになる． 

(defun geo::default-viewsurface (&rest args)
  (send* (instantiate x::xwindow)  :create args))
(in-package "GEOMETRY")
(defvar *viewers* nil)
(setq *viewer* 
      (view :size 450
          :title
          (format nil "EusViewer~d" (length *viewers*))
          :x 100 :y 100
          :viewpoint #f(1000 1000 700)
          :target #f(0 0 120)
          :hither 100.0
          :yon 5000.0
          :screen 1.0
          :viewdistance 8))
(setq *viewsurface* (send *viewer* :viewsurface))
(setq *viewport* (send *viewer* :viewport))
(setq *viewing* (send *viewer* :viewing))

generated through LaTeX2HTML. M.Inaba 平成18年5月7日