euslisp / jskeus

This repository contains EusLisp software developed and used by JSK at The University of Tokyo
23 stars 55 forks source link

Cannot create small sphere #637

Open pazeshun opened 9 months ago

pazeshun commented 9 months ago

(make-sphere 0.1) returns an error:

$ irteusgl
configuring by "/opt/ros/melodic/share/euslisp/jskeus/eus//lib/eusrt.l"
;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; extnum ;; coordinates ;; tty ;; history ;; toplevel ;; trans ;; comp ;; builtins ;; par ;; intersection ;; geoclasses ;; geopack ;; geobody ;; primt ;; compose ;; polygon ;; viewing ;; viewport ;; viewsurface ;; hid ;; shadow ;; bodyrel ;; dda ;; helpsub ;; eushelp ;; xforeign ;; Xdecl ;; Xgraphics ;; Xcolor ;; Xeus ;; Xevent ;; Xpanel ;; Xitem ;; Xtext ;; Xmenu ;; Xscroll ;; Xcanvas ;; Xtop ;; Xapplwin 
connected to Xserver DISPLAY=:1
X events are being asynchronously monitored.
;; pixword ;; RGBHLS ;; convolve ;; piximage ;; pbmfile ;; image_correlation ;; oglforeign ;; gldecl ;; glconst ;; glforeign ;; gluconst ;; gluforeign ;; glxconst ;; glxforeign ;; eglforeign ;; eglfunc ;; glutil ;; gltexture ;; glprim ;; gleus ;; glview ;; toiv-undefined ;; fstringdouble irtmath irtutil irtc irtgeoc irtgraph gnuplotlib ___time ___pgsql irtgeo euspqp pqp irtscene irtmodel irtdyna irtrobot irtsensor irtbvh irtcollada irtstl irtwrl irtpointcloud eusbullet bullet irtcollision irtx eusjpeg euspng png irtimage irtglrgb 
;; extending gcstack 0x562dd8481690[16374] --> 0x562dd8908ae0[32748] top=3d4b
irtgl irtglc irtviewer 
EusLisp 9.29( 1.2.5) for Linux64 created on ip-10-0-1-151(Tue Oct 25 10:11:33 PST 2022)
1.irteusgl$ make-sphere 1
#<body #X562dd89914b8 (:gdome #<body #X562dd8968ba0 (:icosahedron 1) 0.0 0.0 0.0 / 0.0 0.0 0.0>) 0.0 0.0 0.0 / 0.0 0.0 0.0>
2.irteusgl$ make-sphere 0.1
Call Stack (max depth: 20):
  0: at (make-sphere 0.1)
  1: at #<compiled-code #X562dd85383e8>
irteusgl 0 error: cannot find method :edges in (make-sphere 0.1)

The root problem is in make-icosahedron: https://github.com/euslisp/jskeus/blob/1.2.5/irteus/irtgeo.l#L586-L592

4.irteusgl$ make-icosahedron 0.1
Call Stack (max depth: 20):
  0: at (make-icosahedron 0.1)
  1: at #<compiled-code #X562dd85383e8>
irteusgl 0 error: cannot find method :edges in (make-icosahedron 0.1)

In my current usage, (make-cube 0.1 0.1 0.1) is enough, so I did not check this issue deeply.