HSP2.x系で、円の中心に向かってグラデーションをかけるサンプルコード

;円の中心に向かってグラデーションをかけていくサンプル（謎）
;「外側に向かって〜」も可能。

;変数の初期化
fskip=1        ;フレームスキップ数
size=200    ;画面のサイズ
wtime=3        ;ウェイト
skipmode=0    ;1=途中のアニメーションを行わない

;画面の生成
screen 0,size,size,0
title "描画開始"
cls 4

;アニメーションスキップの判定
if skipmode{
    redraw 0
}else{
    ;フェードイン
    repeat 90
        await wtime

        ;色計算部分
        r+2 : g++ : b++

        ;限界処理
        if r<0 : r=0
        if g<0 : g=0
        if b<0 : b=0
        if r>0xff : r=0xff
        if g>0xff : g=0xff
        if b>0xff : b=0xff

        ;描画部分
        color r,g,b
        font "ＭＳゴシック",size
        pos 0,0 : mes "●"
    loop
}

;グラデーション描画
repeat size/fskip
    if skipmode==0 : await wtime

    ;色計算部分
    r=0xff-(cnt>>1)
    g=0x64+(cnt<<2)
    b=0x64+(cnt<<1)

    ;限界処理
    if r<0 : r=0
    if g<0 : g=0
    if b<0 : b=0
    if r>0xff : r=0xff
    if g>0xff : g=0xff
    if b>0xff : b=0xff

    ;描画部分
    color r,g,b
    font "ＭＳゴシック",size-(cnt*fskip)
    pos cnt*fskip>>1,cnt*fskip>>1 : mes "●"

    ;描画部分の変更例
    ;color r,g,b
    ;font "ＭＳゴシック",size+(cnt*fskip)
    ;pos -cnt*fskip>>1,-cnt*fskip>>1 : mes "●"
loop

if skipmode : redraw 1
title "描画終了"
stop