以前、言及した"Micro.bas"を少しリライトしました。
486ノートで見ると、速度がバッチリ。立体的なうねりが見えます。
DNAというより、昇り竜でしょうか。
で、VBに移植してみたら、遅くてダメ。ずっと速い機種なのに。
やっぱり、ハードウェア・スクロールには、かないません。
裏画面に全部描いてからBitBltしたら、なんとかなりましたが…。
できればリアルタイムに描画したかった…。Cだと出来るんでしょうね。
-----------------------------------------------------------------
CLS
SCREEN 12
pi = 3.14159 / 2
FOR rot = 0 TO 3.14159 * 20 STEP .1
　ax = 320 + 60 * COS(rot)
　ay = 400 + 30 * SIN(rot)
　FOR i = 1 TO 8
　　CIRCLE (ax + (90 - i * 10) * COS(rot), ay + (22 - i * 2) * SIN(rot)), 9 - i, i
　　CIRCLE (ax - (90 - i * 10) * COS(rot + pi), ay - (22 - i * 2) * SIN(rot + pi)), 9 - i, i
　NEXT
　LINE (ax, ay)-(ax + 80 * COS(rot), ay + 20 * SIN(rot)), 9
　LINE (ax, ay)-(ax - 80 * COS(rot + pi), ay + -20 * SIN(rot + pi)), 9
　LINE (ax + 80 * COS(rot), ay + 20 * SIN(rot))-(ax - 80 * COS(rot + pi), ay + -20 * SIN(rot + pi)), 9
　PRINT ""
NEXT