前回の減衰に加え、 (1) 9行目に var z[241,401] 追加 (2) @DRAW で y1 計算後 inc z[y1,x1] zz=z[y1,x1]/200 追加 (3) gpset を gpset x1,y1,rgb(255*zz,100*zz,255*zz) に変更 あと上の画像では周期が長いので減衰率は 0.9999997 にしました。