HSPTV!掲示板

こんな芸術をHSPでやった方はいますでしょうか。
http://uguu.org/src_kanata_c.html

これで意味があるんだからすごいですね。。。。。。

単語の間に空白をいれてAAに見えるように調整しているだけだと思うけど
HSPは改行しないとラベルが使えなからまず無理
簡単なものならいけると思う

どっちにしろそんなすごくない

以前はできなかったようですが。
現在は、どうやら改行無しでもコンパイル出来るようになったみたいです。

gosub *a:gosub *b:stop:*a:mes"labela":return:*b:mes"labelb":return:if(0){mes "t"}else{mes "f"}

if 文も{} を使えるため、いくらでも右へ伸ばす事も出来ます。この特性は巨大なスクリプトをマクロ化する際に便利ですよ。

咄嗟にAAが思いつかなかったので長方形で。

randomize :a = 256 :dim f,a*a :foreach f
x=cnt/a :y=cnt\a:f.cnt=(x-y)*(x-y) :loop
repeat 2 :screen cnt :b=640:c=480 :e=255
repeat 100 :color rnd(e), rnd(e), rnd(e)
p=rnd(b):q=rnd(c):circle p-9,q-9,p+9,q+9
loop :loop :d=921600 :sdim t,d:mref v,66
memcpy t,v,d :gsel 0 :mref v,66 :s = 0.0
for y,,c :u = 0 :for x,,b :p = (y*b+x)*3
for n,,3:u+=f(peek(t,p+n)*a+peek(v,p+n))
next : next : s = s + 1.0 * u / b : next
r = logf(65025.0/s*c*3)  / logf(10) * 10
dialog "PSNR:" + r + "dB",0,"test" :stop

2枚の画面に適当に描画して、そのあいだのPSNRを計算するコード

うーん難しい。

	
    
                
                  max=100 : g=0.98
                ddim bx,max : size = 5
            ddim bvx,max : ddim bvy , max
          wsize = 640 ,480 : dim ball , max
        buffer 1 , wsize(0) , wsize(1) : boxf
       screen 0 , wsize(0) , wsize(1) ,0 ,0 ,0
      color 255 , 255 ,255 : onclick gosub *set
      gmode 3 ,0 ,0 ,64 : ddim by , max : repeat
     gcopy 1,0,0,wsize(0) ,wsize(1) : repeat max
     if ball(cnt)=1{ bvy(cnt)+g :by(cnt)+bvy(cnt)
     bx(cnt)+bvx(cnt) :cx=bx(cnt)-size:cy=by(cnt)
     circle cx,cy-size,bx(cnt)+size,by(cnt) +size
     if by(cnt)>ginfo(13)+size/2+1 :ball(cnt) = 0
     }loop :mp=mousex,mousey : redraw 1: await 30
      loop: *set : repeat max : if ball(cnt) = 0{
      ball(cnt) =1 : bx(cnt) =double(mousex):d=0
       r=atan(-mp(1)+mousey,-mp(0)+mousex):c=cnt
        d=0:d+powf(abs(mp(0)-mousex),2):m=mp(1)
         d+powf( abs(m-mousey),2 ) : d=sqrt(d)
           bvx(c)=cos(r)*d : bvy(c)=sin(r)*d
              by(c)=double(mousey):size=5
                  break} loop:return