プリンタでの描画

　　プリンタでの描画 初心者 2005/11/16 01:25:09 
　　└特別な操作は不要です。 白石和夫 2005/11/16 12:00:52 
　　　└ありがとうございました。無事に解決しまし... 初心者 2005/11/17 01:30:07

　　プリンタでの描画 初心者 2005/11/16 01:25:09  ツリーへ

プリンタでの描画 返事を書く

初心者 2005/11/16 01:25:09

プリンタで図形を描画した場合、図形を塗りつぶすにはどうしたらよいのでしょうか？

　　└特別な操作は不要です。 白石和夫 2005/11/16 12:00:52  ツリーへ

Re: プリンタでの描画 返事を書く

白石和夫 2005/11/16 12:00:52

特別な操作は不要です。
たとえば、
100 ! リサージュ図形の塗りつぶし
110 OPTION ANGLE DEGREES
120 DIM M(0 to 720,2)
130 GRAPHICS DEVICE PRINTER
140 SET WINDOW -1.2,1.2,-1.2,1.2
150 DRAW AXES
160 FOR t=0 TO 359
170 LET M(t,1)=SIN(3*t)
180 LET M(t,2)=COS(7*t+15)
190 NEXT t
200 MAT PLOT AREA,LIMIT 360:M
210 END
を実行すると、白黒に塗り分けられたリサージュ図形が印刷されます。
ただし、印刷はプリンタドライバの影響を受けるので、不具合があるときは、プリンタドライバを最新のものに変えるなどの対策が必要になります。

　　　└ありがとうございました。無事に解決しまし... 初心者 2005/11/17 01:30:07  ツリーへ

Re: 特別な操作は不要です。 返事を書く

初心者 2005/11/17 01:30:07

ありがとうございました。無事に解決しました。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

プリンタでの描画	返事を書く
初心者 2005/11/16 01:25:09
プリンタで図形を描画した場合、図形を塗りつぶすにはどうしたらよいのでしょうか？

Re: プリンタでの描画	返事を書く
白石和夫 2005/11/16 12:00:52
特別な操作は不要です。たとえば、 100 ! リサージュ図形の塗りつぶし 110 OPTION ANGLE DEGREES 120 DIM M(0 to 720,2) 130 GRAPHICS DEVICE PRINTER 140 SET WINDOW -1.2,1.2,-1.2,1.2 150 DRAW AXES 160 FOR t=0 TO 359 170 LET M(t,1)=SIN(3t) 180 LET M(t,2)=COS(7t+15) 190 NEXT t 200 MAT PLOT AREA,LIMIT 360:M 210 END を実行すると、白黒に塗り分けられたリサージュ図形が印刷されます。ただし、印刷はプリンタドライバの影響を受けるので、不具合があるときは、プリンタドライバを最新のものに変えるなどの対策が必要になります。

Re: 特別な操作は不要です。	返事を書く
初心者 2005/11/17 01:30:07
ありがとうございました。無事に解決しました。