星空つづり

星空・天体写真などの記録を綴るブログ

<< December 2016 | 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 >>

2016.07.15 Friday

BOUNDS - IchigoJam BASIC 作例-1

IchigoJam BASIC による作例 01 「BOUNDS」 です。

 

 

細かな説明はしませんが、このプログラムの概要は次のとおり。

 

1)枠の描画(VIDEO出力のON-OFFにて高速化)

2)二つの玉がランダムな位置に出現

3)枠内をバウンドしながら動く

4)当たり判定して、二つの玉がぶつかったら 2)へ

※最上部にCORとして、ぶつかったカウントを表示

 

▼ソース

10 'BOUNDS
20 CLS : LOCATE 0,0
30 PRINT "<< BOUNDS >>"
40 GORUB 210 : C=0
50 X=RND(20)+4 : Y=RND(14)+4
60 A=RND(20)+4 : B=RND(14)+4
70 M=1 : N=1
80 0=-1 : P=-1
90 LOCATE X,Y : PRINT "*"
100 LOCATE A,B : PRINT "*"
110 IF X=1 OR X=30 M=-M : BEEP 10,2
120 IF A=1 OR A=30 O=-O : BEEP 10,2
130 IF Y=2 OR Y=20 N=-N : BEEP 5,2
140 IF B=2 OR B=20 P=-P : BEEP 5,2
150 IF ((X-A)*(X-A))<2 AND ((Y-B)*(Y-B))<2 GOTO 360
160 LOCATE X,Y : PRINT " "
170 LOCATE A,B : PRINT " "
180 X=X+M : Y=Y+N
190 A=A+O : B=B+P
200 GOTO 90
210 REM ---- SUB WINDOW
220 VIDEO 0
230 FOR X=0 TO 31
240 FOR Y=1 TO 21
250 LOCATE X,Y : PRINT "*"
260 NEXT : NEXT
270 FOR X=1 TO 30
280 FOR Y=2 TO 20
290 LOCATE X,Y : PRINT " "
300 NEXT : NEXT
310 VIDEO 1 : WAIT 60
320 RETURN
330 LOCATE X,Y : ?"X"
340 LOCATE A,B : ?"X"
350 C=C+1
360 LOCATE 18,0 : ?"COR:";C
370 BEEP 100,100 : WAIT 120
380 LOCATE X,Y : ?" "
390 LOCATE A,B : ?" "
400 GOTO 50


2016.07.12 Tuesday

ichigoJam

BASICで遊べるIchigoJamを遊んでみた。

小さなボードに収まった結構遊べそうなボードである。

Apple-BASICやN-BASICなどで初めて触れたプログラミングの世界を体験した人には懐かしいはず。

自分で半田付けするパーツキットで1500円、完成品で2000円という価格もうれしい。

 

IchigoJAM BASIC は先のBASICより遙かにコマンドが少ない上、1プログラムの記憶(保存)容量が1024Byteという制約の中でいかに無駄のないアルゴリズムで遊ぶかという点が逆におもしろいボードだ。

 

ボードに、別途用意した、キーボード、ビデオコードでTVに接続、USB-5Vによる給電を行うだけで使える。

キーボードはPS2端子だが、USB変換を入れても大丈夫。

 

IchigoJam BASIC のコマンドリファレンスはB5版の両面一枚のみ。4ポイントくらいじゃないかと思うほどの小さな文字で書かれているので老眼持ちの私には虫眼鏡がいるレベルだ(笑)

 

ichigojam01

 

 

BASICで遊ぶことを目的とするなら大して書くことはないが、電子工作に結びつけて遊べばかなり活用の道がありそう。
ボードの価格からすると、私はそちらのほうに価値を感じる。
百円程度からあるPICマイコンでデジタル回路を組んで作るようなものでも、PICライターや環境の整備などの準備を考えると、ライターなしで、それも単純なBASICで同じような回路組みができそうなIchigoJamは興味がわくところ。
1024byteのプログラム3本がボードで保存できるが、一本(0番保存)のプログラムは、基板上のPUSHボタンを押しながら、電源用のスライドスイッチを入れることで、オードロード&ランできるので、直結加工すれば、キーボードやモニタなし状態で固定プログラムによる利用も可能だ。
ichigojam02


メインのチップには入力4、出力6のピンが未使用の状態であり、各ピンの入出力はBASICにて可能だ。

入力ピンの一部はアナログ入力にも対応しているピンがあるようだが、まだ実際に試していないので今はとどめておく。

デジタル出力PINは20mAの通常のLEDなら点灯できる電流を流せるようで、このあたりもPICと変わらないようだ。

 

なにせ、簡単にBASICを遊べて、ライターなしでデジタル制御回路にも使えるボードの可能性は、少しうきうきする。

次回は、既にBASICで組んだ簡単なお遊びプログラムを紹介する・・予定。

 


2016.05.05 Thursday

夏の星野

岡山アストロクラブの仲間と集まって美作市へ撮影に。
所用があって現地に入ったのは深夜をはるかに過ぎた頃だった。
ちょうどさそりも南中を少し過ぎた頃で、天の川を見るにはよい時間だった。

<さそり座>
Canon EOS6D SEO-SP2 / ISO-1600 / F4.0 / 50mm / 120sec x 4
Leesoft #2
<いて座>
Canon EOS6D SEO-SP2 / ISO-2000 / F4.0 / 50mm / 90sec x 4
Leesoft #2 / 2モザイク
グリーンから黄色へと変化する一筋、みずがめ座η群の流星も飛び込んでくれた。

2016.04.20 Wednesday

火星最接近まであと一か月と少し

5月31日の火星の地球最接近(中接近)まであと一か月と少し。
さそり座のアンタレス、土星と共演中の火星を、自宅からスナップ。
 
なかなか山奥へは撮影に出かけられない状況が続いている。
一度は拡大で火星を撮っておきたいんだが・・

2016.04.05 Tuesday

京都 伏見稲荷大社

娘が東京へお引越し、その道中、夜の伏見稲荷に立ち寄った。
深夜だったせいか桜の時期にもかかわらず観光客はほぼ皆無。


 

 

2016.04.02 Saturday

国立天文台岡山天体物理観測所 2016 春の特別観望会

国立天文台岡山天体物理観測所 2016春の特別観望会にお邪魔しました。
今回は昨年岡山アストロクラブの提案名で命名していただいた おおぐま座の系外惑星系の主星インテルクルース(惑星アルカス)を観望対象とされるとのことで、岡山アストロクラブから10名ほどをご招待いただいたので参加してきました。

シャトルバスで天文台に向かいます。
 
まずはエントランスになっている浅口市岡山天文博物館でプラネタリウム鑑賞。今夜観望会で見せていただける木星とインテルクルースについてのご案内や、オリジナル番組などを観覧させていただけました。

そして主砲188cmの望遠鏡のある国立天文台岡山物理観測所へ。
建設から50年とはいえ、最近では多くの系外惑星を発見されるなど、いまだに国内では研究の最前線の天文台です。
普段はガラス越しでしか見ることのできない施設の中へ。

改めて見るとその大きさは半端ないです。西はりまの2mよりも口径では劣るものの、遥かに巨大なドームとその望遠鏡に萌えました。

床が東西分離してせりあがり、観望の始まり。
この日は、あいにく薄雲にて、明るい木星だけを観望するということになりましたが十分満足です。


2016.03.17 Thursday

Canon EF-M 22mm F2.0 STM

以前現場に置き忘れてしまったEOS-M。先日キタムラさんでボディ10Kほどであったので即入手。
置き忘れEOS-Mの遺品レンズ EF-M 22mm F2.0 を取り付け久しぶりに使ってみたが、デカい一眼レフよりフットワークいいのは助かる。



F2.0開放で思いっきりボケ効かせてそのあたりを撮りまくり。
まずは、先日いただいたお花さま。

この画像ではわかりにくいが、ISO-1250(AUTO)だと若干ノイズが気になるな〜。特にぼけてるところなんか。

次は別の日に海岸で撮ったもの。まぁこんなもんかな。


2016.03.13 Sunday

3月の観望会

久しぶりの開始時刻から参加した、岡山アストロクラブの観望会。
冬の星たちが西の空に傾きかける春先ではあるが、夜はまだまだ冷えた。
 

 
東の空では北斗七星を抱える大熊が立派な姿を現していた。


2016.03.02 Wednesday

西に沈むオリオン(タイムラプス)

西に沈むオリオン座(タイムラプス) @岩倉にて

あんまり時間がなかったので尺短いっす。
今度はしっかり時間かけて撮る!


2016.01.10 Sunday

US10カタリナ彗星の動きほか

大芦高原にて

C/2013US10 カタリナ彗星のタイムラプス
動いている様子がちょっとだけわかります(^^;



かに座のカニミソことM44プレセペ星団
M44プレセペ
Takahashi epsiron-160 / Canon EOS6D - SEO-sp4 / ISO-1600 3min x4

これまでで一番さえないシーガル(いっかくじゅう座のわし星雲)
ISO-1600 4min x 12

 

▲top