プロデルでマンデルブロ集合を描画する

C実数=-0.2
C虚数=0.5
最大カウント=4096
表示幅=400
メイン画面を表示する

描画する
待機する

描画する手順
cという複素数を作る
サイズは、400
ステップは、サイズ/4
写真という画像(サイズ,サイズ)を作る
0からサイズ-1まで横に繰り返す
	cの実数=横/ステップ-2.0
	0からサイズ-1まで縦に繰り返す
		cの虚数=縦/ステップ-2.0
		【z:複素数】
		zという複素数を作る
		カウント=0
		繰り返す
			z=zの二乗にcを足したもの
			値=zの絶対値の二乗
			カウントを増やす
			カウントが最大カウントより大きければ
				カウント=-1
				繰り返しから抜け出す
			そして
			値が4以上なら
				繰り返しから抜け出す
			そして
		そして
		カウントが0以上なら
			写真にて{横,縦}へ[カウントと64で、色変換する]を設定する
			//図形描画によってメイン画面のピクチャー1の{横,縦}へ[カウントと64で、色変換する]色で点を描く
		そして
	そして
そして
メイン画面のピクチャー1の画像は、写真

終わり

【カウント:整数】と、【基数:整数】で、色変換する手順
	カウントが0未満なら黒を返す
	【d:整数】=カウント%基数
	d=d*(256/基数)
	【m:整数】=d/42.667
	mについて分岐
	0の場合
		r=0。g=6*d。b=255
	1の場合
		r=0。g=255。b=255-6*(d-43)
	2の場合
		r=6*(d-86)。g=255。b=0
	3の場合
		r=255。g=255-6*(d-129)。b=0
	4の場合
		r=255。g=0。b=6*(d-171)
	5の場合
		r=255-6*(d-214)。g=0。b=255
	他の場合
		r=0。g=0。b=0
	そして
	rが0未満ならr=0
	rが256以上ならr=255
	gが0未満ならg=0
	gが256以上ならg=255
	bが0未満ならb=0
	bが256以上ならb=255
	【C:色情報】は{r,g,b}
	Cを返す
終わり

複素数とは
	+実数=0.0
	+虚数=0.0
	はじめの手順
	終わり
	はじめ(実数,虚数)の手順
		この実数は、実数
		この虚数は、虚数
	終わり
	自分に【相手:複素数】を足す手順
		複素数(実数+相手の実数,虚数+相手の虚数)を作って返す
	終わり
	自分に【相手:複素数】を掛ける手順
		複素数(実数*相手の実数-虚数*相手の虚数,実数*相手の虚数+虚数*相手の実数)を作って返す
	終わり
	共役を求める手順
		複素数(実数,-虚数)を作って返す
	終わり
	二乗を求める手順:複素数
		複素数(実数*実数-虚数*虚数,2*実数*虚数)を作って返す
	終わり
	三乗を求める手順
		複素数(実数*(実数*実数-3*虚数*虚数),虚数*(3*実数*実数-虚数*虚数))を作って返す
	終わり
	絶対値の二乗を求める手順:整数
		実数*実数+虚数*虚数を返す
	終わり

終わり


メイン画面とは
	ウィンドウを受け継ぐ
	+ピクチャー1
	
	はじめの手順
	初期化する
	ーー貼り付けた部品に対する操作をここに書きます
終わり
	初期化する手順
		ーー自動生成された手順です。ここに書き加えたプログラムは消える可能性があります
		初期化開始する
		この実質大きさは{678,644}
		この内容は「マンデルブロ集合」
		この文字色は「標準の文字」
		ピクチャー1というピクチャーを作る
		ピクチャー1を初期化開始する
			その位置と大きさは{0,0,678,644}
			その文字色は「標準の文字」
			そのドッキング方向は「全体」
		ピクチャー1を初期化終了する
		初期化終了する
		この設計スケール比率は{144,144}
	終わり
終わり