忍者ブログ

GAM-22のメモ

HSPで残像

2017.04 ← 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 →

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

HSPで残像

残像を作るには複雑な処理は必要ないことに、最近になって気がつきました。

HSPで残像
*main
    redraw 0
    
    // 背景
    gmode 3, 32,32, 50
    color 0,0,0 : grect 320,240, 0, 640,480

    // ●発生
    if rnd(20)=0 : gosub *born

    color 0,255,255

    repeat max
        // ●
        if x(cnt)<0 | x(cnt)>610 : mx(cnt)*=-1
        if y(cnt)<0 | y(cnt)>450 : my(cnt)*=-1
        x.cnt += mx.cnt
        y.cnt += my.cnt
        font "MS ゴシック", 30
        pos x.cnt, y.cnt : mes "●"
        loop

    redraw
    await 50
    goto *main

*born
    x.max = rnd.610
    y.max = rnd.450
    mx.max = 10
    my.max = 10
    max ++
    return

説明するまでも無いですが、背景の代わりに半透明に塗りつぶします。

PR
この記事にコメントする
お名前
タイトル
文字色
URL
コメント
パスワード Vodafone絵文字 i-mode絵文字 Ezweb絵文字
ソースコピペしたらソースが一行になりました。
それらしいところを全て改行したら上手くいきました。
kerupaniさんのページkerupaniさん / 2010/06/19(Sat) / 編集
Re:ソースコピペしたら...
>ソースコピペしたらソースが一行になりました。
コピーするときに改行コードが反映されずに一行になってしまうということですね。
おそらくブラウザの問題だと思います。
私が普段使っているFirefoxでは問題なくコピーできます。
どうやら、IEだとkerupaniさんのような症状が起きるようです。
 (2010/06/19)
なるほど。
このソースに関しては、IEだからへんになる、ということなんですね。
ところで、
なぜかこのソース以外は上手くコピペできるのにこのソースだけおかしくなります。
([HSP3メモ]サンプルのなかで。)
なぜでしょうか?
kerupaniさんのページkerupaniさん / 2010/06/21(Mon) / 編集
Re:Re:Re:ソースコピペしたら...
<pre>の中で<br />を使って改行したのが悪かったぽいです。
ご指摘ありがとうございました。全く気がつかなかったです。
 (2010/06/22)
改造してみました。↓
────────────────
title "マウスで連続で\"●\"を描く"
cls 4
*main
redraw 0

// 背景
gmode 3, 32,32, 10
color 0,0,0 : grect 320,240, 0, 640,480

// ●発生
if rnd(20)=0 : gosub *born

color 0,255,255

repeat max
// ●
font "MS ゴシック", 30
stick key,256
if key&256 : pos mousex-15,mousey-15 : mes "●"
loop

redraw
await 10
goto *main

*born
max ++
return
kerupaniさんのページkerupaniさん / 2010/06/24(Thu) / 編集
Re:わかりました…。ところで!
keupaniさんのサンプルの方がシンプルになるので、残像のサンプルとしては分かりやすくなりますね。しかし少々無駄な処理が多い気がするので(失礼ですが)、さらに弄ってみました。

title "マウスで連続で\"●\"を描く"
cls 4
*main
redraw 0

// 背景
gmode 3, 32,32, 10
color 0,0,0 : grect 320,240, 0, 640,480
color 0,255,255
font "MS ゴシック", 30
stick key,256
if key&256 : pos mousex-15,mousey-15 : mes "●"

redraw
await 10
goto *main
 (2010/06/25)
ってタイトルに文書いてしまった…。
この記事にトラックバックする
トラックバックURL:
カテゴリー
カウンター
最新記事
最新コメント
Twitter
人気記事
Amazon お買い得情報
Amazon お買い得情報
プロフィール
自画像
HN :
GAM-22
性別:
男性
職業:
大学1年生
HSP暦:
6年
好きなもの :
ゲーム, アニメ, マヨネーズ
嫌いなもの :
運動, 注射, ホラー映画, 英語
好きなバンド :
Muse, Radiohead
その他 :
文章能力が欠如している
バナー
Copyright © GAM-22のメモ All Rights Reserved
Powered by ニンジャブログ Designed by ピンキー・ローン・ピッグ 忍者ブログ / [PR]