・OLEDでマンデルブロ集合、と思ったのですが、よく考えてみると、本体のNTSC画面のグラフィック画面で描いたことがないので、まずはこちらから。
【BASICのコード】
USEGRAPHIC
CLS
USEVAR CA,CB,FLAG
FOR Y=-100 TO 100
FOR X=-220 TO 180
CA#=FLOAT#(X)*0.0458/6
CB#=FLOAT#(Y)*0.08333/8
A#=CA#
B#=CB#
FLAG=0
FOR I=0 TO 15
T#=A#*A#-B#*B#+CA#
B#=2*A#*B#+CB#
A#=T#
IF (A#*A#+B#*B#)>4 THEN
FLAG=1
BREAK
ENDIF
NEXT
IF FLAG=0 THEN CIRCLEFILL X+220,Y+100,1,4
NEXT
NEXT
A$=INPUT$()
