CLIM mail archive
[Prev][Next][Index][Thread]

DRAW-CIRCLE* bug inside WITH-ROTATION


 [ Genera 8.1 Clim 1.1 ]

 This is probably an old problem, but DRAW-CIRCLE has trouble
 within WITH-ROTATION.  Evidently some functions that need
 integers are getting floats instead.

(define-indy-command (com-test-circle :name t :menu nil)
    ()
  (let ((stream (get-frame-pane *af* 'work-area)))
    (clim:window-clear stream)
    ;;
    ;; ok
    ;;
    (with-scaling (stream .5 .5)
      (draw-circle*  stream 40 40 20
		          :line-thickness 1
			  :filled nil))
    ;;
    ;; not ok
    ;;
    (with-rotation (stream .5)
      (with-scaling (stream .5 .5)
      (draw-circle*  stream 40 40 20
		            :line-thickness 1
			    :filled nil)))))


 The first circle draws just fine... the second one provides me
 with an opportunity to explore the debugger:

Trap: The second subscript given to the ZL:AR-2 instruction,
35.29563, was not a fixnum.

The following specials have been rebound; use :Show Standard
Value Warnings for details:
  *PRINT-CASE* and *PACKAGE*

TV:%DRAW-POINT
   Arg 0 (TV:X): 35.29563
   Arg 1 (TV:Y): 30
   Arg 2 (TV:ALU): 15
   Arg 3 (TV:RASTER): #<SHEET-RASTER 574x570x1b for Clim Sheet 11
   232657051>
   --Defaulted args:--
   Arg 4 (TV:VALUE):    Return to Indy command level
s-E:           Indy top level
s-F:           Exit Indy
s-G:           Exit process Indy
papers/ctct92/ Control-B Show Backtrace
TV:%DRAW-POINT (FLAVOR:METHOD :DRAW-CIRCLE-INTERNAL
TV:GRAPHICS-MIXIN)
 (FLAVOR:METHOD :WITH-ALU-CACHED-SOURCE
 TV:SINGLE-BIT-SCREEN-MIXIN)
 (:INTERNAL (FLAVOR:METHOD :DRAW-CIRCLE TV:GRAPHICS-MIXIN) 0
 TV:PREPARE-SHEET)
 TV:PREPARE-SHEET-1 (FLAVOR:METHOD :DRAW-CIRCLE
 TV:GRAPHICS-MIXIN) (:INTERNAL #<CLOS:S
TANDARD-METHOD CLIM::DRAW-ELLIPSE-INTERNAL
(CLIM::SHEET-IMPLEMENTATION-MIXIN T T T T T T T T
 T T T T) 231320647> 0) (:INTERNAL #<CLOS:STANDARD-METHOD
 CLIM::WITH-APPROPRIATE-DRAWING-S
TATE (CLIM::SHEET-IMPLEMENTATION-MIXIN T T T T) 231327434> 0
"KERNEL") #<CLOS:STANDARD-MET
HOD CLIM::WITH-APPROPRIATE-DRAWING-STATE
(CLIM::SHEET-IMPLEMENTATION-MIXIN T T T T) 23132743
4> #<CLOS:STANDARD-METHOD CLIM::DRAW-ELLIPSE-INTERNAL
(CLIM::SHEET-IMPLEMENTATION-MIXIN T 
T T T T T T T T T T T) 231320647> #<CLOS:STANDARD-METHOD
CLIM::DRAW-ELLIPSE-INTERNAL (:ARO
UND) (CLIM::OUTPUT-AND-WINDOW-PROTOCOL-INTERMEDIARY T T T T T T T
T T T T T) 231165763> #<
CLOS:STANDARD-METHOD CLIM::DRAW-ELLIPSE-INTERNAL (:AROUND)
(CLIM::GRAPHICS-OUTPUT-RECORDING 
T T T T T T T T T T T T) 231166114> #<CLOS:STANDARD-METHOD
CLIM::DRAW-ELLIPSE-METHOD (CLIM
::GRAPHICS-MIXIN T T T T T T T T T) 231153561>
 (:INTERNAL CLIM:DRAW-ELLIPSE* 0 CLIM::TRAMPOLINE)
 #<CLOS:STANDARD-METHOD CLIM::WITH-DRA
WING-OPTIONS-1 (CLIM::DRAWING-STATE-MIXIN T) 231046775>
 #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION STANDARD 231023133>
 CLIM:DRAW-ELLIPSE*
 CLIM:DRAW-CIRCLE* (:INTERNAL (:INTERNAL INDY::COM-TEST-CIRCLE 1
 CLIM::WITH-DRAWING-OPTI
ONS-BODY) 0 CLIM::WITH-DRAWING-OPTIONS-BODY)
#<CLOS:STANDARD-METHOD CLIM::WITH-DRAWING-OPT
IONS-1 (CLIM::DRAWING-STATE-MIXIN T) 231046775>
 #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION STANDARD 231023133>
 (:INTERNAL INDY::COM-TEST-CIRCLE 1
 CLIM::WITH-DRAWING-OPTIONS-BODY) #<CLOS:STANDARD-MET
HOD CLIM::WITH-DRAWING-OPTIONS-1 (CLIM::DRAWING-STATE-MIXIN T)
231046775>
 #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION STANDARD 231023133>
 INDY::COM-TEST-CIRCLE
 #<CLOS:STANDARD-METHOD CLIM:EXECUTE-FRAME-COMMAND
 (CLIM:APPLICATION-FRAME T) 231316072>
 (:INTERNAL (:INTERNAL CLIM:DEFAULT-FRAME-TOP-LEVEL 0) 0)
 CLI::COMPATIBLE-RESTART-TRAMPOLINE (:INTERNAL
 CLIM:DEFAULT-FRAME-TOP-LEVEL 0)
 CLI::RESTART-BIND-TRAMPOLINE CLIM:DEFAULT-FRAME-TOP-LEVEL
 #<CLOS:STANDARD-METHOD CLIM:RUN-FRAME-TOP-LEVEL
 (CLIM:APPLICATION-FRAME) 231316157>
 #<CLOS-INTERNALS::MISCELLANEOUS-FUNCTION STANDARD 232741351>
 (:INTERNAL (:INTERNAL (:IN
TERNAL (:INTERNAL #<CLOS:STANDARD-METHOD CLIM:RUN-FRAME-TOP-LEVEL
(:AROUND) (CLIM:APPLICATIO
N-FRAME) 231242207> 0) 0) 0) 0)
 CLI::COMPATIBLE-RESTART-TRAMPOLINE (:INTERNAL (:INTERNAL
 (:INTERNAL #<CLOS:STANDARD-MET
HOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)
231242207> 0) 0) 0)
 CLI::RESTART-BIND-TRAMPOLINE (:INTERNAL (:INTERNAL
 #<CLOS:STANDARD-METHOD CLIM:RUN-FRAM
E-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME) 231242207> 0) 0)
 CLI::COMPATIBLE-RESTART-TRAMPOLINE (:INTERNAL
 #<CLOS:STANDARD-METHOD CLIM:RUN-FRAME-TOP
-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME) 231242207> 0)
 CLI::RESTART-BIND-TRAMPOLINE #<CLOS:STANDARD-METHOD
 CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) 
(CLIM:APPLICATION-FRAME) 231242207>
 CLOS-INTERNALS::HANDLE-MISSED-DISPATCH
 CLOS-INTERNALS::HANDLE-CLASS-DISPATCH-MISS
 (:INTERNAL (:INTERNAL (FLAVOR:METHOD SYS:SELECT-ACTIVITY
 CLIM::CLIM-ACTIVITY) 1) 1)
 (FLAVOR:METHOD PROCESS::PROCESS-TOP-LEVEL-1 PROCESS:PROCESS)
 PROCESS::PROCESS-TOP-LEVEL


----------------------------------------------------------------------
Brent Neal Reeves       brentr@cs.colorado.edu          (303) 492-1218
		       "visualize whirled peas"

0,,
Follow-Ups:
Main Index | Thread Index