home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix Heaven Sunny 2
/
APPARE2.BIN
/
oh_towns
/
calendar
/
midori12
/
src
/
greet01.ray
< prev
next >
Wrap
Text File
|
1995-06-20
|
11KB
|
700 lines
/*
*
* "GREETINGS" greet01.ray
*
*/
#define snowHatBrimC blackC
#define snowHatCrownC blackC
#define snowEyeC blackC
#define snowArmC blackC
#define snowHandC blackC
#define tNeckC tMarrowC
#define tThighC tPodC
#define tShinC tPodC
#define tHatBrimC blackC
#define tHatCrownC blackC
#define tHatCoreC grayC
map_data
[
plain unyo02.tif 0 ; /* 地面用 */
shadows shadow_1.tif 0 ; /* 月と月の影用 */
LunaBump lunabump.tif 0 ; /* 月のバンプ用 */
]
rmode 0 ;
voxel 0 ;
anti 0 .2 ;
output GREET01.tif ;
output_mode 16 0 ;
back_mode 0 0 0 0 ;
condition 5 1e-2 1e-4 0 ;
shadow 0 ;
mist 5000 1 ;
sky .18 .12 .36 ;
env .4 .4 .4 ;
display
640 480
0 0
639 479
1 1
1 ;
/* 320 240
0 0
319 239
1 1
1 ;
40 30
0 0
39 29
1 1
1 ;
*/
camera
-100 -380 100
-40 0 90
-40 0 1000
24 0 ;
e_light
[
1 -1 1 1 1 1 6 2 ;
]
/* ********** ********************* ********** */
color
[
plainC /* 地面の色 */
0 0 0 < plain 0.8 0 1.0 >
0 .4 0
0 0 0
1.0
0
0
0 .6 100 ;
discC /* 円盤(舞台)の色 */
.2 .2 .2
.4 .4 .4
0 0 0
1.0
0
0
0 .6 120 ;
discFlankC /* 円盤の側面の色 */
.8 .8 .8
0 0 0
0 0 0
1.0
0
0
0 .6 120 ;
discNoReflectC /* 円盤(背景)の色 */
0 0 0
.3 .3 .3
0 0 0
1.0
0
0
0 .6 120 ;
LunaC /* 月の色 */
0 0 0 < shadows 1.0 1 -160 160 160 -160
-160 160 160 -160 >
0 0 0
0 0 0
1.0
0
4.0 < LunaBump 1.0 1 -160 160 160 -160
-160 160 160 -160 >
0 .6 10 ;
snowC /* 雪の色 */
.8 .8 .8
0 0 0
0 0 0
1.0
0
0
0 .6 200 ;
snowNoseC /* 雪だるまの鼻の色 */
.9 .4 .0
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
boaterStrawC /* 帽子の麦の色 */
.8 .6 .4
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
boaterBandC /* 帽子のバンドの色 */
.4 .8 .9
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
snowButtonC /* 雪だるまのボタンの色 */
.8 .0 .2
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
fStalkC /* 花の茎の色 */
.1 .4 .35
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
fLeafC /* 花の葉の色 */
.1 .4 .4
0 0 0
0 0 0
1.0
0
0
0 .6 18 ;
fPistilC /* 雌蘂の色 */
.8 .8 .1
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
fPetalC /* 花びらの色 */
.9 .2 .0
0 0 0
0 0 0
1.0
0
0
0 .6 180 ;
blackC /* 黒色 */
.2 .2 .2
0 0 0
0 0 0
1.0
0
0
0 .6 18 ;
grayC /* 灰色 */
.4 .4 .4
0 0 0
0 0 0
1.0
0
0
0 .6 100 ;
tHeadC /* T4の頭の色 */
.1 .3 .5
.1 .1 .1
.3 .3 .3
1.0
0
0
0 .6 200 ;
tHeadoldC /* T4の頭の色 昔の */
0 0 0
.3 .3 .3
.6 .7 .95
1.0
18000
0
0 .6 100 ;
tMarrowC /* T4の脊椎の色 */
.8 .4 .6
0 0 0
0 0 0
1.0
0
0
0 .6 200 ;
tWaistC /* T4の腰の色 */
.5 .5 .4
0 0 0
0 0 0
1.0
0
0
0 .6 160 ;
tHandC /* T4の腕の色 */
.6 .6 .5
0 0 0
0 0 0
1.0
0
0
0 .6 180 ;
tPodC /* T4の足の色 */
.2 .8 .4
0 0 0
0 0 0
1.0
0
0
0 .6 180 ;
tKneeC /* T4の膝の色 */
.8 .2 .3
0 0 0
0 0 0
1.0
0
0
0 .6 200 ;
]
/* ********** ********************* ********** */
obj [
plain ; /* 地面 */
stages ; /* 舞台 */
snowMans ; /* 雪だるま */
T4s ; /* T4バクテリオファージ */
]
/* ********** ********************* ********** */
obj plain /* 地面定義 */
[ :mz-40
1 plainC 1 0 0 0 0 0 1 n ;
]
/* ********** ********************* ********** */
obj stages /* 舞台定義 */
[ :mx-60
Luna ; /* 月 */
prom ; /* 円盤 */
]
obj Luna /* 月の定義 */
[ :mx-40 :mz200
[ :my240 :rx90
3 LunaC 1 0 0 0 160 160 8 ;
]
]
obj prom /* 円盤の並びを傾ける */
[
:rz10 discs ;
]
#define discArray :rz20 :ry-6 :sy.9 :sx.9
obj discs /* 円盤の並び */
[ :my1000
[
disc ; /* 舞台 */
:mz20 discArray discNoReflect ; /* 背景 */
:mz40 discArray discNoReflect ; /* 背景 */
:mz60 discArray discNoReflect ; /* 背景 */
:mz80 discArray discNoReflect ; /* 背景 */
:mz100 discArray discNoReflect ; /* 背景 */
]
]
obj disc /* 円盤の定義 舞台用 */
[ :my-1000
15 :mz-4 discC 1 0 0 0 0 0 1 180 4 n
r discFlankC ;
]
obj discNoReflect /* 円盤の定義 背景用 */
[ :my-1000
15 :mz-4 discNoReflectC 1 0 0 0 0 0 1 180 4 n
r discFlankC ;
]
/* ********** ********************* ********** */
obj snowMans /* 雪だるまの位置 */
[
:mx-130 :rz40 snowMan ;
]
obj snowMan /* 雪だるまの構成 */
[ :mz-16
snowHeads ; /* 頭 */
snowBodys ; /* 胴体 */
]
/* ********** ********** */
obj snowHeads /* 雪だるまの頭の構成 */
[ :mz70
snowHats ; /* 帽子 */
snowHead ; /* 頭 */
snowFace ; /* 顔 */
]
obj snowHats /* 帽子の位置 */
[ :rz40 :ry10 :mz-4 :mz24
snowHat ;
]
obj snowHat /* 帽子の構成 */
[ :ry10
snowHatBrim ; /* つば */
snowHatCrown ; /* 胴 */
snowHatBand ; /* バンド */
snowHatCore ; /* 中空部 */
]
obj snowHatBrim /* つばの定義 */
[ :mz1
15 boaterStrawC 1 0 0 0 0 0 1 18 1 ;
]
obj snowHatCrown /* 胴の定義 */
[ :mz4
15 boaterStrawC 1 0 0 0 0 0 1 11.0 4 ;
]
obj snowHatBand /* バンドの定義 */
[ :mz4.0
15 boaterBandC 1 0 0 0 0 0 1 11.1 2.1 ;
]
obj snowHatCore /* 中空部の定義 */
[ :mz3
15 boaterStrawC -1 0 0 0 0 0 1 9.5 3.05 n ;
]
obj snowHead /* 頭の定義 */
[
2 snowC 1 0 0 0 24 ;
]
obj snowFace /* 顔の構成 */
[
snowEyes ; /* 目 */
snowNose ; /* 鼻 */
]
obj snowEyes /* 目の位置 */
[ :rx-30
[ :rz18 snowEye ; ]
[ :rz-18 snowEye ; ]
]
obj snowEye /* 目の定義 */
[ :my-24
2 snowEyeC 1 0 0 0 4 ;
]
obj snowNose /* 鼻の定義 */
[ :rx-20 :my-24
3 snowNoseC 1 0 0 0 3 8 3 ;
]
/* ********** ********** */
obj snowBodys /* 雪だるま胴体の構成 */
[ :mz40
snowBody ; /* 胴体 */
snowArms ; /* 左右の腕 */
snowButtons ; /* 三つのボタン */
]
obj snowBody /* 胴体の定義 */
[
2 snowC 1 0 0 0 30 ;
]
obj snowArms /* 左右の腕の位置 */
[
[ :rx-50 :rz36 :my-30 snowLeftArm ; ] /* 左腕 */
[ :rx-50 :rz-36 :my-30 snowRightArm ; ] /* 右腕 */
]
obj snowLeftArm /* 左腕の構成 */
[
snowArmWithFlower ;
]
obj snowRightArm /* 右腕の位置 */
[
snowArm ;
]
obj snowArmWithFlower /* 左腕の位置 花を持つ */
[
snowArm ; /* 腕 */
:my-32 :rx60 :ry-30 flowers ; /* 花 */
]
obj flowers /* 花の構成 */
[ :mz10
fStalks ; /* 茎 */
fPistil ; /* 雌蘂 */
fPetals ; /* 花びら */
]
obj fStalks /* 茎の構成 */
[
fStalk ; /* 茎 */
fLeaves ; /* 二枚の葉 */
]
obj fStalk /* 茎の定義 */
[
15 fStalkC 1 0 0 0 0 0 1 1.2 20 ;
]
obj fLeaves /* 二枚の葉の位置 */
[
[ :rz30 :mz0 fLeaf ; ]
[ :rz-150 :mz10 fLeaf ; ]
]
obj fLeaf /* 葉の定義 */
[ :rx10 :my-1.4 :my-6.0
3 fLeafC 1 0 0 0 1.8 6.0 1.0 ;
]
obj fPistil /* 雌蘂の定義 */
[ :mz20
3 fPistilC 1 0 0 0 4.0 4.0 1.6 ;
]
obj fPetals /* 花びらの位置 */
[ :mz20 :rz20
fPetal ;
:rz60 fPetal ;
:rz60 fPetal ;
:rz60 fPetal ;
:rz60 fPetal ;
:rz60 fPetal ;
]
obj fPetal /* 花びらの定義 */
[ :my-3.6 :rx-16
3 fPetalC 1 0 0 0 1.8 8.0 1.2 ;
]
obj snowArm /* 雪だるまの腕の定義 */
[ :my-16
15 :rx90 snowArmC 1 0 0 0 0 0 1 2.8 16 ;
2 :my-16 snowHandC 1 0 0 0 2.8 n ;
]
obj snowButtons /* 雪だるまのボタンの位置 */
[ :rx64
snowButton ;
:rx16 snowButton ;
:rx16 snowButton ;
]
obj snowButton /* 雪だるまのボタンの定義 */
[ :mz30
2 snowButtonC 1 0 0 0 2.0 ;
]
/* ********** ********************* ********** */
obj T4s /* T4の位置 */
[
:rz15 T4 ;
]
obj T4 /* T4の構成 */
[ :mz90
tBodys ; /* T4胴体 */
tWaist ; /* T4腰 */
tHands ; /* T4腕 */
tPods ; /* T4足 */
tHeads ; /* T4頭 */
]
/* ********** ********** */
obj tBodys /* T4胴体の構成 */
[
tNeck ; /* T4首 */
tMarrows ; /* T4脊椎 */
]
obj tNeck /* T4首の定義 */
[ :mz1
3 tNeckC 1 0 0 0 4.5 4.5 3 ;
]
obj tMarrows /* T4脊椎の位置 */
[
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
:mz-4 tMarrow ;
]
obj tMarrow /* T4脊椎の定義 */
[
3 tMarrowC 1 0 0 0 4 4 2.4 ;
]
/* ********** ********** */
obj tWaist /* T4腰の定義 */
[ :mz-40
15 tWaistC 1 0 0 0 0 0 1 10 2.0 ;
]
/* ********** ********** */
obj tHands /* T4腕の位置 */
[ :mz1
tHand ;
:rz60 tHand ;
:rz60 tHand ;
:rz60 tHand ;
:rz60 tHand ;
:rz60 tHand ;
]
obj tHand /* T4腕の定義 */
[ :rx16 :my-10 :rx90
15 tHandC 1 0 0 0 0 0 1 1.6 10 ;
]
/* ********** ********** */
obj tPods /* T4足の位置 */
[ :mz-39
tPod ;
:rz60 tPod ;
:rz60 tPod ;
:rz60 tPod ;
:rz60 tPodwithHat ; /* 帽子を持つ */
:rz60 tPod ;
]
obj tPod /* T4足の構成 */
[
[ :my-6
[ :rx-20 tThigh ; /* 腿 */
[
:my-55 tKnee ; /* 膝 */
:rx93 tShin ; /* 脛 */
]
]
]
]
obj tPodwithHat /* T4足の構成 帽子を持つ */
[
[ :my-6
[ :rx20 tThigh ; /* 腿 */
[
:my-60 tKnee ; /* 膝 */
:rx-120 tShin ; /* 脛 */
:my-70 tHat ; /* 帽子 */
]
]
]
]
obj tHat /* 帽子の構成 */
[ :my-16 :ry20 :rx-20 :rx180
{
[
tHatBrim ; /* つば */
tHatCrown ; /* 胴 */
]
tHatCore ; /* 中空部 */
}
]
obj tHatBrim /* つばの定義 */
[ :mz1
15 tHatBrimC 1 0 0 0 0 0 1 18 1 b tHatCoreC ;
]
obj tHatCrown /* 胴の定義 */
[ :mz8
15 tHatCrownC 1 0 0 0 0 0 1 12 9.0 ;
]
obj tHatCore /* 中空部の定義 */
[ :mz4
15 tHatCoreC -1 0 0 0 0 0 1 11 4.05 n ;
]
obj tThigh /* T4腿の定義 */
[ :my-30 :rx90
15 tThighC 1 0 0 0 0 0 1 2.4 30 ;
]
obj tKnee /* T4膝の定義 */
[
2 tKneeC 1 0 0 0 3.6 ;
]
obj tShin /* T4脛の定義 */
[ :my-36 :rx90
15 tShinC 1 0 0 0 0 0 1 2.4 36 ;
]
/* ********** ********** */
obj tHeads /* T4の頭の位置 */
[
:ry-16 tHead ;
]
obj tHead /* T4の頭の定義 */
[
20 tHeadC 1
<
/* top */
p1 0 0 60
/* temple clockwise */
p2 0 20 45
p3 16 10 45
p4 16 -10 45
p5 0 -20 45
p6 -16 -10 45
p7 -16 10 45
/* jaw clockwise */
p8 10 16 15
p9 20 0 15
p10 10 -16 15
p11 -10 -16 15
p12 -20 0 15
p13 -10 16 15
/* bottom */
p14 0 0 0
/* top clockwise */
P 1 2 3 ;
P 1 3 4 ;
P 1 4 5 ;
P 1 5 6 ;
P 1 6 7 ;
P 1 7 2 ;
/* middle clockwise */
P 2 8 13 ;
P 2 3 8 ;
P 3 9 8 ;
P 3 4 9 ;
P 4 10 9 ;
P 4 5 10 ;
P 5 11 10 ;
P 5 6 11 ;
P 6 12 11 ;
P 6 7 12 ;
P 7 13 12 ;
P 7 2 13 ;
/* bottom clocdwise */
P 14 13 8 ;
P 14 8 9 ;
P 14 9 10 ;
P 14 10 11 ;
P 14 11 12 ;
P 14 12 13 ;
> ;
]