新しく発言する EXIT インデックスへ
線が一筆書きのようにならないようにしたい
　　線が一筆書きのようにならないようにしたい アンパンマン 2006/04/21 11:13:25 
　　└途中にPLOTLINESを入れることによって解決し... アンパンマン 2006/04/21 12:07:44 

　　線が一筆書きのようにならないようにしたい アンパンマン 2006/04/21 11:13:25  ツリーへ

線が一筆書きのようにならないようにしたい 返事を書く
アンパンマン 2006/04/21 11:13:25
口と眉毛の線を太くして、アンパンマンを描きたいのですが、
口と眉毛の線を太くすると一筆書きのようになってしまいます。
セミコロンを入れなければ、一筆にはならないのですが、
線が細くなってしまいます。
どのようにすれば、太く描けるのでしょうか。
パソコンは、windows2000です。

REM アンパンマン
SET WINDOW -200,200,-200,200
DRAW grid(20,20)
OPTION ANGLE DEGREES
RANDOMIZE

DECLARE EXTERNAL PICTURE anpanman
FOR y=-200 TO 200 STEP 80
FOR x=-200 TO 200 STEP 80
LET col=RND*100+2
DRAW anpanman(col) WITH SCALE(0.15)*ROTATE(RND*360+1)*SHIFT(x,y)
NEXT x
NEXT y
END

EXTERNAL PICTURE anpanman(col)

SET LINE COLOR 10
DRAW circle WITH SCALE(120)*SHIFT(0,0)

SET AREA COLOR col
DRAW disk WITH SCALE(120)*SHIFT(0,0)

SET AREA COLOR 4
DRAW disk WITH SCALE(40)*SHIFT(-80,0)

DRAW disk WITH SCALE(40)*SHIFT(0,0)

DRAW disk WITH SCALE(40)*SHIFT(80,0)

OPTION ANGLE DEGREES

SET LINE COLOR 1
SET LINE WIDTH 3
FOR l=180 TO 360
PLOT LINES :60*COS(l)+0,30*SIN(l)-60;

NEXT l

SET LINE COLOR 1
SET LINE WIDTH 3
FOR k=0 TO 180
PLOT LINES :30*COS(k)-40,50*SIN(k)+60;
NEXT k

SET LINE COLOR 1
SET LINE WIDTH 3
FOR j=0 TO 180
PLOT LINES :30*COS(j)+40,50*SIN(j)+60;
NEXT j

SET AREA COLOR 1
FOR a=0 TO 360
PLOT LINES :10*COS(a)-40,30*SIN(a)+60
NEXT a
paint -40,+60

SET AREA COLOR 1
FOR s=0 TO 360
PLOT LINES :10*COS(s)+40,30*SIN(s)+60
NEXT s
paint +40,+60
END PICTURE


 

　　└途中にPLOTLINESを入れることによって解決し... アンパンマン 2006/04/21 12:07:44  ツリーへ

Re: 線が一筆書きのようにならないようにしたい 返事を書く
アンパンマン 2006/04/21 12:07:44
途中に　PLOT LINES を入れることによって解決しました。
お騒がせしました。

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