課題立体感のある球(pdfファイル)

立体感のある球
課題
立体感のある球
円の中心 (x,y)と半径 rを少しずつ変化させることにより立体感のある球を描画
する。 rmaxは半径の最大値。
r
x 2 + y 2 +r ≦ rm ax
y
x
rmax
● プログラム（ KA641.bas)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
' << KA641.bas >>
' 立体感のある球
'
' グラフック画面の背景色を白に設定。
BackColor="White"
' グラフィック画面のサイズ（縦 200ピクセル、横 200ピクセル）を設定。
GScreen(300,300)
' 座標の設定。画面左下隅の座標を (-1.2,-1)、右上隅の座標を (1,1.2)
' とする。
Window(-1.2,-1)-(1,1.2)
MathGraph On
'
' 初期設定。
' 中心 (X,Y),最大半径 RMAX,半径 Rの設定。
X=0: Y=0: RMAX=0.8: R=RMAX
' 中心 x座標の移動量 DX，中心 y座標の移動量 DY、半径 Rの変化量 DR。
DX=0.02: DY=0.04: DR=0.04
'
' 球の描画。
While R > 0
If Sqr(X*X+Y*Y)+R < RMAX Then
ForeColor="Black"
Circle(X,Y),R: ' (X,Y)を中心とする半径 Rの円を黒色で描く。
EndIf
'
' 移動量、変化量の更新。
DX=DX*0.8
- 1 -
立体感のある球
30
31
32
33
34
35
36
37
DY=DY*0.9
DR=DR*1.1
' 中心、半径の更新。
X=X+DX
Y=Y+DY
R=R-DR
Wend
End
実行結果
グラフィック画面の点 (x,y)の色を指定するには、 RGB値（ #RRGGBBの形）
を使う方法がある。 RR,GG,BBは、それぞれ 16進数で 00～ FFの値をもつ。
#RRGGBBは， #000000から #FFFFFFの値を取る。
最初の 2桁 16進数は Red(赤 )の輝度， 2番目の 2桁 16進数は Green(緑 )の輝度，
最後の 2桁 16進数は Blue(青 )の輝度を表す。
色
Black
Navy
Green
Teal
Maroon
Purple
Olive
Silver
Gray
Blue
Lime
Cyan
Red
Fuchsia
Yellow
White
RGB値
#000000
#000080
#008000
#008080
#800000
#800080
#808000
#C0C0C0
#808080
#0000FF
#00FF00
#00FFFF
#FF0000
#FF00FF
#FFFF00
#FFFFFF
- 2 -
立体感のある球
● プログラム（ KA642.bas)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
' << KA642.bas >>
' 立体感のある球
'
' グラフック画面の背景色を白に設定。
BackColor="White"
' グラフィック画面のサイズ（縦 200ピクセル、横 200ピクセル）を設定。
GScreen(300,300)
' 座標の設定。画面左下隅の座標を (-1,-1)、右上隅の座標を (1,1)とする。
Window(-1.2,-1)-(1,1.2)
MathGraph On
'
' 初期設定。
' 中心 (X,Y),最大半径 RMAX,半径 Rの設定。
X=0: Y=0: RMAX=0.8: R=RMAX
' 中心 x座標の移動量 DX，中心 y座標の移動量 DY、半径 Rの変化量 DR。
DX=0.02: DY=0.04: DR=0.04
'
' 色の初期値入力。
Input"赤の輝度初期値 (0～ 255[0])";RED$
If RED$ = "" Then RED$="0": RED=0 Else RED=Val(RED$)
Input"赤の輝度増分 (0～ 255[0])";RI$
If RI$ = "" Then RI$="0": RI=0 Else RI=Val(RI$)
Input"緑の輝度初期値 (0～ 255[0])";GREEN$
If GREEN$ = "" Then GREEN$="0": GREEN=0 Else GREEN=Val(GREEN$)
Input"緑の輝度増分 (0～ 255[0])";GI$
If GI$ = "" Then GI$="0": GI=0 Else GI=Val(GI$)
Input"青の輝度初期値 (0～ 255[0])";BLUE$
If BLUE$ = "" Then BLUE$="0": BLUE=0 Else BLUE=Val(BLUE$)
Input"青の輝度増分 (0～ 255[0])";BI$
If BI$ = "" Then BI$="0": BI=0 Else BI=Val(BI$)
'
' パラメータの表示。
GLocate(-1.2,1.15): W$="立体感のある球 ": Gprint W$
GLocate(-1.2,1.05): W$="赤の輝度 "+RED$+" 増分 "+RI$: Gprint W$
GLocate(-1.2,0.95): W$="緑の輝度 "+GREEN$+" 増分 "+GI$: Gprint W$
GLocate(-1.2,0.85): W$="青の輝度 "+BLUE$+" 増分 "+BI$: Gprint W$
'
' 球の描画。
While R > 0
If Sqr(X*X+Y*Y)+R < RMAX Then
W=(RED*2^16+GREEN*2^8+BLUE)+2^24
W$=Right$(Hex$(W),6): ' 関数 Hex$(W)で Wの値を 16進数の文字列に
' 変換する。
ForeColor="#"+W$
Circle(X,Y),R: ' (X,Y)を中心とする半径 Rの円を前景色で描く。
- 3 -
立体感のある球
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Paint(X,Y):
' (X,Y)を含む境界色で囲まれた領域を前景色で塗りつぶす。
EndIf
'
' 移動量、変化量の更新。
DX=DX*0.8
DY=DY*0.9
DR=DR*1.1
' 色の輝度を増加する。
RED=(RED+RI) Mod 256
GREEN=(GREEN+GI) Mod 256
BLUE=(BLUE+BI) Mod 256
' 中心、半径の更新。
X=X+DX
Y=Y+DY
R=R-DR
Wend
End
- 4 -

Download Report