From 6ba9cd4e8603f469a4d8b66604ba13e3d7f3919c Mon Sep 17 00:00:00 2001 From: Furushchev Date: Sun, 29 Jul 2018 20:19:24 +0900 Subject: [PATCH 1/3] irtgl: describe missing color looked up --- irteus/irtgl.l | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/irteus/irtgl.l b/irteus/irtgl.l index 70774075f..02cc2f18e 100644 --- a/irteus/irtgl.l +++ b/irteus/irtgl.l @@ -460,7 +460,7 @@ ((symbolp color) (setq c (find-if #'(lambda (o) (eq (send o :name) color)) *face-colors*)) - (if c (send c :diffuse) (warn "Color name not found "))) + (if c (send c :diffuse) (warn ";; Color name not found ~A~%" color))) (t color))) (unless v (setq v (float-vector 0.5 0.5 0.5))) v)) From aa356cbc7c0452231668be08735ce9cbdcc88542 Mon Sep 17 00:00:00 2001 From: Furushchev Date: Sun, 29 Jul 2018 20:20:12 +0900 Subject: [PATCH 2/3] irtgl: suppress warning --- irteus/irtgl.l | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/irteus/irtgl.l b/irteus/irtgl.l index 02cc2f18e..4e5cb64c9 100644 --- a/irteus/irtgl.l +++ b/irteus/irtgl.l @@ -470,8 +470,7 @@ (let (fc dif) (when (setq fc (get abody :face-color)) (unless (vectorp fc) - (warn "transparent: body ~A param ~A face-color ~A~%" abody param fc) - (setq fc (find-color fc))) + (setq fc (find-color fc))) (if (= (length fc) 3) (setq fc (concatenate float-vector fc #f(0)))) From c3862e01e7b2977e16258ee5ab665cc697ec7fc4 Mon Sep 17 00:00:00 2001 From: Furushchev Date: Sun, 29 Jul 2018 20:20:23 +0900 Subject: [PATCH 3/3] irtgllrgb: add silver --- irteus/irtglrgb.l | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/irteus/irtglrgb.l b/irteus/irtglrgb.l index dadee898d..5974883b2 100644 --- a/irteus/irtglrgb.l +++ b/irteus/irtglrgb.l @@ -1977,8 +1977,8 @@ :create :name :grey100 :diffuse #f(0.99609375 0.99609375 0.99609375)) (instance colormaterial - :create :name :DarkGrey - :diffuse #f(0.66015625 0.66015625 0.66015625)) + :create :name :silver + :diffuse #f(0.75 0.75 0.75)) (instance colormaterial :create :name :DarkGray :diffuse #f(0.66015625 0.66015625 0.66015625))