● 前回の講義のまとめ

(1)

２００３年度・数理解析・計算機数学２・第１１回1

● 前回の講義のまとめ

● 講義資料

★２Ｄグラッフィックスの例

•WEBページ

http://www.math.nagoya-u.ac.jp/~naito/lecture/2003_AW/

にある,“ex11_example.tar.gz”をダウンロードして,以下のコマンドを実行する.

tarxvfzex11_example.tar.gz

すると,ディレクトリ“ex11_example”内に以下のファイルが展開される.

Makefile,graphics.hgraphics.c2d_objects.hgraphics.txt

prog_11_1.cprog_11_2.cprog_11_3.c

この後,以下のコマンドを順に実行する.

–“makeprog_11_1”

実行可能コード“prog_11_1”の生成.

–“./prog_11_1>!prog_11_1.eps”PostScriptファイル“prog_11_1.eps”の生成.

–“gvprog_11_1.eps”

生成されたグラッフィックスを見る.

（同様に“prog_11_2”,“prog_11_3”も生成できる.）

•これらのファイルと同一のディレクトリに各自でプログラムを書き,２Ｄグラッフィックスを生成す

る.各自で書いたプログラムでは,“graphics.c”に含まれる関数を利用することができる.

● 実習内容

•（易〜中）正四面体・正六面体・正八面体・正十二面体・正二十面体の展開図を書きなさい.

•電子メールで「今日の講義の感想や意見」を送ってください.

ex11.tex,v1.62004-01-0817:10:49+09naitoExp

(2)

Jan 8 2004 17:12

2d_objects.h

Page 1

2d_objects.h

/* $Id: 2d_objects.h,v 1.5 2004-01-08 12:16:47+09 naito Exp $ */

/* ２Ｄグラフィックスの構造体定義と関数プロトタイプ宣言 */

#include <stdio.h>

#include <math.h>

#ifndef _2D_OBJECTS_H_

#define _2D_OBJECTS_H_

#define DIM_2 2 /* 次元 */

#define PN 64 /* 頂点の最大数 */

/* 色をあらわす構造体 */

struct color { double r ; double g ; double b ; } ;

typedef struct color color ;

/* ２次元多面体をあらわす構造体 */

struct polygon_2 {

double p[PN][DIM_2] ; /* 頂点の座標 */

int pn ; /* 頂点数 */

color face_color ; /* 多面体の色 */

color segment_color ; /* 多面体の境界色 */

} ;

typedef struct polygon_2 polygon_2 ;

#endif /* _2D_OBJECTS_H_ */

1

(3)

Jan 8 2004 17:12

Makefile

Page 1

Makefile

CC = gcc

CFLAGS = -Wall -pedantic LDFLAGS =

LIBS = -lm SRCS = graphics.c OBJS = $(SRCS:.c=.o) all:

clean:

/bin/rm -f *.o *~

.SUFFIXES: .c .c:

@$(MAKE) $(OBJS)

$(CC) $(OBJS) $< -o $@ $(LIBS)

graphics.c: graphics.h 2d_objects.h graphics.h: 2d_objects.h

graphics.o: graphics.c

1

(4)

Jan 8 2004 17:12

graphics.c

Page 1

graphics.c

/* PostScript Graphics Library */

/* $Id: graphics.c,v 1.11 2004-01-08 14:27:27+09 naito Exp $ */

#include <stdio.h>

#include <math.h>

#define _GRAPHICS_C_

#include "graphics.h"

#include "2d_objects.h"

/* A4 paper size (594, 794), A4 paper center (297, 397) */

static int a4_center_x = 297 ; static int a4_center_y = 397 ; static char *print_color(color) ;

void ps_opengraphics(double x1, double y1, double x2, double y2) {

double cx, cy ;

cx = a4_center_x - (x1+x2)/2.0 ; cy = a4_center_y - (y1+y2)/2.0 ; fprintf(stdout, "%%!PS-Adobe-2.0\n") ;

fprintf(stdout, "%%%%BoundingBox: %f %f %f %f\n", cx + x1, cy + y1, cx + x2, cy + y 2) ;

fprintf(stdout, "%%%%EndComments\n") ; fprintf(stdout, "%f %f translate\n", cx, cy) ; return ;

}

void ps_closegraphics(void) {

fprintf(stdout, "showpage\n") ; fprintf(stdout, "%%%%Trailer\n") ; fprintf(stdout, "%%%%EOF\n") ; return ;

}

void ps_opengraphics_multipage(double x1, double y1, double x2, double y2, int pages) {

double cx, cy ;

cx = a4_center_x - (x1+x2)/2.0 ; cy = a4_center_y - (y1+y2)/2.0 ; fprintf(stdout, "%%!PS-Adobe-2.0\n") ;

fprintf(stdout, "%%%%BoundingBox: %f %f %f %f\n", cx + x1, cy + y1, cx + x2, cy + y 2) ;

fprintf(stdout, "%%%%Pages: %d\n", pages) ; fprintf(stdout, "%%%%EndComments\n") ; x_origin = cx ; y_origin = cy ; return ;

}

void ps_closegraphics_multipage(void) {

fprintf(stdout, "%%%%Trailer\n") ; fprintf(stdout, "%%%%EOF\n") ; return ;

}

void ps_start_page(int page) {

fprintf(stdout, "%%%%Page: %d %d\n", page, page) ; fprintf(stdout, "%f %f translate\n", x_origin, y_origin) ; return ;

}

void ps_close_page(void) {

Jan 8 2004 17:12

graphics.c

Page 2

graphics.c

fprintf(stdout, "showpage\n") ; fprintf(stdout, "%%%%PageTrailer\n") ; return ;

}

void ps_draw_polygon(polygon_2 *p, int opt) {

int i ;

if (!((opt&FACE)||(opt&WIRE))) return ;

fprintf(stdout, "%%%%%%%% Draw Polygon (opt=%d)\n", opt) ; fprintf(stdout, " newpath\n") ;

fprintf(stdout, " %f setlinewidth %s\n", linewidth, print_color(p->segment_color)) ;

fprintf(stdout, " %f %f moveto\n", p->p[0][0], p->p[0][1]) ; for(i=1;i<p->pn;i++)

fprintf(stdout, " %f %f lineto\n", p->p[i][0], p->p[i][1]) ; fprintf(stdout, " closepath\n") ;

if ((opt&FACE)&&(opt&WIRE)) { /* 面と線を描画する */

fprintf(stdout, " gsave\n") ;

fprintf(stdout, " %s fill stroke\n", print_color(p->face_color)) ; fprintf(stdout, " grestore\n") ;

}

else if (opt&FACE) { /* 面のみを描画する */

fprintf(stdout, " %s fill stroke\n", print_color(p->face_color)) ; }

fprintf(stdout, " stroke\n") ;

fprintf(stdout, "%%%%%%%% END of Draw Polygon\n") ; return ;

}

void ps_write_string(double x, double y, double size, char *s) {

fprintf(stdout, "newpath 0 setgray\n") ; fprintf(stdout, "%f %f moveto\n",x, y) ;

fprintf(stdout, "/Courier findfont %f scalefont setfont\n", size) ; fprintf(stdout, "(%s) show\n", s) ;

return ; }

void ps_write_point_number(double *p, double size, char c, color fore_color, color ba ck_color, color boundary_color)

{

fprintf(stdout, "%%%%%%%% WRITE POINT: %c\n", c) ; fprintf(stdout, " newpath\n") ;

fprintf(stdout, " %f setlinewidth %s\n", linewidth, print_color(boundary_color)) ;

fprintf(stdout, " %f %f moveto\n", p[0]+size, p[1]) ; fprintf(stdout, " %f %f %f 0 360 arc\n", p[0], p[1], size) ;

fprintf(stdout, " gsave %s fill stroke grestore\n", print_color(back_color)) ; fprintf(stdout, " stroke\n") ;

fprintf(stdout, " newpath\n") ;

fprintf(stdout, " %s\n", print_color(fore_color)) ;

fprintf(stdout, " /Courier findfont %f scalefont setfont\n", size) ; fprintf(stdout, " %f %f moveto\n", p[0], p[1]) ;

fprintf(stdout, " (%c) dup stringwidth pop 2 div -1 mul dup exch rmoveto show\n"

, c) ;

fprintf(stdout, " stroke\n") ;

fprintf(stdout, "%%%%%%%% END of WRITE POINT: %c\n", c) ; return ;

}

void ps_draw_circle(double *p, double radius, color rgb) {

fprintf(stdout, "%%%%%%%% DRAW CIRCLE center: (%f %f) radius: %f\n", p[0], p[1], ra

1

(5)

Jan 8 2004 17:12

graphics.c

Page 3

graphics.c

dius) ;

fprintf(stdout, " %f setlinewidth %s\n", linewidth, print_color(rgb)) ; fprintf(stdout, " %f %f moveto\n", p[0]+radius, p[1]) ;

fprintf(stdout, " %f %f %f 0 360 arc\n", p[0], p[1], radius) ; fprintf(stdout, " stroke\n") ;

fprintf(stdout, "%%%%%%%% END of DRAW CIRCLE center: (%f %f) radius: %f\n", p[0], p [1], radius) ;

return ; }

void ps_draw_line(double *s, double *e, color rgb) {

fprintf(stdout, "%%%%%%%% DRAW LINE from (%f, %f) to (%f, %f)\n", s[0], s[1], e[0], e[1]) ;

fprintf(stdout, " %f setlinewidth %s\n", linewidth, print_color(rgb)) ; fprintf(stdout, " %f %f moveto\n", s[0], s[1]) ;

fprintf(stdout, " %f %f lineto\n", e[0], e[1]) ; fprintf(stdout, " stroke\n") ;

fprintf(stdout, "%%%%%%%% END of DRAW LINE from (%f, %f) to (%f, %f)\n", s[0], s[1]

, e[0], e[1]) ; return ; }

char *print_color(color rgb) {

static char s[100] ;

sprintf(s,"%f %f %f setrgbcolor", rgb.r, rgb.g, rgb.b) ; return s ;

}

2

(6)

Jan 8 2004 17:12

graphics.h

Page 1

graphics.h

/* PostScript Graphics Header File */

/* $Id: graphics.h,v 1.11 2004-01-08 14:27:37+09 naito Exp $ */

#ifndef _GRAPHICS_H_

#define _GRAPHICS_H_

/* 多角形描画のオプション値 */

#define WIRE (1<<0) /* 境界線の描画 */

#define FACE (1<<1) /* 面の塗り潰し */

void ps_opengraphics(double, double, double, double) ; void ps_closegraphics(void) ;

void ps_opengraphics_multipage(double, double, double, double, int) ; void ps_closegraphics_multipage(void) ;

void ps_start_page(int) ; void ps_close_page(void) ;

void ps_draw_polygon(polygon_2 *, int) ;

void ps_write_string(double, double, double, char *) ;

void ps_write_point_number(double *, double, char, color, color, color) ; void ps_draw_circle(double *, double, color) ;

void ps_draw_line(double *, double *, color) ;

#ifdef _GRAPHICS_C_

/* color 構造体のプリセット値 */

color COLOR_BLACK={0.0, 0.0, 0.0} ; color COLOR_WHITE={1.0, 1.0, 1.0} ; color COLOR_RED={1.0, 0.0, 0.0} ; color COLOR_GREEN={0.0, 1.0, 0.0} ; color COLOR_BLUE={0.0, 0.0, 1.0} ; color COLOR_MAGENTA={1.0, 0.0, 1.0} ; color COLOR_YELLOW={1.0, 1.0, 0.0} ; color COLOR_CYAN={0.0, 1.0, 1.0} ; /* 線の太さ */

double linewidth=0.1 ; #else

color COLOR_BLACK ; color COLOR_WHITE ; color COLOR_RED ; color COLOR_GREEN ; color COLOR_BLUE ; color COLOR_MAGENTA ; color COLOR_YELLOW ; color COLOR_CYAN ; double linewidth ; #endif /* _GRAPHICS_C */

/* 座標変換 */

double x_origin, y_origin ; #endif /* _GRAPHICS_H_ */

1

(7)

Jan 8 2004 17:12

prog_11_1.c

Page 1

prog_11_1.c

/* $Id: prog_11_1.c,v 1.13 2004-01-08 17:09:26+09 naito Exp $ */

/* ２Ｄグラッフィックス */

#include <stdio.h>

#include <math.h>

void init_rotate_matrix(double [][DIM_2], double) ; void rotate(double [DIM_2], double [][DIM_2]) ; void scale_2d(polygon_2 *, double) ;

void move_2d(polygon_2 *, double, double) ;

#define ANGLE (2.0*(M_PI)/5.0) /* 回転角 */

int main(int argc, char **argv) {

polygon_2 poly_5 ;

double r[DIM_2][DIM_2] ; int i, j ;

char c ;

double center[DIM_2]={0.0, 0.0} ;

double x1=-150.0, y1 = -150.0, x2 = 150.0, y2 = 400.0 ; /* 正５角形の設定 */

init_rotate_matrix(r, ANGLE) ; /* 回転行列の初期化 */

poly_5.pn = 5 ; /* 多面体の頂点数を設定 */

poly_5.face_color = COLOR_CYAN ; /* 面の色を設定 */

poly_5.segment_color = COLOR_BLUE ; /* 線の色を設定 */

/* 各点の座標の設定 */

for(i=0;i<poly_5.pn;i++) { poly_5.p[i][0] = 1.0 ; poly_5.p[i][1] = 0.0 ; } for(i=1;i<poly_5.pn;i++) for(j=0;j<i;j++) rotate(poly_5.p[i], r) ;

scale_2d(&poly_5, 100.0) ; /* オブジェクトのスケールを変更 */

ps_opengraphics(x1,y1,x2,y2) ; /* スクリーンとスケールの設定 */

ps_draw_circle(center, 100.0, COLOR_RED) ; /* 円の描画 */

ps_draw_polygon(&poly_5, WIRE) ; /* 描画 */

linewidth = 1.0 ; /* 線の太さの変更 */

move_2d(&poly_5, 0.0, 250.0) ; /* 移動 */

ps_draw_polygon(&poly_5, WIRE|FACE) ; /* 描画 */

for(i=0;i<poly_5.pn;i++) { /* 点の番号の描画 */

c = i + ’0’ ;

ps_write_point_number(poly_5.p[i], 10, c, COLOR_WHITE, COLOR_BLUE, COLOR_RED) ; }

ps_closegraphics() ; /* Graphics の終了 */

return 0 ; }

/*********************************************/

/* 多角形 p を scale 倍する */

void scale_2d(polygon_2 *p, double scale) {

int i, j ;

for(i=0;i<p->pn;i++)

for(j=0;j<DIM_2;j++) p->p[i][j] *= scale ; return ;

}

/* 多角形 p を (x,y) だけ平行移動する */

void move_2d(polygon_2 *p, double x, double y) {

int i ;

for(i=0;i<p->pn;i++) {

Jan 8 2004 17:12

prog_11_1.c

Page 2

prog_11_1.c

p->p[i][0] += x ; p->p[i][1] += y ; }

return ; }

/* 点 p に一次変換 r を作用させる */

void rotate(double p[DIM_2], double r[][DIM_2]) {

int i, j ; double t[DIM_2] ;

for(i=0;i<DIM_2;i++) { t[i] = 0.0 ;

for(j=0;j<DIM_2;j++) t[i] += r[i][j]*p[j] ; }

for(i=0;i<DIM_2;i++) p[i] = t[i] ; return ;

}

/* ２Ｄ回転行列の設定, 回転角 theta */

void init_rotate_matrix(double r[][DIM_2], double theta) {

int i, j ;

for(i=0;i<DIM_2;i++) for(j=0;j<DIM_2;j++) r[i][j] = 0.0 ;

for(i=0;i<DIM_2;i++) r[i][i] = 1.0 ; r[0][0] = cos(theta) ;

r[1][1] = cos(theta) ; r[1][0] = sin(theta) ; r[0][1] = -sin(theta) ; return ;

}

1

(8)

Jan 8 2004 17:12

prog_11_2.c

Page 1

prog_11_2.c

/* $Id: prog_11_2.c,v 1.6 2004-01-08 17:09:12+09 naito Exp $ */

/* ２Ｄグラッフィックス (multipage) */

#include <stdio.h>

#include <math.h>

void move_2d(polygon_2 *, double, double) ;

polygon_2 poly_5 ;

int page=1, total_pages=2 ; char c ;

double center[DIM_2]={0.0, 0.0} ;

double x1=-150.0, y1 = -150.0, x2 = 150.0, y2 = 150.0 ; /* 正５角形の設定 */

for(i=0;i<poly_5.pn;i++) { poly_5.p[i][0] = 1.0 ; poly_5.p[i][1] = 0.0 ; } for(i=1;i<poly_5.pn;i++) for(j=0;j<i;j++) rotate(poly_5.p[i], r) ; scale_2d(&poly_5, 100.0) ; /* オブジェクトのスケールを変更 */

ps_opengraphics_multipage(x1, y1, x2, y2, total_pages) ;/* スクリーンとスケールの設定 */

ps_start_page(page++) ;

ps_draw_circle(center, 100.0, COLOR_RED) ; /* 円の描画 */

ps_draw_polygon(&poly_5, WIRE) ; /* 描画 */

ps_close_page() ;

ps_start_page(page++) ;

linewidth = 1.0 ; /* 線の太さの変更 */

ps_draw_polygon(&poly_5, WIRE|FACE) ; /* 描画 */

for(i=0;i<poly_5.pn;i++) { /* 点の番号の描画 */

c = i + ’0’ ;

ps_write_point_number(poly_5.p[i], 10, c, COLOR_WHITE, COLOR_BLUE, COLOR_RED) ; }

ps_close_page() ;

ps_closegraphics_multipage() ; /* Graphics の終了 */

return 0 ; }

/*********************************************/

int i, j ;

}

Jan 8 2004 17:12

prog_11_2.c

Page 2

prog_11_2.c

int i ;

p->p[i][0] += x ; p->p[i][1] += y ; }

return ; }

for(i=0;i<DIM_2;i++) { t[i] = 0.0 ;

}

int i, j ;

}

1

(9)

Jan 8 2004 17:12

prog_11_3.c

Page 1

prog_11_3.c

/* $Id: prog_11_3.c,v 1.3 2004-01-08 14:43:53+09 naito Exp naito $ */

/* ２Ｄグラッフィックス（正５角形の回転） */

#include <stdio.h>

#include <math.h>

void move_2d(polygon_2 *, double, double) ; #define PAGES (72)

#define ANGLE_2 (2.0*(M_PI)/(PAGES)) /* １ページの回転角 */

polygon_2 poly_5 ;

int total_pages=PAGES+1 ;

double x1=-150.0, y1 = -150.0, x2 = 150.0, y2 = 150.0 ; char s[100] ;

/* 正５角形の設定 */

for(i=0;i<poly_5.pn;i++) { poly_5.p[i][0] = 1.0 ; poly_5.p[i][1] = 0.0 ; } for(i=1;i<poly_5.pn;i++) for(j=0;j<i;j++) rotate(poly_5.p[i], r) ; scale_2d(&poly_5, 100.0) ; /* オブジェクトのスケールを変更 */

ps_opengraphics_multipage(x1, y1, x2, y2, total_pages) ;/* スクリーンとスケールの設定 */

init_rotate_matrix(r, ANGLE_2) ; /* 回転行列の初期化 */

for(i=0;i<=PAGES;i++) { ps_start_page(i+1) ;

sprintf(s,"angle=%03d", i*(int)(360.0/PAGES)) ; ps_write_string(-100, 130, 10, s) ;

poly_5.face_color.g = (double)i/PAGES ;

poly_5.face_color.r = 1.0 - poly_5.face_color.g ; ps_draw_polygon(&poly_5, FACE) ; /* 描画 */

for(j=0;j<poly_5.pn;j++) rotate(poly_5.p[j], r) ; ps_close_page() ;

}

ps_closegraphics_multipage() ; /* Graphics の終了 */

return 0 ; }

/*********************************************/

int i, j ;

}

Jan 8 2004 17:12

prog_11_3.c

Page 2

prog_11_3.c

int i ;

p->p[i][0] += x ; p->p[i][1] += y ; }

return ; }

for(i=0;i<DIM_2;i++) { t[i] = 0.0 ;

}

int i, j ;

}

1

(10)

Jan 14 2004 11:44

graphics.txt

Page 1

graphics.txt

○ Graphics Library の仕様.

$Id: graphics.txt,v 1.6 2004-01-08 14:29:26+09 naito Exp $ ● 定義済みマクロ

#define DIM_2 2 /* 次元 */

#define PN 64 /* 頂点の最大数 */

● 構造体の仕様

/* 面の色をあらわす構造体 */

struct color {

double r ; /* Red の濃度 0.0 -- 1.0 */

double g ; /* Green の濃度 0.0 -- 1.0 */

double b ; /* Blue の濃度 0.0 -- 1.0 */

} ;

typedef struct color color ;

/* ２次元多面体をあらわす構造体 */

struct polygon_2 {

double p[PN][DIM_2] ; /* 頂点の座標 */

int pn ; /* 頂点数 */

color face_color ; /* 多面体の色 */

color segment_color ; /* 多面体の境界色 */

} ;

typedef struct polygon_2 polygon_2 ; ● 定義済み大域変数

color COLOR_BLACK ={0.0, 0.0, 0.0} ; /* 黒 */

color COLOR_WHITE ={1.0, 1.0, 1.0} ; /* 白 */

color COLOR_RED ={1.0, 0.0, 0.0} ; /* 赤 */

color COLOR_GREEN ={0.0, 1.0, 0.0} ; /* 緑 */

color COLOR_BLUE ={0.0, 0.0, 1.0} ; /* 青 */

color COLOR_MAGENTA={1.0, 0.0, 1.0} ; /* マゼンタ */

color COLOR_YELLOW ={1.0, 1.0, 0.0} ; /* 黄 */

color COLOR_CYAN ={0.0, 1.0, 1.0} ; /* シアン */

double linewidth 線の太さ. default 値 0.1 ● 関数の仕様

☆ グラッフィックス状態定義関数（単一ページ用）

void ps_opengraphics(double x1, double y1, double x2, double y2) PostScript グラッフィクスの初期化を行います.

描画領域は左下隅 (x1, y1), 右上隅 (x2, y2) で指定された長方形領域となります.

実際には以下の PS code を出力します.

--- %!PS-Adobe-2.0

%%BoundingBox: "cx+x1" "cy+y1" "cx+x2" "cy+y2"

%%EndComments "cx" "cy" translate

---

(cx, cy) は (x1, y1), (x2, y2) で指定される矩形領域をＡ４サイズの中心点に平行移動した座標です.

void ps_closegraphics(void)

PostScript グラッフィクスを終了します.

---

Jan 14 2004 11:44

graphics.txt

Page 2

graphics.txt

showpage %%Trailer %%EOF

---

☆ グラッフィックス状態定義関数（複数ページ用）

void ps_opengraphics_multipage(double x1, double y1, double x2, double y2, int pages)

複数ページにわたる PostScript グラッフィクスの初期化を行います.

描画領域は左下隅 (x1, y1), 右上隅 (x2, y2) で指定された長方形領域となります.

pages には全ページ数を指定します.

--- %!PS-Adobe-2.0

%%BoundingBox: "cx+x1" "cy+y1" "cx+x2" "cy+y2"

%%Pages: "pages"

%%EndComments

---

void ps_closegraphics_multipage(void) PostScript グラッフィクスを終了します.

--- %%Trailer

%%EOF

---

void ps_start_page(int page)

PostScript グラッフィックスの新しいページを生成します.

描画領域の左下隅座標 (x1, y1) とページ番号 page を指定します. 実際には以下の PS code を出力します.

--- %%Page: "page" "page"

"cx" "cy" translate

---

void ps_close_page(void)

PostScript グラッフィックスの一つのページを終了します.

--- showpage

%%PageTrailer

--- ☆ グラッフィックス描画関数

void ps_draw_polygon(polygon_2 *p, int opt) ポインタ p で示される平面多角形を描画します.

opt は内部の塗り潰しと境界の描画を指定する値です.

境界線の太さは大域変数 linewidth で指定されている値を用います. opt の指定：

FACE: 内部の塗り潰しを行います.

WIRE: 境界を描画します.

内部の塗り潰しを行い, 境界を描画する場合には, opt に FACE|WIRE を指定します. 実際には以下の PS code を出力します.

・ opt = FACE の場合

---

1

(11)

Jan 14 2004 11:44

graphics.txt

Page 3

graphics.txt

newpath

"linewidth setlinewidth "p->segment_color.r" "p->segment_color.g" "p->segment _color.r" setrgbcolor

"p->p[0][0]" "p->p[0][1]" moveto

"p->p[i][0]" "p->p[i][1]" lineto （i=1...pn-1 までの繰り返し） closepath

"p.rgb.r" "p.rgb.g" "p.rgb.b" setrgbcolor fill stroke stroke

---

・ opt = WIRE の場合

--- newpath

"p->p[0][0]" "p->p[0][1]" moveto

stroke

---

・ opt = FACE|WIRE の場合

--- newpath

"p->p[0][0]" "p->p[0][1]" moveto

gsave

"p.rgb.r" "p.rgb.g" "p.rgb.b" setrgbcolor fill stroke grestore

stroke

--- ・それ以外の場合は何も出力しません.

void ps_write_string(double x, double y, double size, char *s) 始点 (x,y) から文字列 s を描画します.

s は ASCII 文字に限ります.

文字のサイズは size ポイント, 字体は Courier,

色は黒です.

--- newpath 0 setgray

"x" "y" moveto

/Courier findfont "size" scalefont setfont ("s") show

---

void ps_write_point_number(double *p, double size, char c, color fore_color, color back_color, color boundary_color)

文字 c を中心位置 p に描画し, 丸で囲みます.

p は要素数 2, double 型の配列です.

c は ASCII 文字に限ります.

描画色は以下の通りです.

fore_color : 文字を描画する色.

back_color : 文字の背景色. boundary_color: 囲み線の色.

境界の線の太さは大域変数 linewidth で指定された値を用います.

---

Jan 14 2004 11:44

graphics.txt

Page 4

graphics.txt

newpath

"linewidth" setlinewidth ;

"boundary_color.r" "boundary_color.g" "boundary_color.b" setrgbcolor "p[0]+size" "p[1]" moveto

"p[0]" "p[1]" "size" 0 360 arc

gsave "back_color.r" "back_color.g" "back_color.b" setrgbcolor fill stroke gr estore

stroke newpath

"fore_color.r" "fore_color.g" "fore_color.b" setrgbcolor /Courier findfont "size" scalefont setfont

"p[0]" "p[1]" moveto

("c") dup stringwidth pop 2 div -1 mul dup exch rmoveto show stroke

---

void ps_draw_circle(double *p, double radius, color rgb) 中心点 p, 半径 radius の円周を描画します.

p は要素数 2, double 型の配列です.

境界の線の太さは大域変数 linewidth で指定された値を用い, その色は rgb で指定された色を用います.

--- newpath

"linewidth" setlinewidth "rgb.r" "rgb.g" "rgb.b" setrgbcolor "p[0]+radius" "p[1]" moveto

"p[0]" "p[1]" "radius" 0 360 arc stroke

---

void ps_draw_line(double *s, double *e, color rgb) 始点 s, 終点 e とする線分を描画します.

s, e は要素数 2, double 型の配列です.

線の太さは大域変数 linewidth で指定された値を用い, その色は rgb で指定された色を用います.

--- newpath

"linewidth" setlinewidth "rgb.r" "rgb.g" "rgb.b" setrgbcolor "s[0]" "s[1]" moveto

"e[0]" "e[1]" lineto stroke

---

2