{"action":"created","issue":{"url":"https://api.github.com/repos/euslisp/jskeus/issues/230","labels_url":"https://api.github.com/repos/euslisp/jskeus/issues/230/labels{/name}","comments_url":"https://api.github.com/repos/euslisp/jskeus/issues/230/comments","events_url":"https://api.github.com/repos/euslisp/jskeus/issues/230/events","html_url":"https://github.com/euslisp/jskeus/issues/230","id":94471185,"number":230,"title":":draw-arrow bug?","user":{"login":"snozawa","id":6102287,"avatar_url":"https://avatars.githubusercontent.com/u/6102287?v=3","gravatar_id":"","url":"https://api.github.com/users/snozawa","html_url":"https://github.com/snozawa","followers_url":"https://api.github.com/users/snozawa/followers","following_url":"https://api.github.com/users/snozawa/following{/other_user}","gists_url":"https://api.github.com/users/snozawa/gists{/gist_id}","starred_url":"https://api.github.com/users/snozawa/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/snozawa/subscriptions","organizations_url":"https://api.github.com/users/snozawa/orgs","repos_url":"https://api.github.com/users/snozawa/repos","events_url":"https://api.github.com/users/snozawa/events{/privacy}","received_events_url":"https://api.github.com/users/snozawa/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":1,"created_at":"2015-07-11T13:02:24Z","updated_at":"2015-07-12T05:20:20Z","closed_at":null,"body":"I'd like to draw objects using `:draw-on` and draw arrow using `:draw-arrow`.\r\n\r\nSome codes does not work.\r\nFor example, \r\n\r\n```\r\n(objects (list (setq *bb* (make-cube 200 200 200))))\r\n\r\n;; draw-on => draw-arrow : Work correctly\r\n(progn  \r\n(send *irtviewer* :draw-objects :flush nil)\r\n(send-all (send *bb* :vertices) :draw-on :flush nil)\r\n(send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100)) \r\n(send *irtviewer* :viewer :viewsurface :flush)\r\n)\r\n\r\n;; draw-arrow => draw-on : Does not work (vertices cannot be displayed)\r\n(progn  \r\n(send *irtviewer* :draw-objects :flush nil)\r\n(send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100)) \r\n(send-all (send *bb* :vertices) :draw-on :flush nil)\r\n(send *irtviewer* :viewer :viewsurface :flush)\r\n)\r\n```"},"comment":{"url":"https://api.github.com/repos/euslisp/jskeus/issues/comments/120689020","html_url":"https://github.com/euslisp/jskeus/issues/230#issuecomment-120689020","issue_url":"https://api.github.com/repos/euslisp/jskeus/issues/230","id":120689020,"user":{"login":"k-okada","id":493276,"avatar_url":"https://avatars.githubusercontent.com/u/493276?v=3","gravatar_id":"","url":"https://api.github.com/users/k-okada","html_url":"https://github.com/k-okada","followers_url":"https://api.github.com/users/k-okada/followers","following_url":"https://api.github.com/users/k-okada/following{/other_user}","gists_url":"https://api.github.com/users/k-okada/gists{/gist_id}","starred_url":"https://api.github.com/users/k-okada/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/k-okada/subscriptions","organizations_url":"https://api.github.com/users/k-okada/orgs","repos_url":"https://api.github.com/users/k-okada/repos","events_url":"https://api.github.com/users/k-okada/events{/privacy}","received_events_url":"https://api.github.com/users/k-okada/received_events","type":"User","site_admin":false},"created_at":"2015-07-12T05:20:20Z","updated_at":"2015-07-12T05:20:20Z","body":"try to fix this on https://github.com/euslisp/EusLisp/pull/119, but not\nsure what kind of side effect will happen,\nalso we still have a good way to test these issue.\n\n--\n◉ Kei Okada\n\n\nOn Sat, Jul 11, 2015 at 10:02 PM, Shunichi Nozawa <notifications@github.com>\nwrote:\n\n> I'd like to draw objects using :draw-on and draw arrow using :draw-arrow.\n>\n> Some codes does not work.\n> For example,\n>\n> (objects (list (setq *bb* (make-cube 200 200 200))))\n>\n> ;; draw-on => draw-arrow : Work correctly\n> (progn\n> (send *irtviewer* :draw-objects :flush nil)\n> (send-all (send *bb* :vertices) :draw-on :flush nil)\n> (send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100))\n> (send *irtviewer* :viewer :viewsurface :flush)\n> )\n>\n> ;; draw-arrow => draw-on : Does not work (vertices cannot be displayed)\n> (progn\n> (send *irtviewer* :draw-objects :flush nil)\n> (send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100))\n> (send-all (send *bb* :vertices) :draw-on :flush nil)\n> (send *irtviewer* :viewer :viewsurface :flush)\n> )\n>\n> —\n> Reply to this email directly or view it on GitHub\n> <https://github.com/euslisp/jskeus/issues/230>.\n>\n"}}