HSPTV!掲示板

HSPコードコンテスト勝手に開催。
これは汚く読みづらいHSPコードをあえて書き、その汚さを競うというコンテストです。
むろんただ汚ければよいというわけではありません。目にした瞬間のインパクト、
実行結果の美しさなど、さまざまな要因でアーティスティックなものを募集します。
HSPコードは

で囲みましょう。

みすったけど気にスンナ。

end

#define close(%1) end
close(this thread)

#define die(%1) end
die($00)

#module
#defcfunc abab str i,local am,local ab
	ab=i
	am=0
	repeat strlen(ab)
		am = am<<1:if peek(ab,cnt)='a':am|=1
	loop
	return am
#define abababab mes
#define ababababab pos
#define abababababab ginfo
#define global ctype ab_abab(%1) repeat abab(%1)
#define global ab_ababab loop
#define global abba = 
#define global ab_ab_ab color
#deffunc ab int ii,local ababab
	ababab=""
	poke ababab,abab(""),ii
	abababab ababab
	ab2+abababababab(abab("aaab"))
	ababababab ab2,ab3
	return
#global
ab3 abba abab("aaaabaa")
ab abab("abbabbb")
ab abab("aabbaba")
ab_abab("ab")
ab abab("aabaabb")
ab_ababab
ab abab("aabaaaa")
ab abab("abaabb")
ab abab("abbbbb")
ab abab("aaabaaa")
ab abab("aabaaaa")
ab abab("aaabbab")
ab abab("aabaabb")
ab abab("aabbabb")
ab abab("abbbba")

とりあえずこんなものでも...
はじめの図形が描かれてから約一秒で
次の図形を描き始めます。

boxf:for x,0,ginfo_winx:redraw 0:for y,0,ginfo_winy

hsvcolor x*x+y*y,255,255:pset x,y
next:redraw 1:next:wait 100:color
for x,ginfo_winx,-1,-1:redraw 0:line x,-1,x,ginfo_winy:redraw 1:next
for x,-1*(ginfo_winx/2),ginfo_winx/2:redraw 0:for y,ginfo_winy/2*-1,ginfo_winy/2
if (x*y)!=0:hsvcolor 191000/(x*y),255,255:pset x+ginfo_winx/2,y+ginfo_winy/2
next:redraw 1:next

tangentさんすげぇ。

むしろ俺はab氏のを評価する（笑
するったらする。

↓ ここを参考にしてみるといいぞ。
http://piza2.2ch.net/tech/kako/984/984182993.html
Cで書かれているがな・・・。

課題を出すぞ
"PUT ","GET ","RUN","QUIT"
を実装したプログラムを作れ
ランタイムhsp3cを使うこと
GET: 変数(val)に数を入力させる
PUT: 変数(val)の内容を出力する
RUN: execと同じ意味
QUIT: endと同じ意味

なんか指図されるのがむかつくｗ

というか漠然としすぎててどうしていいかわかんねぇ（笑い

このコンテストすげー