綺麗な球体を描画するQSPです。たった9行しか使っていないので、描画速度はかなり遅くなっています。ソースは、コメントにて…

綺麗と言っても、使っているのは9行なので、そこら辺はご了承下さい。

終わりをつける場合は、簡単にこんな感じです。WHILE TRUEをWHILE R<17000に変えただけです(17000と言う数値はかなりアバウトです)。

お久しぶり!　私の事覚えてるかな?

大丈夫です。覚えてますよ。