HSPTV!掲示板

buffer 1,580,1
color 80,80,80:boxf
screen 2,1000,10
repeat 240,255
pos cnt-6,1
gmode 3,,,cnt/16:gcopy 1,0,0,cnt-6,1
pos cnt-255,1
gmode 3,,,(cnt-255)/4:gcopy 1,0,0,cnt,1
cn=cnt-140
if cnt>140:pos 620,570:gmode 3,,,cn/16:gcopy 1,0,0,cn-6,1
loop

screen 2以降の記述をできるだけ簡単に書きなおすことはできますか？

グラデーションを描きたいならgradf命令があります。

>ht.さん
グラデーションを描くのではなく、先っぽをだんだん半透明にしたいです。

Artlet2Dのグラデーション機能をうまく使えばいけるかもね。
透明度をグラデーションするような感覚で。

どうしたいのかわかりませんが使えたらどうぞ

	#const pai 3.141592

	#const pai2 pai*2
	#const kaku pai2/360
	
	buffer 2,720,10 : cls 4
	x=0 : y=0	
	repeat 360
	
	color g, g, g
	boxf x,5,x+4,7
	
	x=x+4
	g=256.0*sin(kaku*cnt)
	
	loop
	
	screen 0,720.480 : cls 4
	
	pos 0,100
	gmode 0:gcopy 2,0,0,720,10
	
	stop