diff --git a/doc/jlatex/jgraphics.tex b/doc/jlatex/jgraphics.tex
index 548efd30e..54fbc2eb5 100644
--- a/doc/jlatex/jgraphics.tex
+++ b/doc/jlatex/jgraphics.tex
@@ -296,11 +296,11 @@ \subsection{Viewer}
 ことによりviewsurfaceの大きさを変える。}
 \methoddesc{:draw-line-ndc}{ p1 p2 \&optional (do-clip t)}{
 NDCの中に定義される2つの端点{\em p1,p2}を結ぶ線を描く。}
-\methoddesc{:draw-polyline-ndc}{polylines}{
+\methoddesc{:draw-polyline-ndc}{polylines \&optional color}{
 NDCの中に定義される端点を結ぶ多角形を描く。}
-\methoddesc{:draw-star-ndc}{center \&optional (size 0.01)}{
+\methoddesc{:draw-star-ndc}{center \&optional (size 0.01) color}{
 NDCの中に十字マークを描く。}
-\methoddesc{:draw-box-ndc}{low-left up-right}{
+\methoddesc{:draw-box-ndc}{low-left up-right \&optional color}{
 NDCの中に四角形を描く。}
 \methoddesc{:draw-arc-ndc}{point width height angle1 angle2 \&optional color}{
 NDCの中に円弧を描く。
@@ -315,8 +315,10 @@ \subsection{Viewer}
 \metdesc{:draw-fill-rectangle-ndc}{point width height \&optional color}
 \methoddesc{:draw-line}{p1 p2 \&optional (do-clip t)}{
 ワールド座標系に定義される2つの端点{\em p1,p2}を結ぶ線を描く。}
-\methoddesc{:draw-star}{position \&optional (size 0.01)}{
+\methoddesc{:draw-star}{position \&optional (size 0.01) color}{
 ワールド座標系の{\em position}位置に十字マークを描く。}
+\methoddesc{:draw-polyline}{vlist \&optional color}{
+ワールド座標系の{\em vlist}端点を結ぶ多角形を描く。}
 \methoddesc{:draw-box}{center \&optional (size 0.01)}{
 ワールド座標系の{\em center}に四角形を描く。}
 \methoddesc{:draw-arrow}{p1 p2}{
diff --git a/doc/latex/graphics.tex b/doc/latex/graphics.tex
index 6426fe351..63c97ce1a 100644
--- a/doc/latex/graphics.tex
+++ b/doc/latex/graphics.tex
@@ -314,11 +314,11 @@ \subsection{Viewer}
 and :size message to viewport.}
 \methoddesc{:draw-line-ndc}{ p1 p2 \&optional (do-clip t)}{
 draws a line whose two end points {\em p1, p2} are defined in NDC.}
-\methoddesc{:draw-polyline-ndc}{polylines}{
+\methoddesc{:draw-polyline-ndc}{polylines \&optional color}{
 draws polylines whose end points are defined in NDC.}
-\methoddesc{:draw-star-ndc}{center \&optional (size 0.01)}{
+\methoddesc{:draw-star-ndc}{center \&optional (size 0.01) color}{
 draws a cross mark in NDC.}
-\methoddesc{:draw-box-ndc}{low-left up-right}{
+\methoddesc{:draw-box-ndc}{low-left up-right \&optional color}{
 draws a rectangle in NDC.}
 \methoddesc{:draw-arc-ndc}{point width height angle1 angle2 [color]}{
 draws an arc in NDC.
@@ -333,8 +333,10 @@ \subsection{Viewer}
 \methoddesc{:draw-line}{p1 p2 \&optional (do-clip t)}{
 draws a line whose two end points {\em p1, p2} are defined in the world
 coordinates.}
-\methoddesc{:draw-star}{position \&optional (size 0.01)}{
+\methoddesc{:draw-star}{position \&optional (size 0.01) color}{
 draws a cross at {\em position} located in the world.}
+\methoddesc{:draw-polyline}{vlist \&optional color}{
+draws polylines whose end points {\em vlist} are defined in the world.}
 \methoddesc{:draw-box}{center \&optional (size 0.01)}{
 draws a rectangular at {\em center}in the world.}
 \methoddesc{:draw-arrow}{p1 p2}{
diff --git a/doc/methods b/doc/methods
index e25befed6..0cd94fd68 100644
--- a/doc/methods
+++ b/doc/methods
@@ -721,7 +721,7 @@ viewer
 	:draw-axis           (coords &optional size)
 	:draw-body           (bod &optional (normal-clip t))
 	:draw-box            (v &optional (size (/ (send surface :width) 300.0)))
-	:draw-box-ndc        (lower-left upper-right)
+	:draw-box-ndc        (lower-left upper-right color)
 	:draw-edge           (e &optional color)
 	:draw-edge-image     (ei &optional (dashed-invisibles nil) (color (send ei :color)))
 	:draw-faces          (flist &optional (normal-clip nil) color)
@@ -733,11 +733,11 @@ viewer
 	:draw-line-ndc       (p1 p2 &optional (do-clip t) (color nil))
 	:draw-one            (thing info)
 	:draw-point-ndc      (p &optional color)
-	:draw-polyline       (vlist)
-	:draw-polyline-ndc   (polyline)
+	:draw-polyline       (vlist &optional color)
+	:draw-polyline-ndc   (polyline &optional color)
 	:draw-rectangle-ndc  (point width height &optional color)
-	:draw-star           (v &optional size)
-	:draw-star-ndc       (point &optional (size 0.02))
+	:draw-star           (v &optional size color)
+	:draw-star-ndc       (point &optional (size 0.02) color)
 	:draw-string-ndc     (point string &optional color)
 	:erase               (thing)
 	:flush