息抜きに色々なリサージュ曲線を描けるプログラムを作りました。 公開キー:X343Q33F 描いたグラフを保存することはできないので、鑑賞用として楽しんでください。

いいですね！ でも減衰しないと！！ (1) 44,45行目の120をrrに変更 (2) 37行目の後ろに rr=rr*0.9999994 追加 (3) 35行目を rr=120 に変更

3行追加するだけでここまでかっこよくなるとは…！流石です！

↑2行変更、2行追加でしたね(・_・;) もう少しいじってもっと色々なグラフが描けるようにしてみようかな…

重ね合わせ処理追加しました。 同じ画素を通る度に、輝度をおおきくするだけです。

前回の減衰に加え、 (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 にしました。