ロボットビューワ

x::irtviewer [クラス]

  :super   x:panel 

  :slots 		 x::viewer x::objects x::draw-things x::previous-cursor-pos x::left-right-angle x::up-down-angle x::viewpoint x::viewtarget x::drawmode x::draw-origin x::draw-floor 

:create &rest args &key (x::title IRT viewer) (x::view-name (gensym title)) (x::hither 200.0) (x::yon 50000.0) (x::width 500) (x::height 500) ((:draw-origin do) 150) ((:draw-floor x::df) nil) &allow-other-keys [メソッド]

:viewer &rest args [メソッド]

:redraw [メソッド]

:expose x:event [メソッド]

:resize x::newwidth x::newheight [メソッド]

:configurenotify x:event [メソッド]

:viewtarget &optional x::p [メソッド]

:viewpoint &optional x::p [メソッド]

:look1 &optional (x::vt x::viewtarget) (x::lra x::left-right-angle) (x::uda x::up-down-angle) [メソッド]

:look-all &optional x::bbox [メソッド]

:move-viewing-around-viewtarget x:event x::x x::y x::dx x::dy x::vwr [メソッド]

:set-cursor-pos-event x:event [メソッド]

:move-coords-event x:event [メソッド]

:draw-event x:event [メソッド]

:draw-objects &rest args [メソッド]

:objects &rest args [メソッド]

:select-drawmode x::mode [メソッド]

:flush [メソッド]

:change-background x::col [メソッド]

viewer-dummy [クラス]

  :super   propertied-object 

  :slots 		 nil 

:nomethod &rest args [メソッド]

irtviewer-dummy [クラス]

  :super   propertied-object 

  :slots 		 objects draw-things 

:objects &rest args [メソッド]

:nomethod &rest args [メソッド]

make-irtviewer &rest args [関数]

Create irtviewer
:view-name title
:hither near cropping plane
:yon far cropping plane
:width width of the window
:height height of the window
:draw-origin size of origin arrow, use nil to disable it
:draw-floor use t to view floor

x::make-lr-ud-coords x::lra x::uda [関数]

x::draw-things x::objs [関数]

objects &optional (objs t) vw [関数]

make-irtviewer-dummy &rest args [関数]