#!/usr/local/bin/tt

EXT_SHELL = "/bin/gnuplot -p 2> /dev/null"

# RBGファイルを生成して、GNUPLOTに表示させます。
# with rgbimage = 先頭からR/G/B(各1バイト)の繰り返し。暗い(0x00)〜明い(0xFF)。ヘッダー等は無し。
# with    image = 先頭から      各1バイト の繰り返し。暗い(0x00)〜明い(0xFF)。ヘッダー等は無し。
# ピクセルの順序は、ファイルの先頭から順に画像の下(左〜右)〜画像の上(左〜右)。
# > GNUPLOT上のY軸は下=0、上=ysize-1
# > GNUPLOT上のX軸は左=0、右=xsize-1

xsize = 256
ysize = 256

# 初期値データ(左=0x00〜右=0xFF)
ptr = alloc(xsize*ysize)
loop(y<ysize)
	loop(x<xsize)
		ptr[y*xsize+x] = x

# ノイズで乱す
loop(cnt<100){
	loop(y<ysize)
		loop(x<xsize)
			ptr[y*xsize+x] += urand()*10
	!plot '-' bin array=${xsize}x${ysize} format='%uchar' with image not
	write(EXT_SHELL,ptr,xsize*ysize)
}
