home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
planet
/
planet.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1980-01-02
|
7KB
|
441 lines
cdplay 0
waitstart
16disp 1
pointdisp 1
setzoom 10
dispmode 0
areadisp 0
keidodisp 0
sekidisp 0
setheight 90
setmag 60
setobs 13950, 3540
settime 18:01:00
setdate 1990 12 31
setdirection 0
milkyway 1
run 0
disp 10, 438, "★冬の夜空を眺めながら「HYPER PLANET」をご説明しましょう。"
disp 203, 438, "HYPER PLANET"
wait 8
kankaku 0:10
run 8
disp 10, 421, "★32ビットCPUの本領をフルに発揮して"
disp 10, 438, " 全天に輝く7等星までの星々(約1万6千個)を完全高速シミュレートします。"
wait 23
run 6
wait 34
setmag 15
milkyway 0
run 0
disp 280, 421, "1等星まで"
wait 36
setmag 25
run 0
disp 280, 421, "2等星まで"
wait 38
setmag 35
run 0
disp 280, 421, "3等星まで"
wait 40
setmag 45
run 0
disp 280, 421, "4等星まで"
wait 42
setmag 55
run 0
disp 280, 421, "5等星まで"
wait 44
setmag 65
run 0
disp 280, 421, "6等星まで"
wait 46
setmag 70
run 0
disp 280, 421, "7等星まで"
wait 48
milkyway 1
run 5
disp 10, 438, "★星空の観測地は地球上の任意の場所を指定できます。"
setmag 60
wait 60
run 0
disp 296, 421, "東 京"
wait 62
run 4
setobs 7700, 3840
run 0
disp 232, 421, "アメリカ(ニューヨーク)"
wait 70
run 4
setobs 14910, -3510
run 0
disp 216, 421, "オーストラリア(キャンベラ)"
wait 78
run 4
setobs 0, -9000
run 0
disp 296, 421, "南 極"
wait 86
run 4
setobs 10350, 120
run 0
disp 272, 421, "シンガポール"
wait 94
run 4
setobs 14000, 3539
seipict 1, 0
seipict 1, 1
seipict 1, 2
seipict 1, 3
seipict 1, 4
seipict 1, 5
seipict 1, 6
seipict 1, 7
seipict 1, 8
seipict 1, 9
seipict 1, 10
seipict 1, 11
seipict 1, 12
seipict 1, 13
seipict 1, 14
seipict 1, 15
seipict 1, 16
seipict 1, 17
seipict 1, 18
seipict 1, 19
seipict 1, 20
seipict 1, 21
seipict 1, 22
seipict 1, 23
seipict 1, 24
seipict 1, 25
seipict 1, 26
seipict 1, 27
seipict 1, 28
seipict 1, 29
seipict 1, 30
seipict 1, 31
seipict 1, 32
seipict 1, 33
seipict 1, 34
seipict 1, 35
seipict 1, 36
seipict 1, 37
seipict 1, 38
seipict 1, 39
seipict 1, 40
seipict 1, 41
seipict 1, 42
seipict 1, 43
seipict 1, 44
seipict 1, 45
seipict 1, 46
seipict 1, 47
seipict 1, 48
seipict 1, 49
seipict 1, 50
seipict 1, 51
seipict 1, 52
seipict 1, 53
seipict 1, 54
seipict 1, 55
seipict 1, 56
seipict 1, 57
seipict 1, 58
seipict 1, 59
seipict 1, 60
seipict 1, 61
seipict 1, 62
seipict 1, 63
seipict 1, 64
seipict 1, 65
seipict 1, 66
seipict 1, 67
seipict 1, 68
seipict 1, 69
seipict 1, 70
seipict 1, 71
seipict 1, 72
seipict 1, 73
seipict 1, 74
seipict 1, 75
seipict 1, 76
seipict 1, 77
seipict 1, 78
seipict 1, 79
seipict 1, 80
seipict 1, 81
seipict 1, 82
seipict 1, 83
seipict 1, 84
seipict 1, 85
seipict 1, 86
seipict 1, 87
wait 100
run 0
disp 10, 438, "★88ある星座の全て、もしくは任意の星座の名称や絵・線などを表示できます。"
seipict 0, 0
seipict 0, 1
seipict 0, 2
seipict 0, 3
seipict 0, 4
seipict 0, 5
seipict 0, 6
seipict 0, 7
seipict 0, 8
seipict 0, 9
seipict 0, 11
seipict 0, 12
seipict 0, 13
seipict 0, 14
seipict 0, 15
seipict 0, 17
seipict 0, 18
seipict 0, 19
seipict 0, 20
seipict 0, 21
seipict 0, 22
seipict 0, 23
seipict 0, 24
seipict 0, 25
seipict 0, 26
seipict 0, 27
seipict 0, 28
seipict 0, 29
seipict 0, 30
seipict 0, 31
seipict 0, 32
seipict 0, 33
seipict 0, 34
seipict 0, 35
seipict 0, 36
seipict 0, 37
seipict 0, 38
seipict 0, 39
seipict 0, 40
seipict 0, 41
seipict 0, 42
seipict 0, 43
seipict 0, 44
seipict 0, 45
seipict 0, 46
seipict 0, 47
seipict 0, 48
seipict 0, 49
seipict 0, 50
seipict 0, 51
seipict 0, 52
seipict 0, 53
seipict 0, 54
seipict 0, 55
seipict 0, 56
seipict 0, 57
seipict 0, 58
seipict 0, 59
seipict 0, 60
seipict 0, 61
seipict 0, 62
seipict 0, 63
seipict 0, 64
seipict 0, 65
seipict 0, 66
seipict 0, 67
seipict 0, 68
seipict 0, 69
seipict 0, 70
seipict 0, 71
seipict 0, 72
seipict 0, 73
seipict 0, 74
seipict 0, 75
seipict 0, 76
seipict 0, 77
seipict 0, 78
seipict 0, 79
seipict 0, 80
seipict 0, 81
seipict 0, 82
seipict 0, 83
seipict 0, 84
seipict 0, 85
seipict 0, 86
seipict 0, 87
seiname 1, 10
seiline 1, 10
seiname 1, 16
seiline 1, 16
wait 106
run 0
disp 10, 438, "★視野は全天モードから2.2゚×1.4゚の範囲まで指定可能です。"
setdirection 68
setheight 43
setzoom 20
wait 110
run 0
disp 284, 421, "143゚×91゚"
setzoom 24
wait 112
run 0
disp 284, 421, "120゚×75゚"
setzoom 36
wait 114
run 0
disp 288, 421, "80゚×51゚"
wait 115
pointdisp 1
setpoint 3:46, 24,1
gdisp 3:46, 24,1, "M45 プレアデス星団(昴)"
seipict 0, 10
seiname 0, 10
seiline 0, 10
seipict 0, 16
seiname 0, 16
seiline 0, 16
setdirection 93
setheight 41
setzoom 51
wait 117
run 0
disp 288, 421, "56゚×36゚"
setzoom 95
wait 119
run 0
disp 288, 421, "31゚×19゚"
setzoom 222
wait 121
dispmode 1
run 0
disp 284, 421, "13゚×8.2゚"
setzoom 444
wait 123
run 0
disp 280, 421, "6.5゚×4.1゚"
setzoom 667
setobs 14010, 3540
wait 125
run 0
disp 280, 421, "4.3゚×2.7゚"
wait 129
dispmode 0
setmag 50
setdirection 67
setheight 49
setzoom 24
run 0
disp 10, 438, "★シミュレータのモードを変えることにより、実際に見える星空の他にも"
seipict 1, 0
seiname 1, 0
seiline 1, 0
seipict 1, 1
seiname 1, 1
seiline 1, 1
seipict 1, 6
seiname 1, 6
seiline 1, 6
seipict 1, 9
seiname 1, 9
seiline 1, 9
seipict 1, 10
seiname 1, 10
seiline 1, 10
seipict 1, 11
seiname 1, 11
seiline 1, 11
seipict 1, 15
seiname 1, 15
seiline 1, 15
seipict 1, 16
seiname 1, 16
seiline 1, 16
seipict 1, 26
seiname 1, 26
seiline 1, 26
seipict 1, 33
seiname 1, 33
seiline 1, 33
seipict 1, 59
seiname 1, 59
seiline 1, 59
seipict 1, 61
seiname 1, 61
seiline 1, 61
seipict 1, 66
seiname 1, 66
seiline 1, 66
dispmode 1
sekidisp 1
oudodisp 1
wait 132
run 0
disp 10, 438, "★星座早見表のような表示にすることもできます。"
seipict 0, 0
seiname 0, 0
seiline 0, 0
seipict 0, 1
seiname 0, 1
seiline 0, 1
seipict 0, 6
seiname 0, 6
seiline 0, 6
seipict 0, 9
seiname 0, 9
seiline 0, 9
seipict 0, 10
seiname 0, 10
seiline 0, 10
seipict 0, 11
seiname 0, 11
seiline 0, 11
seipict 0, 15
seiname 0, 15
seiline 0, 15
seipict 0, 16
seiname 0, 16
seiline 0, 16
seipict 0, 26
seiname 0, 26
seiline 0, 26
seipict 0, 33
seiname 0, 33
seiline 0, 33
seipict 0, 59
seiname 0, 59
seiline 0, 59
seipict 0, 61
seiname 0, 61
seiline 0, 61
seipict 0, 66
seiname 0, 66
seiline 0, 66
dispmode 0
sekidisp 0
oudodisp 0
settime 4:01:00
setdirection 300
setheight 42
setmag 60
setzoom 20
wait 138
run 0
disp 10, 438, "★この他にも惑星や星雲・星団・流星群も表示できます。"
meteor 1
wait 141
run 0
disp 10, 438, "★四季の中でも一番賑やかな冬の星空を夜明けまでお楽しみください。"
wait 144
hosimode 1
kankaku 0:03
run 35
kankaku 0:02
run 10
kankaku 0:01
run 80