HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
1018
FHSPで芸術やった方いますか?4解決


F

リンク

2012/10/18(Thu) 07:02:38|NO.50046

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

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



この記事に返信する


@key

リンク

2012/10/18(Thu) 15:09:26|NO.50051

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

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



ヂオン

リンク

2012/10/18(Thu) 18:53:09|NO.50056

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

gosub *a:gosub *b:stop:*a:mes"labela":return:*b:mes"labelb":return:if(0){mes "t"}else{mes "f"}
if 文も{} を使えるため、いくらでも右へ伸ばす事も出来ます。この特性は巨大なスクリプトをマクロ化する際に便利ですよ。



YSR

リンク

2012/10/19(Fri) 00:00:11|NO.50064

咄嗟に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を計算するコード



てれてれ

リンク

2012/10/19(Fri) 18:28:02|NO.50069

うーん難しい。

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



ONION software Copyright 1997-2021(c) All rights reserved.