用QBASIC制作五彩缤纷的烟花

Author: 陈旭霖 Date: 1998年第01期 13版

　　该程序是用CIRCLE语句画出六个圆弧模拟烟花。为了使效果更逼真，使用一个一维数组存放圆弧半径，因此，烟花出现时，圆弧由小到大扩散，扩散速度由快到慢，圆环由厚到薄，最后消失。图案表现出多维变化的效果。
　　程序清单如下：
    SCREEN 13
    DIM col（10）
    col（0）=9:col（1）=10:col（2）=11
    col（3）=12:col（4）=13:col（5）=14
    DIM a（150）
    b=150
    FOR i=1 TO 150
    b=b*0.95
    a（i）=150－b
    NEXT i
    rept:
    x=INT（319*RND（1））
    y=INT（100*RND（1））
    z=INT（6*RND（1））
    FOR i=1 TO 75
    IF i>68 THEN GOTO sk
    CIRCLE （x，y），a（i），col（z），0，0.6
    CIRCLE （x，y），a（i），col（z），1.046，1.646
    CIRCLE （x，y），a（i），col（z），2.094，2.694
    CIRCLE （x，y），a（i），col（z），3.139，3.739
    CIRCLE （x，y），a（i），col（z），4.187，4.787
    CIRCLE （x，y），a（i），col（z），5.232，5.832
    sk:
    fOR k=1 TO 3000 STEP 10:NEXT k
    IF i<10 THEN GOTO skip
    CIRCLE （x，y），a（i－10），0
    skip:
    NEXT i
    FOR k=1 TO 10000 STEP 1:NEXT k
    GOTO rept
    END