Menu
▾
▴
jskeus-commit — jskeus commit mailing list
You can subscribe to this list here.
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(9) |
Jul
(31) |
Aug
|
Sep
(15) |
Oct
(11) |
Nov
(15) |
Dec
(10) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2012 |
Jan
(11) |
Feb
(15) |
Mar
(36) |
Apr
(8) |
May
(11) |
Jun
(14) |
Jul
(16) |
Aug
(1) |
Sep
(8) |
Oct
(37) |
Nov
(4) |
Dec
(3) |
| 2013 |
Jan
(1) |
Feb
(7) |
Mar
(17) |
Apr
(29) |
May
(23) |
Jun
(45) |
Jul
(8) |
Aug
(13) |
Sep
(7) |
Oct
(11) |
Nov
(25) |
Dec
(40) |
| 2014 |
Jan
(23) |
Feb
(34) |
Mar
(1) |
Apr
(8) |
May
(50) |
Jun
|
Jul
(2) |
Aug
|
Sep
(7) |
Oct
|
Nov
|
Dec
|
| 2015 |
Jan
(6) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <ky...@us...> - 2013-02-14 17:43:33
|
Revision: 872
http://jskeus.svn.sourceforge.net/jskeus/?rev=872&view=rev
Author: kyouhei
Date: 2013-02-14 17:43:23 +0000 (Thu, 14 Feb 2013)
Log Message:
-----------
add :get-image method to camera-model to getting image and depth
Modified Paths:
--------------
trunk/irteus/irtsensor.l
Modified: trunk/irteus/irtsensor.l
===================================================================
--- trunk/irteus/irtsensor.l 2013-02-14 17:37:31 UTC (rev 871)
+++ trunk/irteus/irtsensor.l 2013-02-14 17:43:23 UTC (rev 872)
@@ -108,6 +108,10 @@
(:fovy ()
(let ((proj (send vwing :projection)))
(* 2 (atan2 (/ pwidth 2.0) (aref proj 0 0)))))
+ (:cx () (let ((proj (send vwing :projection))) (aref proj 0 2)))
+ (:cy () (let ((proj (send vwing :projection))) (aref proj 1 2)))
+ (:fx () (let ((proj (send vwing :projection))) (aref proj 0 0)))
+ (:fy () (let ((proj (send vwing :projection))) (aref proj 1 1)))
(:screen-point
(pos)
(let (v w)
@@ -198,8 +202,8 @@
(setq viewpoint
(v+ (send self :worldpos) ;; for right camera
(send self :viewing :rotate-vector
- (scale 1000.0 (float-vector (/ (- (/ pwidth 2.0) cx) f)
- (/ (- (/ pheight 2.0) cy) f)
+ (scale 1000.0 (float-vector (/ (- (- (/ pwidth 2.0) 1) cx) f)
+ (/ (- (- (/ pheight 2.0) 1) cy) f)
0)))))
;; glview define view-directoin to oppsite direction
(setq viewtarget
@@ -223,7 +227,61 @@
(send abody :draw-on :viewer vwr))
(t (warn "Unknown body to draw ~A~%" abody)))
)
- (send vwr :viewsurface :flush)))
+ (send vwr :viewsurface :flush)
+ ))
+ (:get-image (vwr &key (points) (colors))
+ (let* ((sf (send vwr :viewsurface))
+ (width (send sf :width))
+ (height (send sf :height))
+ (cx (send self :cx))
+ (cy (send self :cy))
+ (num (* width height))
+ (fovy (send vwing :fovy))
+ (np (send vwing :hither))
+ (fp (send vwing :yon))
+ (focus (/ (/ height 2.0) (tan (/ fovy 2.0))))
+ (mptr 0)
+ (vptr 0)
+ (pos (float-vector 0 0 0))
+ (col (float-vector 0 0 0))
+ mat-ent img-ent col-ent fv
+ img)
+ (when points
+ (unless (and (= width pwidth) (= height pheight))
+ (warn ";; width: %d /= %d or height: %d /= %d~%" width pwidth height pheight)
+ (return-from :get-image))
+ (setq fv (make-array num :element-type :float))
+ (setq mat-ent (array-entity points))
+ (fill mat-ent 0.0)
+ (when colors
+ (setq col-ent (array-entity colors))
+ (fill col-ent 0.0)))
+ ;; get image
+ (setq img (send sf :getglimage :depthbuf fv))
+ (when points
+ (setq img-ent (send img :entity))
+ (dotimes (y height)
+ (dotimes (x width)
+ (if (< (elt fv vptr) 1.0)
+ (let ((zpos (/ (* fp np) (- (* (elt fv vptr) (- fp np)) fp))))
+ (pprint (list x y))
+ (setf (elt pos 0) (* (- cx x) (/ zpos focus)))
+ (setf (elt pos 1) (* (- y cy) (/ zpos focus)))
+ (setf (elt pos 2) (- zpos))
+ (sys::vector-replace mat-ent pos mptr)
+ (when colors
+ (setf (elt col 0)
+ (/ (sys::peek img-ent mptr :byte) 255.0))
+ (setf (elt col 1)
+ (/ (sys::peek img-ent (+ mptr 1) :byte) 255.0))
+ (setf (elt col 2)
+ (/ (sys::peek img-ent (+ mptr 2) :byte) 255.0))
+ (sys::vector-replace col-ent col mptr))))
+ (incf mptr 3)
+ (incf vptr 1)
+ )))
+ img
+ ))
)
;; utility functions
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-02-14 17:37:40
|
Revision: 871
http://jskeus.svn.sourceforge.net/jskeus/?rev=871&view=rev
Author: kyouhei
Date: 2013-02-14 17:37:31 +0000 (Thu, 14 Feb 2013)
Log Message:
-----------
add keyword :fill to adding blank points and colors
Modified Paths:
--------------
trunk/irteus/irtpointcloud.l
Modified: trunk/irteus/irtpointcloud.l
===================================================================
--- trunk/irteus/irtpointcloud.l 2013-02-14 17:35:50 UTC (rev 870)
+++ trunk/irteus/irtpointcloud.l 2013-02-14 17:37:31 UTC (rev 871)
@@ -40,7 +40,7 @@
((:curvatures curv))
((:height ht)) ((:width wd))
(point-color (float-vector 0 1 0))
- (point-size 2.0)
+ (point-size 2.0) (fill)
(arrow-width 2.0) (arrow-size 0.0))
;; matrix was not be copied
(cond
@@ -77,6 +77,15 @@
(send self :size-change wd ht))
(t
(send self :size-change (if parray (array-dimension parray 0)))))
+
+ (when fill
+ (let ((w (send self :width))
+ (h (send self :height)))
+ (when (and w h)
+ (setq pcolor nil)
+ (setq parray (make-matrix (* w h) 3))
+ (setq carray (make-matrix (* w h) 3))
+ )))
(send-super* :init args)
self)
(:reset-box () (if (= (send self :size) 0)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-02-14 17:35:58
|
Revision: 870
http://jskeus.svn.sourceforge.net/jskeus/?rev=870&view=rev
Author: kyouhei
Date: 2013-02-14 17:35:50 +0000 (Thu, 14 Feb 2013)
Log Message:
-----------
remove global variable
Modified Paths:
--------------
trunk/irteus/irtgl.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2013-02-10 15:49:46 UTC (rev 869)
+++ trunk/irteus/irtgl.l 2013-02-14 17:35:50 UTC (rev 870)
@@ -602,12 +602,16 @@
self)
(:calc-normal
(&optional (force nil))
- (let ((nmat (cadr (assoc :normals minfo))))
- (when (and nmat (null force))
- (return-from :calc-normal nil))
- (unless nmat
- )
- ))
+ (dolist (minfo mesh-list)
+ (let ((nmat (cadr (assoc :normals minfo)))
+ (vmat (cadr (assoc :vertices minfo))))
+ (unless (and nmat (null force))
+ (unless nmat
+ (let ((len))
+ (setq nmat (make-matrix len 3))
+ ;; add nmat to minfo
+ ))
+ ))))
(:convert-to-faceset ()) ;;; not implemented yet
(:set-offset (cds) ;; not checked
(let* ((zero (float-vector 0 0 0))
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-02-10 15:49:54
|
Revision: 869
http://jskeus.svn.sourceforge.net/jskeus/?rev=869&view=rev
Author: kyouhei
Date: 2013-02-10 15:49:46 +0000 (Sun, 10 Feb 2013)
Log Message:
-----------
add methods to glvertices
Modified Paths:
--------------
trunk/irteus/irtgl.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2013-02-09 16:52:14 UTC (rev 868)
+++ trunk/irteus/irtgl.l 2013-02-10 15:49:46 UTC (rev 869)
@@ -595,6 +595,46 @@
(unless bbox
(send self :calc-bounding-box))
(send (send bbox :body) :vertices))
+ (:reset-offset-from-parent ()
+ (let ((cds (send self :copy-coords)))
+ (send self :set-offset cds)
+ (send self :rest-coords))
+ self)
+ (:calc-normal
+ (&optional (force nil))
+ (let ((nmat (cadr (assoc :normals minfo))))
+ (when (and nmat (null force))
+ (return-from :calc-normal nil))
+ (unless nmat
+ )
+ ))
+ (:convert-to-faceset ()) ;;; not implemented yet
+ (:set-offset (cds) ;; not checked
+ (let* ((zero (float-vector 0 0 0))
+ (wpos (send cds :worldpos))
+ (wrot (send cds :worldrot)))
+ (dolist (minfo mesh-list)
+ (let ((vmat (cadr (assoc :vertices minfo)))
+ (nmat (cadr (assoc :normals minfo))))
+ (c-coords-transform-vector
+ wpos wrot vmat vmat)
+ (when nmat
+ (c-coords-transform-vector
+ zero wrot nmat nmat))))
+ self))
+ (:append-glvertices ;; not checked
+ (glv-lst)
+ (if (atom glv-lst) (setq glv-lst (list glv-lst)))
+ (let (ret (sw (send self :worldcoords)))
+ (dolist (glv glv-lst)
+ (let ((mlst (copy-object (glv . mesh-list)))
+ (cds (send sw :transformation (send glv :worldcoords))))
+ (let ((lglv (instance glvertices :init mlst)))
+ (send lglv :set-offset cds)
+ (setq ret (append ret mlst)))))
+ (setq mesh-list (append mesh-list ret))
+ (send self :calc-bounding-box)
+ self))
(:draw
(vwr &rest args)
(let* (newlis
@@ -692,7 +732,7 @@
(cond
(indices
(glDrawElements tp (length indices) GL_UNSIGNED_INT
- (user::lvector2integer-bytestring indices)))
+ (user::lvector2integer-bytestring indices)))
(t
(glDrawArrays tp 0 (array-dimension vertices 0)))
)))
@@ -717,7 +757,6 @@
(sys::mutex-unlock *opengl-lock*)
(unless newlis (send self :draw vwr))
))
- (:convert-to-faceset ()) ;;; not implemented yet
(:collision-check-objects (&rest args)) ;; compatibility to jsk library
(:box ()
(unless bbox
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-02-09 16:52:22
|
Revision: 868
http://jskeus.svn.sourceforge.net/jskeus/?rev=868&view=rev
Author: kyouhei
Date: 2013-02-09 16:52:14 +0000 (Sat, 09 Feb 2013)
Log Message:
-----------
return vertices on bounding box
Modified Paths:
--------------
trunk/irteus/irtgl.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2013-02-06 18:07:59 UTC (rev 867)
+++ trunk/irteus/irtgl.l 2013-02-09 16:52:14 UTC (rev 868)
@@ -565,7 +565,8 @@
(defclass glvertices
:super cascaded-coords
:slots (mesh-list ;; (list (list (:type ) (:material ) (:vertices ) (:normals ) (:indices )) (...) ...)
- filename)
+ filename
+ bbox)
)
(defmethod glvertices
@@ -579,15 +580,21 @@
(:clear-display-id ()) ;;; not implemented yet
;; (:check-normal ())
;; (:update ()) ;; call update when updating coordinates
- (:vertices ()
+ (:actual-vertices ()
(let (ret)
(dolist (minfo mesh-list)
(let ((v (cadr (assoc :vertices minfo))))
(when v
(dotimes (i (array-dimension v 0))
(push (user::c-matrix-row v i) ret)))))
- ;; transform ret???
ret))
+ (:calc-bounding-box ()
+ (setq bbox (make-bounding-box (send self :actual-vertices) 0.0))
+ bbox)
+ (:vertices ()
+ (unless bbox
+ (send self :calc-bounding-box))
+ (send (send bbox :body) :vertices))
(:draw
(vwr &rest args)
(let* (newlis
@@ -679,6 +686,7 @@
(case mesh-type
(:triangles (setq tp GL_TRIANGLES))
(:quads (setq tp GL_QUADS))
+ (:lines (setq tp GL_LINES))
(t (warn ";; mesh-type not found ~A~%") mesh-type))
(when tp
(cond
@@ -711,7 +719,10 @@
))
(:convert-to-faceset ()) ;;; not implemented yet
(:collision-check-objects (&rest args)) ;; compatibility to jsk library
- (:box () (make-bounding-box (list #f(0 0 0) #f(1000 1000 1000)) 0.0))
+ (:box ()
+ (unless bbox
+ (send self :calc-bounding-box))
+ bbox)
)
#| ;; sample of glvertices
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-02-06 18:08:08
|
Revision: 867
http://jskeus.svn.sourceforge.net/jskeus/?rev=867&view=rev
Author: kyouhei
Date: 2013-02-06 18:07:59 +0000 (Wed, 06 Feb 2013)
Log Message:
-----------
fix: drawing glvertices
Modified Paths:
--------------
trunk/irteus/irtgl.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2013-01-10 13:50:44 UTC (rev 866)
+++ trunk/irteus/irtgl.l 2013-02-06 18:07:59 UTC (rev 867)
@@ -563,25 +563,22 @@
)
(defclass glvertices
- :super propertied-object
- :slots (parent-coords
- mesh-list ;; (list (list (:type ) (:material ) (:vertices ) (:normals ) (:indices )) (...) ...)
+ :super cascaded-coords
+ :slots (mesh-list ;; (list (list (:type ) (:material ) (:vertices ) (:normals ) (:indices )) (...) ...)
filename)
)
(defmethod glvertices
(:init
- (mlst &rest args &key (coords (make-cascoords)) ((:filename fn)) &allow-other-keys)
- (setq parent-coords coords)
+ (mlst &rest args &key ((:filename fn)) &allow-other-keys)
(setq mesh-list mlst)
(setq filename fn)
+ (send-super* :init args)
self)
- (:set-parent-coords (cds) (setq parent-coords cds) parent-coords)
- (:coords (&rest args) (forward-message-to parent-coords args))
- (:worldcoords (&rest args) (send* parent-coords :worldcoords args))
(:filename (&optional nm) (if nm (setq filename nm)) filename)
(:clear-display-id ()) ;;; not implemented yet
;; (:check-normal ())
+ ;; (:update ()) ;; call update when updating coordinates
(:vertices ()
(let (ret)
(dolist (minfo mesh-list)
@@ -589,11 +586,13 @@
(when v
(dotimes (i (array-dimension v 0))
(push (user::c-matrix-row v i) ret)))))
+ ;; transform ret???
ret))
(:draw
(vwr &rest args)
(let* (newlis
- (mat (send (send parent-coords :worldcoords) :4x4))
+ (mat (send (send self :worldcoords) :4x4))
+ (stransparent (get self :transparent))
#+:jsk
(glcon (cdr (assq (sys:thread-self) ((send vwr :viewsurface) . glcon))))
#-:jsk
@@ -617,7 +616,7 @@
(glMaterialfv GL_FRONT_AND_BACK GL_SPECULAR (float-vector 0.2 0.2 0.2 0.1))
(glMaterialfv GL_FRONT_AND_BACK GL_EMISSION (float-vector 0.1 0.1 0.1 0.1))
- (when (get self :transparent)
+ (when stransparent
(glDepthMask GL_FALSE)
(glEnable GL_BLEND)
(glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA))
@@ -630,32 +629,36 @@
(indices (cadr (assoc :indices minfo))))
(when material-info
- (let ((col (cadr (assoc :color material-info)))
- (amb (cadr (assoc :ambient material-info)))
- (diff (cadr (assoc :diffuse material-info)))
- (spec (cadr (assoc :specular material-info)))
- (emmi (cadr (assoc :emmision material-info))))
+ (let ((col (cadr (assoc :color material-info)))
+ (amb (cadr (assoc :ambient material-info)))
+ (diff (cadr (assoc :diffuse material-info)))
+ (spec (cadr (assoc :specular material-info)))
+ (emi (cadr (assoc :emission material-info)))
+ (shin (cadr (assoc :shininess material-info)))
+ (trans (cadr (assoc :transparency material-info))))
+ ;; override transparent ...
+ ;;(if (and stransparent trans) (setq stransparent trans))
(when col
- (glMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE
- (if (get self :transparent)
- (concatenate float-vector col (float-vector (get self :transparent)))
+ (glMaterialfv GL_FRONT_AND_BACK GL_AMBIENT_AND_DIFFUSE
+ (if stransparent
+ (concatenate float-vector col (float-vector stransparent))
col)))
(when amb
- (if (get self :transparent)
- (setf (elt amb 3) (float-vector (get self :transparent))))
+ (if stransparent
+ (setf (elt amb 3) (float-vector stransparent)))
(glMaterialfv GL_FRONT_AND_BACK GL_AMBIENT amb))
(when diff
- (if (get self :transparent)
- (setf (elt diff 3) (float-vector (get self :transparent))))
+ (if stransparent
+ (setf (elt diff 3) (float-vector stransparent)))
(glMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE diff))
(when spec
- (if (get self :transparent)
- (setf (elt spec 3) (float-vector (get self :transparent))))
+ (if stransparent
+ (setf (elt spec 3) (float-vector stransparent)))
(glMaterialfv GL_FRONT_AND_BACK GL_SPECULAR spec))
- (when emmi
- (if (get self :transparent)
- (setf (elt emmi 3) (float-vector (get self :transparent))))
- (glMaterialfv GL_FRONT_AND_BACK GL_EMISSION emmi))
+ (when emi
+ (if stransparent
+ (setf (elt emi 3) (float-vector stransparent)))
+ (glMaterialfv GL_FRONT_AND_BACK GL_EMISSION emi))
))
(glEnableClientState GL_VERTEX_ARRAY)
@@ -690,7 +693,7 @@
(glDisableClientState GL_VERTEX_ARRAY)
))
- (when (get self :transparent)
+ (when stransparent
(glDepthMask GL_TRUE)
(glDisable GL_BLEND))
@@ -708,6 +711,7 @@
))
(:convert-to-faceset ()) ;;; not implemented yet
(:collision-check-objects (&rest args)) ;; compatibility to jsk library
+ (:box () (make-bounding-box (list #f(0 0 0) #f(1000 1000 1000)) 0.0))
)
#| ;; sample of glvertices
@@ -731,16 +735,18 @@
(mapcar #'(lambda (v) (scale 1000.0 v v)) ver-lst)
-(setq a (instance glvertices :init))
+;;(setq a (instance gl::glvertices :init))
(setq p (instance pointcloud :init :points ver-lst :normals nom-lst))
+
(setq l
-(list (list :material (list (list :color (float-vector 1 0 0))))
+(list (list :material '((:ambient #f(0.0 0.3 0.8)) (:diffuse #f(0.0 0.415686 0.921569)) (:specular #f(0.2 0.2 0.2)) (:emission #f(0.1 0.1 0.1)) (:shininess 0.22) (:transparency 0)))
+ (list :material '((:color #f(1 1 1))))
(list :vertices (send p :points))
(list :normals (send p :normals))
(list :type :quads)))
-(setq a (instance glvertices :init l))
+(setq a (instance gl::glvertices :init (list l)))
(objects (list a))
|#
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ky...@us...> - 2013-01-10 13:50:52
|
Revision: 866
http://jskeus.svn.sourceforge.net/jskeus/?rev=866&view=rev
Author: kyouhei
Date: 2013-01-10 13:50:44 +0000 (Thu, 10 Jan 2013)
Log Message:
-----------
add glvertices for displaying triangle mesh in OpenGL
Modified Paths:
--------------
trunk/irteus/irtgl.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2012-12-07 12:11:27 UTC (rev 865)
+++ trunk/irteus/irtgl.l 2013-01-10 13:50:44 UTC (rev 866)
@@ -562,6 +562,188 @@
))
)
+(defclass glvertices
+ :super propertied-object
+ :slots (parent-coords
+ mesh-list ;; (list (list (:type ) (:material ) (:vertices ) (:normals ) (:indices )) (...) ...)
+ filename)
+ )
+
+(defmethod glvertices
+ (:init
+ (mlst &rest args &key (coords (make-cascoords)) ((:filename fn)) &allow-other-keys)
+ (setq parent-coords coords)
+ (setq mesh-list mlst)
+ (setq filename fn)
+ self)
+ (:set-parent-coords (cds) (setq parent-coords cds) parent-coords)
+ (:coords (&rest args) (forward-message-to parent-coords args))
+ (:worldcoords (&rest args) (send* parent-coords :worldcoords args))
+ (:filename (&optional nm) (if nm (setq filename nm)) filename)
+ (:clear-display-id ()) ;;; not implemented yet
+ ;; (:check-normal ())
+ (:vertices ()
+ (let (ret)
+ (dolist (minfo mesh-list)
+ (let ((v (cadr (assoc :vertices minfo))))
+ (when v
+ (dotimes (i (array-dimension v 0))
+ (push (user::c-matrix-row v i) ret)))))
+ ret))
+ (:draw
+ (vwr &rest args)
+ (let* (newlis
+ (mat (send (send parent-coords :worldcoords) :4x4))
+#+:jsk
+ (glcon (cdr (assq (sys:thread-self) ((send vwr :viewsurface) . glcon))))
+#-:jsk
+ (glcon ((send vwr :viewsurface) . glcon))
+ )
+#+:jsk
+ (sys::mutex-lock gl::*opengl-lock*)
+ (send vwr :viewsurface :makecurrent) ;; ???
+ (glPushAttrib GL_ALL_ATTRIB_BITS)
+ (glpushmatrix)
+ (glmultmatrixf (array-entity (transpose mat *temp-matrix*)))
+ (cond
+ ((setq newlis (cdr (assq glcon (get self :GL-DISPLAYLIST-ID))))
+ (glCallList newlis))
+ (t
+ (setq newlis (glgenlists 1))
+ (glnewlist newlis gl_compile)
+
+ (glMaterialfv GL_FRONT_AND_BACK GL_AMBIENT (float-vector 0.1 0.1 0.1 0.1))
+ (glMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE (float-vector 1 1 1 1))
+ (glMaterialfv GL_FRONT_AND_BACK GL_SPECULAR (float-vector 0.2 0.2 0.2 0.1))
+ (glMaterialfv GL_FRONT_AND_BACK GL_EMISSION (float-vector 0.1 0.1 0.1 0.1))
+
+ (when (get self :transparent)
+ (glDepthMask GL_FALSE)
+ (glEnable GL_BLEND)
+ (glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA))
+
+ (dolist (minfo mesh-list)
+ (let ((mesh-type (cadr (assoc :type minfo)))
+ (material-info (cadr (assoc :material minfo)))
+ (vertices (cadr (assoc :vertices minfo)))
+ (normals (cadr (assoc :normals minfo)))
+ (indices (cadr (assoc :indices minfo))))
+
+ (when material-info
+ (let ((col (cadr (assoc :color material-info)))
+ (amb (cadr (assoc :ambient material-info)))
+ (diff (cadr (assoc :diffuse material-info)))
+ (spec (cadr (assoc :specular material-info)))
+ (emmi (cadr (assoc :emmision material-info))))
+ (when col
+ (glMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE
+ (if (get self :transparent)
+ (concatenate float-vector col (float-vector (get self :transparent)))
+ col)))
+ (when amb
+ (if (get self :transparent)
+ (setf (elt amb 3) (float-vector (get self :transparent))))
+ (glMaterialfv GL_FRONT_AND_BACK GL_AMBIENT amb))
+ (when diff
+ (if (get self :transparent)
+ (setf (elt diff 3) (float-vector (get self :transparent))))
+ (glMaterialfv GL_FRONT_AND_BACK GL_DIFFUSE diff))
+ (when spec
+ (if (get self :transparent)
+ (setf (elt spec 3) (float-vector (get self :transparent))))
+ (glMaterialfv GL_FRONT_AND_BACK GL_SPECULAR spec))
+ (when emmi
+ (if (get self :transparent)
+ (setf (elt emmi 3) (float-vector (get self :transparent))))
+ (glMaterialfv GL_FRONT_AND_BACK GL_EMISSION emmi))
+ ))
+
+ (glEnableClientState GL_VERTEX_ARRAY)
+ (when normals
+ (glEnableClientState GL_NORMAL_ARRAY)
+#+:x86_64
+ (glNormalPointer GL_DOUBLE 0 (array-entity normals))
+#-:x86_64
+ (glNormalPointer GL_FLOAT 0 (array-entity normals))
+ )
+
+#+:x86_64
+ (glVertexPointer 3 GL_DOUBLE 0 (array-entity vertices))
+#-:x86_64
+ (glVertexPointer 3 GL_FLOAT 0 (array-entity vertices))
+
+ (let (tp)
+ (case mesh-type
+ (:triangles (setq tp GL_TRIANGLES))
+ (:quads (setq tp GL_QUADS))
+ (t (warn ";; mesh-type not found ~A~%") mesh-type))
+ (when tp
+ (cond
+ (indices
+ (glDrawElements tp (length indices) GL_UNSIGNED_INT
+ (user::lvector2integer-bytestring indices)))
+ (t
+ (glDrawArrays tp 0 (array-dimension vertices 0)))
+ )))
+
+ (when normals (glDisableClientState GL_NORMAL_ARRAY))
+ (glDisableClientState GL_VERTEX_ARRAY)
+ ))
+
+ (when (get self :transparent)
+ (glDepthMask GL_TRUE)
+ (glDisable GL_BLEND))
+
+ (glendlist)
+ (setf (get self :GL-DISPLAYLIST-ID)
+ (cons (cons glcon newlis)
+ (get self :GL-DISPLAYLIST-ID)))
+ (setq newlis nil)
+ ))
+ (glpopmatrix)
+ (glpopattrib)
+#+:jsk
+ (sys::mutex-unlock *opengl-lock*)
+ (unless newlis (send self :draw vwr))
+ ))
+ (:convert-to-faceset ()) ;;; not implemented yet
+ (:collision-check-objects (&rest args)) ;; compatibility to jsk library
+ )
+
+#| ;; sample of glvertices
+(setq ver-lst (list
+(float-vector 0 0 0) (float-vector 1 0 0) (float-vector 1 1 0) (float-vector 0 1 0)
+(float-vector 1 0 0) (float-vector 1 0 -1) (float-vector 1 1 -1) (float-vector 1 1 0)
+(float-vector 0 0 -1) (float-vector 0 1 -1) (float-vector 1 1 -1) (float-vector 1 0 -1)
+(float-vector 0 0 -1) (float-vector 0 0 0) (float-vector 0 1 0) (float-vector 0 1 -1)
+(float-vector 0 1 0) (float-vector 1 1 0) (float-vector 1 1 -1) (float-vector 0 1 -1)
+(float-vector 0 0 0) (float-vector 0 0 -1) (float-vector 1 0 -1) (float-vector 1 0 0)
+))
+
+(setq nom-lst (list
+(float-vector 0 0 1) (float-vector 0 0 1) (float-vector 0 0 1) (float-vector 0 0 1)
+(float-vector 1 0 0) (float-vector 1 0 0) (float-vector 1 0 0) (float-vector 1 0 0)
+(float-vector 0 0 -1) (float-vector 0 0 -1) (float-vector 0 0 -1) (float-vector 0 0 -1)
+(float-vector -1 0 0) (float-vector -1 0 0) (float-vector -1 0 0) (float-vector -1 0 0)
+(float-vector 0 1 0) (float-vector 0 1 0) (float-vector 0 1 0) (float-vector 0 1 0)
+(float-vector 0 -1 0) (float-vector 0 -1 0) (float-vector 0 -1 0) (float-vector 0 -1 0)
+))
+
+(mapcar #'(lambda (v) (scale 1000.0 v v)) ver-lst)
+
+(setq a (instance glvertices :init))
+(setq p (instance pointcloud :init :points ver-lst :normals nom-lst))
+
+(setq l
+(list (list :material (list (list :color (float-vector 1 0 0))))
+ (list :vertices (send p :points))
+ (list :normals (send p :normals))
+ (list :type :quads)))
+
+(setq a (instance glvertices :init l))
+(objects (list a))
+|#
+
(provide :irtgl "$Id$")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: dropbox <dro...@us...> - 2012-12-29 08:09:18
|
Get dropbox cloud storage 18GB for lifetime! http://bit.ly/PzLeNh -- This message was sent to your SourceForge.net email alias via the web mail form. You may reply to this message directly, or via https://sourceforge.net/sendmessage.php?touser=4101755 To update your email alias preferences, please visit https://sourceforge.net/account |
|
From: <ky...@us...> - 2012-12-07 12:11:33
|
Revision: 865
http://jskeus.svn.sourceforge.net/jskeus/?rev=865&view=rev
Author: kyouhei
Date: 2012-12-07 12:11:27 +0000 (Fri, 07 Dec 2012)
Log Message:
-----------
add curvatures to pointcloud
Modified Paths:
--------------
trunk/irteus/irtpointcloud.l
Modified: trunk/irteus/irtpointcloud.l
===================================================================
--- trunk/irteus/irtpointcloud.l 2012-11-21 14:19:28 UTC (rev 864)
+++ trunk/irteus/irtpointcloud.l 2012-12-07 12:11:27 UTC (rev 865)
@@ -25,12 +25,11 @@
;;; pointcloud class
-
(in-package "USER")
(defclass pointcloud
:super cascaded-coords
- :slots (parray carray narray
+ :slots (parray carray narray curvature
pcolor psize awidth asize
box height width view-coords
drawnormalmode transparent tcarray))
@@ -38,6 +37,7 @@
(defmethod pointcloud
(:init (&rest args
&key ((:points mat)) ((:colors cary)) ((:normals nary))
+ ((:curvatures curv))
((:height ht)) ((:width wd))
(point-color (float-vector 0 1 0))
(point-size 2.0)
@@ -60,6 +60,11 @@
(send self :normals nary))
(nary
(setq narray nary)))
+ (cond
+ ((and nary (listp curv))
+ (send self :curvatures curv))
+ (nary
+ (setq curvature curv)))
(setq psize point-size
awidth arrow-width
@@ -153,6 +158,21 @@
(sys::vector-replace (array-entity m) (array-entity nmls))
(setq narray m)))))
narray)
+ (:curvatures (&optional curv)
+ (when curv
+ (cond
+ ((listp curv)
+ (let ((vec (instantiate float-vector (length curv)))
+ (cntr 0))
+ (dolist (p curv)
+ (setf (elt curv cntr) p)
+ (incf cntr))
+ (setq curvature vec)))
+ ((vectorp curv)
+ (let ((vec (instantiate float-vector (length curv))))
+ (sys::vector-replace vec curv)
+ (setq curvature vec)))))
+ curvature)
(:point-list ()
(let (lst)
(dotimes (i (send self :size))
@@ -176,6 +196,12 @@
(push (c-matrix-row narray i) lst)
)
(reverse lst))))
+ (:curvature-list ()
+ (if curvature
+ (let (lst)
+ (dotimes (i (length curvature))
+ (push (elt curvature i) lst))
+ (reverse lst))))
(:centroid ()
(let ((ret (float-vector 0 0 0)))
(vector-array-mean parray ret)
@@ -199,6 +225,7 @@
(p (float-vector 0 0 0))
(c (if carray (float-vector 0 0 0)))
(n (if narray (float-vector 0 0 0)))
+ cv
(cntr 0))
(when negative
(let (tmp)
@@ -207,7 +234,8 @@
))
(setq new-mat (make-matrix (length idx-lst) 3)
new-col (if carray (make-matrix (length idx-lst) 3))
- new-nom (if narray (make-matrix (length idx-lst) 3)))
+ new-nom (if narray (make-matrix (length idx-lst) 3))
+ new-cvt (if curvature (instantiate float-vector (length idx-lst))))
(cond
((listp idx-lst)
(dolist (i idx-lst)
@@ -227,6 +255,8 @@
(when narray
(c-matrix-row narray i n)
(c-matrix-row new-nom cntr n t))
+ (when curvature
+ (setf (elt new-cvt i) (elt curvature i)))
(incf cntr)))
(t ;; vector
(let (i)
@@ -248,19 +278,23 @@
(when narray
(c-matrix-row narray i n)
(c-matrix-row new-nom cntr n t))
+ (when curvature
+ (setf (elt new-cvt i) (elt curvature i)))
(incf cntr)))))
(if create
(let ((ret (instance pointcloud :init
:points new-mat
:colors new-col
- :normals new-nom)))
+ :normals new-nom
+ :curvatures new-cvt)))
(setq (ret . view-coords) (send view-coords :copy-worldcoords))
(send ret :transform (send self :worldcoords))
ret)
(progn
(setq parray new-mat)
- (if carray (setq carray new-col))
- (if parray (setq narray new-nom))
+ (if new-col (setq carray new-col))
+ (if new-nom (setq narray new-nom))
+ (if new-cvt (setq curvature new-cvt))
self)
)))
(:filtered-indices
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: SourceForge.net <no...@so...> - 2012-12-05 14:37:48
|
Bugs item #3592805, was opened at 2012-12-05 06:37 Message generated for change (Tracker Item Submitted) made by k-okada You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3592805&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Kei Okada (k-okada) Assigned to: Nobody/Anonymous (nobody) Summary: ドキュメンテーションツール Initial Comment: doctoolsでスロット変数のdocumentation部分を表示するようにして， かつrstで出して，pdf/htmlに変換する，という流れがいいと思います． doctools euslib/llib/doctools.l を直しました。 irteusgl doctools.l (html-jsk-classes) として、 gnome-open index.html とすると、irteusgl で定義されているクラス、(jsk)で定義されているクラス、(rbrain)で 定義されているクラスの３つのリンクを含んだindex.htmlページが表示されます。 $ irteusgl (html-doc-classes "index.html" (jsk-libraries) (rbrain-libraries)) と同じものです。 $ (html-doc-classes "aaa.html" (test1) (test2) ... (testn)) は、(test1) ... (testn)のそれぞれで追加で定義されるクラスの差分の ドキュメントファイルを生成し、それぞれのファイルへのリンクを含んだ aaa.htmlファイルを作ります。 なので、(jsk),(rbrain)のそれぞれで定義されるクラスのhtmlを作るには irteusgl doctools.l と、irteusglで使う必要があります。 documentation.l 今度は defun symbol [documentation] lambda-list . body のdocumentationをただ表示するだけ，という作戦にでてみました． 以前はdoxygenを使ってクラス構造を表示しようとしていましたが， 結局ドキュメントすら出来てないということで，一番簡単なシンプル バージョンを狙います． （じつはeus/doc/funcs というファイルがあって，これにdocumentatoinが入れば出来ればOK） cd euslib/irteus_proposals/ irteusgl documentation.l > documentation.txt documentation.txt行頭の;;部分を抜いて行頭が =====ここから public functions ---------------- ! =====ここまで となるようにして， rst2pdf documentation.txt として５分ぐらいかな？まつとと，添付のpdfが作られます． eus/lisp/l/eusdebug.l に定義されている pfuncs という関数で，eus/doc/funcs というファイルが作られていそうだ． ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3592805&group_id=337851 |
|
From: <ky...@us...> - 2012-11-21 14:19:39
|
Revision: 864
http://jskeus.svn.sourceforge.net/jskeus/?rev=864&view=rev
Author: kyouhei
Date: 2012-11-21 14:19:28 +0000 (Wed, 21 Nov 2012)
Log Message:
-----------
fix: width and height must be set
Modified Paths:
--------------
trunk/irteus/irtpointcloud.l
Modified: trunk/irteus/irtpointcloud.l
===================================================================
--- trunk/irteus/irtpointcloud.l 2012-11-07 14:58:20 UTC (rev 863)
+++ trunk/irteus/irtpointcloud.l 2012-11-21 14:19:28 UTC (rev 864)
@@ -71,7 +71,7 @@
((and ht wd)
(send self :size-change wd ht))
(t
- (send self :size-change (if mat (array-dimension mat 0)))))
+ (send self :size-change (if parray (array-dimension parray 0)))))
(send-super* :init args)
self)
(:reset-box () (if (= (send self :size) 0)
@@ -94,7 +94,13 @@
(ht
(setq height ht
width 1))
- (t )))
+ (t
+ (if parray
+ (setq width (array-dimension parray 0)
+ height 1)
+ (setq width 0
+ height 0)))
+ ))
(:view-coords (&optional vc) (if vc (setq view-coords vc)) view-coords)
(:points (&optional pts wd ht) ;; copy from pts
(when pts
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: SourceForge.net <no...@so...> - 2012-11-19 01:23:01
|
Bugs item #3588127, was opened at 2012-11-17 00:21 Message generated for change (Comment added) made by k-okada You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3588127&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: Yes Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: 原因不明のエラー Initial Comment: 3dof-robot(講義で扱ったもの)をつくり、講義の資料どおりに (setq c (make-cascoords :pos #(100 0 0) :rpy (float-vector 0 pi 0))) (send r :inverse-kinematics c :link-list (send r :link-list (send r :end-coords :parent)) :move-target (send r :end-coords) :translation-axis t :rotation-axis t :debug-view t) としたら、 irteusgl 0 error: vector expected in (send r :inverse-kinematics c :link-list (send r :link-list (send r :end-coords :parent)) :move-target (send r :end-coords) :translation-axis t :rotation-axis t :debug-view t) とエラーが出ます。どういうことでしょうか。 ---------------------------------------------------------------------- >Comment By: Kei Okada (k-okada) Date: 2012-11-18 17:23 Message: 作った，3dof-robotのファイルを添付，貼り付け，してみてください． ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3588127&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-11-17 08:21:39
|
Bugs item #3588127, was opened at 2012-11-17 00:21 Message generated for change (Tracker Item Submitted) made by nobody You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3588127&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: Yes Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: 原因不明のエラー Initial Comment: 3dof-robot(講義で扱ったもの)をつくり、講義の資料どおりに (setq c (make-cascoords :pos #(100 0 0) :rpy (float-vector 0 pi 0))) (send r :inverse-kinematics c :link-list (send r :link-list (send r :end-coords :parent)) :move-target (send r :end-coords) :translation-axis t :rotation-axis t :debug-view t) としたら、 irteusgl 0 error: vector expected in (send r :inverse-kinematics c :link-list (send r :link-list (send r :end-coords :parent)) :move-target (send r :end-coords) :translation-axis t :rotation-axis t :debug-view t) とエラーが出ます。どういうことでしょうか。 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3588127&group_id=337851 |
|
From: <ky...@us...> - 2012-11-07 14:58:27
|
Revision: 863
http://jskeus.svn.sourceforge.net/jskeus/?rev=863&view=rev
Author: kyouhei
Date: 2012-11-07 14:58:20 +0000 (Wed, 07 Nov 2012)
Log Message:
-----------
change: directory for architectures should not be needed in advance
Modified Paths:
--------------
trunk/irteus/PQP/Makefile
Removed Paths:
-------------
trunk/irteus/PQP/Cygwin/
trunk/irteus/PQP/Darwin/
trunk/irteus/PQP/Linux/
trunk/irteus/PQP/Linux64/
Modified: trunk/irteus/PQP/Makefile
===================================================================
--- trunk/irteus/PQP/Makefile 2012-10-12 02:42:27 UTC (rev 862)
+++ trunk/irteus/PQP/Makefile 2012-11-07 14:58:20 UTC (rev 863)
@@ -15,8 +15,11 @@
CLEAN = $(ARCHDIR)/$(LPFX)PQP.$(LSFX) $(OBJECTS) *.$(LSFX) \
$(ARCHDIR)/*.o *~ $(ARCHDIR)/$(LPFX)PQP-static.a
-default: library
+default: directory library
+directory:
+ if [ ! -e $(ARCHDIR) ]; then mkdir -p $(ARCHDIR); fi
+
install: $(EUSDIR)/$(ARCHDIR)/lib/$(LPFX)PQP.$(LSFX)
$(EUSDIR)/$(ARCHDIR)/lib/$(LPFX)PQP.$(LSFX): $(ARCHDIR)/$(LPFX)PQP.$(LSFX)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: SourceForge.net <no...@so...> - 2012-10-29 16:47:28
|
Bugs item #3581563, was opened at 2012-10-29 01:40 Message generated for change (Comment added) made by kyouhei You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3581563&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: rotation-angleでnanが返る Initial Comment: euslispのrotation-angleでnanが返ってくることがあります。 具体的には下のようになります。 56.E15-irteusgl$ (setq rot (make-coords :rpy #f(-1.220e-08 -5.195e-09 1.333e-09))) #<coordinates #X6de2b18 0.0 0.0 0.0 / -1.220e-08 -5.195e-09 1.333e-09> 57.E15-irteusgl$ rotation-angle (send rotbag :rot) (1.332685e-08 #f(-nan -nan 0.0)) ---------------------------------------------------------------------- >Comment By: Yohei Kakiuchi (kyouhei) Date: 2012-10-29 09:47 Message: jskeus/eus/lisp/c/matrix.c の 1040行め ROTANGLE が関数の定義ですね。 それで、1075行 の if ( th<1e-10 ) return(NIL); で角度が小さい場合はnilが返るようにしているが、 バグレポートの例では、 th = 1.33..e-8 なので通過している。 そのあとで ゼロ割 してnanが入る。 1e-10を1e-7ぐらいにするといいかもしれないですね。 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3581563&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-29 08:40:47
|
Bugs item #3581563, was opened at 2012-10-29 01:40 Message generated for change (Tracker Item Submitted) made by nobody You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3581563&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: rotation-angleでnanが返る Initial Comment: euslispのrotation-angleでnanが返ってくることがあります。 具体的には下のようになります。 56.E15-irteusgl$ (setq rot (make-coords :rpy #f(-1.220e-08 -5.195e-09 1.333e-09))) #<coordinates #X6de2b18 0.0 0.0 0.0 / -1.220e-08 -5.195e-09 1.333e-09> 57.E15-irteusgl$ rotation-angle (send rotbag :rot) (1.332685e-08 #f(-nan -nan 0.0)) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3581563&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-24 15:43:03
|
Bugs item #3575881, was opened at 2012-10-09 18:59 Message generated for change (Comment added) made by nobody You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: デモプログラムが実行できない Initial Comment: http://sourceforge.net/tracker/?func=detail&aid=3575213&group_id=337851&atid=1415198 を見て、makeし、Macにインストールするところまではいったのですが、デモプログラムを実行すると irteus/demo/demo.l configuring by "/Users/kodai/jskeus/eus/lib/eusrt.l" ;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; 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=/tmp/launch-GHhqWQ/org.x:0 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 pgsql irtgeo euspqp pqp irtscene irtmodel irtdyna irtrobot irtsensor irtbvh irtcollada irtpointcloud irtx eusjpeg euspng png irtimage irtglrgb ;; extending gcstack 0x1069cd000[16374] --> 0x106daa000[32748] top=36ae irtgl irtviewer EusLisp 8.26(r580 861) for Darwin created on Kodai-Mac.local(Tue Oct 9 17:28:02 JST 2012) とターミナル上で表示され、X Window Systemが起動するのですが白い画面のままで何も表示されず、X Window Systemが応答しなくなります。 Lisp言語は動かせます。 OSのバージョンはMacOS X 10.7.5です ---------------------------------------------------------------------- Comment By: Nobody/Anonymous (nobody) Date: 2012-10-24 08:43 Message: 書かれているようにXQuartzを2.7.4にバージョンアップすると動作しました。 ありがとうございます ---------------------------------------------------------------------- Comment By: furushchev (furushchev1990) Date: 2012-10-11 19:21 Message: OSX 10.8.2 Build 12C54, XQuartz 2.7.2にて同様のエラーが再現されました。 XQuartzのバージョンを2.7.4にアップデートしたところエラー無く動作しました。 Release Logをみたところ 2.7.3 -> 2.7.4 Fix an issue with GLX pixmaps (#536) plaguing wine (http://xquartz.macosforge.org/trac/ticket/536) が原因でしょうか。 ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-09 22:21 Message: OSは同じMac OS X 10.7.4で、 x11は標準のに代わってXQuartz 2.7.1 (xorg-server 1.11.4) xorg-libX11は1.4.99.901_0がアクティブ gccは4.2.1 で動いてます。 x11、xorg-libX11、gccの情報を送って下さい。 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 |
|
From: <k-...@us...> - 2012-10-12 02:42:34
|
Revision: 862
http://jskeus.svn.sourceforge.net/jskeus/?rev=862&view=rev
Author: k-okada
Date: 2012-10-12 02:42:27 +0000 (Fri, 12 Oct 2012)
Log Message:
-----------
fix for mac/homebrew #3576504
Modified Paths:
--------------
trunk/irteus/irtgl.l
trunk/irteus/irtx.l
Modified: trunk/irteus/irtgl.l
===================================================================
--- trunk/irteus/irtgl.l 2012-10-07 07:55:10 UTC (rev 861)
+++ trunk/irteus/irtgl.l 2012-10-12 02:42:27 UTC (rev 862)
@@ -28,7 +28,12 @@
(let (gl-lib)
#+:darwin
- (setq gl-lib ( load-foreign "/opt/local/lib/libGL.dylib"))
+ (progn
+ (cond
+ ((probe-file "/opt/local/lib/libGL.dylib")
+ (setq gl-lib ( load-foreign "/opt/local/lib/libGL.dylib")))
+ (t
+ (setq gl-lib ( load-foreign "/opt/X11/lib/libGL.dylib")))))
#+:cygwin
(progn
(cond
Modified: trunk/irteus/irtx.l
===================================================================
--- trunk/irteus/irtx.l 2012-10-07 07:55:10 UTC (rev 861)
+++ trunk/irteus/irtx.l 2012-10-12 02:42:27 UTC (rev 862)
@@ -53,7 +53,10 @@
(let (x-lib pname)
#+:darwin
- (setq pname "/opt/local/lib/libX11.dylib")
+#+:darwin
+ (if (probe-file "/opt/local/lib/libX11.dylib")
+ (setq pname "/opt/local/lib/libX11.dylib")
+ (setq pname "/opt/X11/lib/libX11.dylib"))
#+:cygwin
(if (probe-file "/usr/bin/cygX11-6.dll")
(setq pname "/usr/bin/cygX11-6.dll")
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: SourceForge.net <no...@so...> - 2012-10-12 02:21:35
|
Bugs item #3575881, was opened at 2012-10-09 18:59 Message generated for change (Comment added) made by furushchev1990 You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: デモプログラムが実行できない Initial Comment: http://sourceforge.net/tracker/?func=detail&aid=3575213&group_id=337851&atid=1415198 を見て、makeし、Macにインストールするところまではいったのですが、デモプログラムを実行すると irteus/demo/demo.l configuring by "/Users/kodai/jskeus/eus/lib/eusrt.l" ;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; 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=/tmp/launch-GHhqWQ/org.x:0 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 pgsql irtgeo euspqp pqp irtscene irtmodel irtdyna irtrobot irtsensor irtbvh irtcollada irtpointcloud irtx eusjpeg euspng png irtimage irtglrgb ;; extending gcstack 0x1069cd000[16374] --> 0x106daa000[32748] top=36ae irtgl irtviewer EusLisp 8.26(r580 861) for Darwin created on Kodai-Mac.local(Tue Oct 9 17:28:02 JST 2012) とターミナル上で表示され、X Window Systemが起動するのですが白い画面のままで何も表示されず、X Window Systemが応答しなくなります。 Lisp言語は動かせます。 OSのバージョンはMacOS X 10.7.5です ---------------------------------------------------------------------- Comment By: furushchev (furushchev1990) Date: 2012-10-11 19:21 Message: OSX 10.8.2 Build 12C54, XQuartz 2.7.2にて同様のエラーが再現されました。 XQuartzのバージョンを2.7.4にアップデートしたところエラー無く動作しました。 Release Logをみたところ 2.7.3 -> 2.7.4 Fix an issue with GLX pixmaps (#536) plaguing wine (http://xquartz.macosforge.org/trac/ticket/536) が原因でしょうか。 ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-09 22:21 Message: OSは同じMac OS X 10.7.4で、 x11は標準のに代わってXQuartz 2.7.1 (xorg-server 1.11.4) xorg-libX11は1.4.99.901_0がアクティブ gccは4.2.1 で動いてます。 x11、xorg-libX11、gccの情報を送って下さい。 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-12 02:01:59
|
Patches item #3576504, was opened at 2012-10-11 19:01 Message generated for change (Tracker Item Submitted) made by nobody You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415200&aid=3576504&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: Compile jskeus on Darwin(Mountain Lion 10.8.2, Build 12C54) Initial Comment: Index: irteus/irtgl.l =================================================================== --- irteus/irtgl.l (revision 861) +++ irteus/irtgl.l (working copy) @@ -28,7 +28,12 @@ (let (gl-lib) #+:darwin - (setq gl-lib ( load-foreign "/opt/local/lib/libGL.dylib")) + (progn + (cond + ((probe-file "/opt/local/lib/libGL.dylib") + (setq gl-lib ( load-foreign "/opt/local/lib/libGL.dylib"))) + (t + (setq gl-lib ( load-foreign "/opt/X11/lib/libGL.dylib"))))) Index: irteus/irtx.l =================================================================== --- irteus/irtx.l (revision 861) +++ irteus/irtx.l (working copy) @@ -53,7 +53,9 @@ (let (x-lib pname) #+:darwin - (setq pname "/opt/local/lib/libX11.dylib") + (if (probe-file "/opt/local/lib/libX11.dylib") + (setq pname "/opt/local/lib/libX11.dylib") + (setq pname "/opt/X11/lib/libX11.dylib")) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415200&aid=3576504&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-10 05:21:13
|
Bugs item #3575881, was opened at 2012-10-09 18:59 Message generated for change (Comment added) made by You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: デモプログラムが実行できない Initial Comment: http://sourceforge.net/tracker/?func=detail&aid=3575213&group_id=337851&atid=1415198 を見て、makeし、Macにインストールするところまではいったのですが、デモプログラムを実行すると irteus/demo/demo.l configuring by "/Users/kodai/jskeus/eus/lib/eusrt.l" ;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; 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=/tmp/launch-GHhqWQ/org.x:0 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 pgsql irtgeo euspqp pqp irtscene irtmodel irtdyna irtrobot irtsensor irtbvh irtcollada irtpointcloud irtx eusjpeg euspng png irtimage irtglrgb ;; extending gcstack 0x1069cd000[16374] --> 0x106daa000[32748] top=36ae irtgl irtviewer EusLisp 8.26(r580 861) for Darwin created on Kodai-Mac.local(Tue Oct 9 17:28:02 JST 2012) とターミナル上で表示され、X Window Systemが起動するのですが白い画面のままで何も表示されず、X Window Systemが応答しなくなります。 Lisp言語は動かせます。 OSのバージョンはMacOS X 10.7.5です ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-09 22:21 Message: OSは同じMac OS X 10.7.4で、 x11は標準のに代わってXQuartz 2.7.1 (xorg-server 1.11.4) xorg-libX11は1.4.99.901_0がアクティブ gccは4.2.1 で動いてます。 x11、xorg-libX11、gccの情報を送って下さい。 ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-10 01:59:21
|
Bugs item #3575881, was opened at 2012-10-09 18:59 Message generated for change (Tracker Item Submitted) made by nobody You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: デモプログラムが実行できない Initial Comment: http://sourceforge.net/tracker/?func=detail&aid=3575213&group_id=337851&atid=1415198 を見て、makeし、Macにインストールするところまではいったのですが、デモプログラムを実行すると irteus/demo/demo.l configuring by "/Users/kodai/jskeus/eus/lib/eusrt.l" ;; readmacro ;; object ;; packsym ;; common ;; constants ;; stream ;; string ;; loader ;; pprint ;; process ;; hashtab ;; array ;; mathtran ;; eusdebug ;; eusforeign ;; 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=/tmp/launch-GHhqWQ/org.x:0 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 pgsql irtgeo euspqp pqp irtscene irtmodel irtdyna irtrobot irtsensor irtbvh irtcollada irtpointcloud irtx eusjpeg euspng png irtimage irtglrgb ;; extending gcstack 0x1069cd000[16374] --> 0x106daa000[32748] top=36ae irtgl irtviewer EusLisp 8.26(r580 861) for Darwin created on Kodai-Mac.local(Tue Oct 9 17:28:02 JST 2012) とターミナル上で表示され、X Window Systemが起動するのですが白い画面のままで何も表示されず、X Window Systemが応答しなくなります。 Lisp言語は動かせます。 OSのバージョンはMacOS X 10.7.5です ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575881&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-09 06:06:19
|
Bugs item #3575213, was opened at 2012-10-07 00:07 Message generated for change (Settings changed) made by k-okada You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None >Status: Open >Resolution: Fixed Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: Macでのコンパイル失敗（ljpeg6bがない） Initial Comment: 自分のMacを用いてソフトウェア第三の授業の作業をしたいので、 http://sourceforge.net/apps/mediawiki/jskeus/index.php?title=Main_Page を参考に依存環境をインストールしようとしました。 ですが、ここに書いてある方法では、jpeg6bをインストールできませんでした。 なので、 http://slashdot.jp/~Cube/journal/363553 をなどを参考にjpeg6bをインストールしようとしたのですが、 このURLの中の4.で書き換えるところで、/usr/bin/の中にglibtoolは入っておらずlibtoolが入っているので、 s%@LIBTOOL@%/usr/bin/libtool%g と書き換えて、 6.でmakeしたのですが、以下のようなエラーが出ました： /usr/bin/libtool --mode=compile gcc -O2 -I. -c ./jcapimin.c /usr/bin/libtool: unknown option character `-' in: --mode=compile Usage: /usr/bin/libtool -static [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-sacLT] Usage: /usr/bin/libtool -dynamic [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-o output] [-install_name name] [-compatibility_version #] [-current_version #] [-seg1addr 0x#] [-segs_read_only_addr 0x#] [-segs_read_write_addr 0x#] [-seg_addr_table <filename>] [-seg_addr_table_filename <file_system_path>] [-all_load] [-noall_load] make: *** [jcapimin.lo] Error 1 この方針では、自力ではインストールできないような気がしてきたので、Macにjpeg6bをインストールする方法を教えていただけないでしょうか？ ちなみにOSは最新の10.8.2です。 また、MacPortからjpeg @8d_0 はインストールできたので、それを用いてjskeusをコンパイルする方法を教えていただいても事足りるかもしれません。 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-08 23:04 Message: r580で対応しました． ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 23:01 Message: 以下の変更が必要そうです = murase-no-MacBook-Pro:lisp kattyo$ svn diff Index: image/jpeg/makefile =================================================================== --- image/jpeg/makefile (revision 579) +++ image/jpeg/makefile (working copy) @@ -30,8 +30,8 @@ endif endif ifeq ($(ARCHDIR), Darwin) -CC += -I/opt/local/lib/jpeg6b/include -LD += -L/opt/local/lib/jpeg6b/lib +CC += -I/opt/local/lib/jpeg6b/include -I/opt/local/include +LD += -L/opt/local/lib/jpeg6b/lib -L/opt/local/lib endif ARCH=$(ARCHDIR) LIBDIR=$(EUSDIR)/$(ARCH)/lib ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 22:33 Message: その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. と出る場合ですが、 /opt/local/include/jpeglib.h というファイルがあるか確認して下さい。 ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 21:01 Message: jpegを入れて実行しましたが以下のようなエラーがでました。 svn up Fetching external item into 'eus/lisp' External at revision 579. Fetching external item into 'eus/lib' External at revision 579. Fetching external item into 'eus/lib/llib' External at revision 579. At revision 861. makeすると # remove unsupported directories cd eus/lisp && ln -sf Makefile.Darwin Makefile && make eus0 eus1 eus2 eusg eusx eusgl eus make[1]: Nothing to be done for `eus0'. make[1]: Nothing to be done for `eus1'. make[1]: Nothing to be done for `eus2'. make[1]: Nothing to be done for `eusg'. make[1]: Nothing to be done for `eusx'. make[1]: Nothing to be done for `eusgl'. make[1]: Nothing to be done for `eus'. cd irteus; make (cd /Users/kodai/jskeus/eus/lisp/image/jpeg/;make) gcc -dynamiclib -L/opt/local/lib/jpeg6b/lib -o jpegmemcd.so /Users/kodai/jskeus/eus/Darwin/obj/jpegmemcd.o /Users/kodai/jskeus/eus/Darwin/obj/jmemsrc.o /Users/kodai/jskeus/eus/Darwin/obj/jmemdst.o -ljpeg ld: warning: directory not found for option '-L/opt/local/lib/jpeg6b/lib' ld: library not found for -ljpeg collect2: ld returned 1 exit status make[2]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 1 make[1]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-08 19:11 Message: wikiに sudo port install jpeg を書くのを忘れていました．jpeg はインストールしてありますか？ ---------------------------------------------------------------------- Comment By: Nobody/Anonymous (nobody) Date: 2012-10-08 19:10 Message: まず、/prog/jskeusでsvn upを実行したところ、 svn: warning: W200000: Error handling externals definition for 'eus/lib/llib': svn: warning: W155007: '/prog/jskeus/eus/lib/llib' is not a working copy root リビジョン 861 です。 svn: E205011: Failure occurred processing one or more externals definitions という表示がでました。 その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. make[2]: *** [/prog/jskeus/eus/Darwin/obj/jpegmemcd.o] Error 1 make[1]: *** [/prog/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 と表示され、コンパイル失敗しました。 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-07 00:55 Message: jpeg @8d_0 でも動くことを確認しました． また，pngのバージョンも上がっているので，euspng.c を更新しました． cd prog/jskeus/; svn upとして，jskeusがr861以上であることを確認してmakeしてください． ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-09 06:06:02
|
Bugs item #3575213, was opened at 2012-10-07 00:07 Message generated for change (Settings changed) made by k-okada You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None >Status: Closed >Resolution: Accepted Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: Macでのコンパイル失敗（ljpeg6bがない） Initial Comment: 自分のMacを用いてソフトウェア第三の授業の作業をしたいので、 http://sourceforge.net/apps/mediawiki/jskeus/index.php?title=Main_Page を参考に依存環境をインストールしようとしました。 ですが、ここに書いてある方法では、jpeg6bをインストールできませんでした。 なので、 http://slashdot.jp/~Cube/journal/363553 をなどを参考にjpeg6bをインストールしようとしたのですが、 このURLの中の4.で書き換えるところで、/usr/bin/の中にglibtoolは入っておらずlibtoolが入っているので、 s%@LIBTOOL@%/usr/bin/libtool%g と書き換えて、 6.でmakeしたのですが、以下のようなエラーが出ました： /usr/bin/libtool --mode=compile gcc -O2 -I. -c ./jcapimin.c /usr/bin/libtool: unknown option character `-' in: --mode=compile Usage: /usr/bin/libtool -static [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-sacLT] Usage: /usr/bin/libtool -dynamic [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-o output] [-install_name name] [-compatibility_version #] [-current_version #] [-seg1addr 0x#] [-segs_read_only_addr 0x#] [-segs_read_write_addr 0x#] [-seg_addr_table <filename>] [-seg_addr_table_filename <file_system_path>] [-all_load] [-noall_load] make: *** [jcapimin.lo] Error 1 この方針では、自力ではインストールできないような気がしてきたので、Macにjpeg6bをインストールする方法を教えていただけないでしょうか？ ちなみにOSは最新の10.8.2です。 また、MacPortからjpeg @8d_0 はインストールできたので、それを用いてjskeusをコンパイルする方法を教えていただいても事足りるかもしれません。 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-08 23:04 Message: r580で対応しました． ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 23:01 Message: 以下の変更が必要そうです = murase-no-MacBook-Pro:lisp kattyo$ svn diff Index: image/jpeg/makefile =================================================================== --- image/jpeg/makefile (revision 579) +++ image/jpeg/makefile (working copy) @@ -30,8 +30,8 @@ endif endif ifeq ($(ARCHDIR), Darwin) -CC += -I/opt/local/lib/jpeg6b/include -LD += -L/opt/local/lib/jpeg6b/lib +CC += -I/opt/local/lib/jpeg6b/include -I/opt/local/include +LD += -L/opt/local/lib/jpeg6b/lib -L/opt/local/lib endif ARCH=$(ARCHDIR) LIBDIR=$(EUSDIR)/$(ARCH)/lib ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 22:33 Message: その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. と出る場合ですが、 /opt/local/include/jpeglib.h というファイルがあるか確認して下さい。 ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 21:01 Message: jpegを入れて実行しましたが以下のようなエラーがでました。 svn up Fetching external item into 'eus/lisp' External at revision 579. Fetching external item into 'eus/lib' External at revision 579. Fetching external item into 'eus/lib/llib' External at revision 579. At revision 861. makeすると # remove unsupported directories cd eus/lisp && ln -sf Makefile.Darwin Makefile && make eus0 eus1 eus2 eusg eusx eusgl eus make[1]: Nothing to be done for `eus0'. make[1]: Nothing to be done for `eus1'. make[1]: Nothing to be done for `eus2'. make[1]: Nothing to be done for `eusg'. make[1]: Nothing to be done for `eusx'. make[1]: Nothing to be done for `eusgl'. make[1]: Nothing to be done for `eus'. cd irteus; make (cd /Users/kodai/jskeus/eus/lisp/image/jpeg/;make) gcc -dynamiclib -L/opt/local/lib/jpeg6b/lib -o jpegmemcd.so /Users/kodai/jskeus/eus/Darwin/obj/jpegmemcd.o /Users/kodai/jskeus/eus/Darwin/obj/jmemsrc.o /Users/kodai/jskeus/eus/Darwin/obj/jmemdst.o -ljpeg ld: warning: directory not found for option '-L/opt/local/lib/jpeg6b/lib' ld: library not found for -ljpeg collect2: ld returned 1 exit status make[2]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 1 make[1]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-08 19:11 Message: wikiに sudo port install jpeg を書くのを忘れていました．jpeg はインストールしてありますか？ ---------------------------------------------------------------------- Comment By: Nobody/Anonymous (nobody) Date: 2012-10-08 19:10 Message: まず、/prog/jskeusでsvn upを実行したところ、 svn: warning: W200000: Error handling externals definition for 'eus/lib/llib': svn: warning: W155007: '/prog/jskeus/eus/lib/llib' is not a working copy root リビジョン 861 です。 svn: E205011: Failure occurred processing one or more externals definitions という表示がでました。 その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. make[2]: *** [/prog/jskeus/eus/Darwin/obj/jpegmemcd.o] Error 1 make[1]: *** [/prog/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 と表示され、コンパイル失敗しました。 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-07 00:55 Message: jpeg @8d_0 でも動くことを確認しました． また，pngのバージョンも上がっているので，euspng.c を更新しました． cd prog/jskeus/; svn upとして，jskeusがr861以上であることを確認してmakeしてください． ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 |
|
From: SourceForge.net <no...@so...> - 2012-10-09 06:04:35
|
Bugs item #3575213, was opened at 2012-10-07 00:07 Message generated for change (Comment added) made by k-okada You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: None Group: None Status: Open Resolution: None Priority: 5 Private: No Submitted By: Nobody/Anonymous (nobody) Assigned to: Nobody/Anonymous (nobody) Summary: Macでのコンパイル失敗（ljpeg6bがない） Initial Comment: 自分のMacを用いてソフトウェア第三の授業の作業をしたいので、 http://sourceforge.net/apps/mediawiki/jskeus/index.php?title=Main_Page を参考に依存環境をインストールしようとしました。 ですが、ここに書いてある方法では、jpeg6bをインストールできませんでした。 なので、 http://slashdot.jp/~Cube/journal/363553 をなどを参考にjpeg6bをインストールしようとしたのですが、 このURLの中の4.で書き換えるところで、/usr/bin/の中にglibtoolは入っておらずlibtoolが入っているので、 s%@LIBTOOL@%/usr/bin/libtool%g と書き換えて、 6.でmakeしたのですが、以下のようなエラーが出ました： /usr/bin/libtool --mode=compile gcc -O2 -I. -c ./jcapimin.c /usr/bin/libtool: unknown option character `-' in: --mode=compile Usage: /usr/bin/libtool -static [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-sacLT] Usage: /usr/bin/libtool -dynamic [-] file [...] [-filelist listfile[,dirname]] [-arch_only arch] [-o output] [-install_name name] [-compatibility_version #] [-current_version #] [-seg1addr 0x#] [-segs_read_only_addr 0x#] [-segs_read_write_addr 0x#] [-seg_addr_table <filename>] [-seg_addr_table_filename <file_system_path>] [-all_load] [-noall_load] make: *** [jcapimin.lo] Error 1 この方針では、自力ではインストールできないような気がしてきたので、Macにjpeg6bをインストールする方法を教えていただけないでしょうか？ ちなみにOSは最新の10.8.2です。 また、MacPortからjpeg @8d_0 はインストールできたので、それを用いてjskeusをコンパイルする方法を教えていただいても事足りるかもしれません。 ---------------------------------------------------------------------- >Comment By: Kei Okada (k-okada) Date: 2012-10-08 23:04 Message: r580で対応しました． ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 23:01 Message: 以下の変更が必要そうです = murase-no-MacBook-Pro:lisp kattyo$ svn diff Index: image/jpeg/makefile =================================================================== --- image/jpeg/makefile (revision 579) +++ image/jpeg/makefile (working copy) @@ -30,8 +30,8 @@ endif endif ifeq ($(ARCHDIR), Darwin) -CC += -I/opt/local/lib/jpeg6b/include -LD += -L/opt/local/lib/jpeg6b/lib +CC += -I/opt/local/lib/jpeg6b/include -I/opt/local/include +LD += -L/opt/local/lib/jpeg6b/lib -L/opt/local/lib endif ARCH=$(ARCHDIR) LIBDIR=$(EUSDIR)/$(ARCH)/lib ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 22:33 Message: その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. と出る場合ですが、 /opt/local/include/jpeglib.h というファイルがあるか確認して下さい。 ---------------------------------------------------------------------- Comment By: https://www.google.com/accounts () Date: 2012-10-08 21:01 Message: jpegを入れて実行しましたが以下のようなエラーがでました。 svn up Fetching external item into 'eus/lisp' External at revision 579. Fetching external item into 'eus/lib' External at revision 579. Fetching external item into 'eus/lib/llib' External at revision 579. At revision 861. makeすると # remove unsupported directories cd eus/lisp && ln -sf Makefile.Darwin Makefile && make eus0 eus1 eus2 eusg eusx eusgl eus make[1]: Nothing to be done for `eus0'. make[1]: Nothing to be done for `eus1'. make[1]: Nothing to be done for `eus2'. make[1]: Nothing to be done for `eusg'. make[1]: Nothing to be done for `eusx'. make[1]: Nothing to be done for `eusgl'. make[1]: Nothing to be done for `eus'. cd irteus; make (cd /Users/kodai/jskeus/eus/lisp/image/jpeg/;make) gcc -dynamiclib -L/opt/local/lib/jpeg6b/lib -o jpegmemcd.so /Users/kodai/jskeus/eus/Darwin/obj/jpegmemcd.o /Users/kodai/jskeus/eus/Darwin/obj/jmemsrc.o /Users/kodai/jskeus/eus/Darwin/obj/jmemdst.o -ljpeg ld: warning: directory not found for option '-L/opt/local/lib/jpeg6b/lib' ld: library not found for -ljpeg collect2: ld returned 1 exit status make[2]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 1 make[1]: *** [/Users/kodai/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-08 19:11 Message: wikiに sudo port install jpeg を書くのを忘れていました．jpeg はインストールしてありますか？ ---------------------------------------------------------------------- Comment By: Nobody/Anonymous (nobody) Date: 2012-10-08 19:10 Message: まず、/prog/jskeusでsvn upを実行したところ、 svn: warning: W200000: Error handling externals definition for 'eus/lib/llib': svn: warning: W155007: '/prog/jskeus/eus/lib/llib' is not a working copy root リビジョン 861 です。 svn: E205011: Failure occurred processing one or more externals definitions という表示がでました。 その後、makeしたところ (cd /prog/jskeus/eus/lisp/image/jpeg/;make) cc -fPIC -I/opt/local/lib/jpeg6b/include -c -o /prog/jskeus/eus/Darwin/obj/jpegmemcd.o jpegmemcd.c jpegmemcd.c:12:10: fatal error: 'jpeglib.h' file not found #include "jpeglib.h" ^ 1 error generated. make[2]: *** [/prog/jskeus/eus/Darwin/obj/jpegmemcd.o] Error 1 make[1]: *** [/prog/jskeus/eus/Darwin/lib/jpegmemcd.so] Error 2 make: *** [irteus-installed] Error 2 と表示され、コンパイル失敗しました。 ---------------------------------------------------------------------- Comment By: Kei Okada (k-okada) Date: 2012-10-07 00:55 Message: jpeg @8d_0 でも動くことを確認しました． また，pngのバージョンも上がっているので，euspng.c を更新しました． cd prog/jskeus/; svn upとして，jskeusがr861以上であることを確認してmakeしてください． ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=1415198&aid=3575213&group_id=337851 |
