143 放散虫：Z^3+0.5 画像の回転

放散虫：Z^3+0.5大変、興味深い「虫」で其の内部構造については記事012～025で説明している。
今回は此の画像の回転について述べる。

下図は「通常の」画像である。




下図は30度(π/6rad)時計方向回りに回転した場合の放散虫：Z^3+0.5の画像である。



-----------------------------------------------------
以下に、BASIC/98での、この画像作成プログラムを以下に書いておく。

回転しない場合は、行360を下記に変更すればよい。

360 XX=RR*COS(TH):YY=RR*SIN(TH)
----------------------------------------------------
10 REM放散虫：Z^3+0.5の画像,BASIC/98
50 CHAIN MERGE "D:\BASIC\PRO\SUBR\KOSHIKI.BAS",60,ALL
91 CONSOLE ,,0,1
92 COLOR 0,7,,,2
93 CLS 3
94 GOSUB 10000
120 JMAX=240:KMAX=1500:RMAX=1.5:X0=0:Y0=0
130 DR=RMAX/JMAX:DTH=2*P/KMAX:AA=JMAX/RMAX
150 FOR J=0 TO JMAX
160 R=J*DR
190 FOR K=0 TO KMAX
200 TH=K*DTH
210 X=R*COS(TH)+X0
220 Y=R*SIN(TH)+Y0
230 FOR N=0 TO 50
240 X1=X
250 X=FNR3(X,Y)+0.5
260 Y=FNI3(X1,Y)
270 Q=X^2+Y^2
280 IF Q>100 THEN 310 ELSE 290
290 NEXT N
300 C=15:GOTO 350
310 IF ABS(X)<10 OR ABS(Y)<10 THEN 320 ELSE 390
320 C=N MOD 16
330 IF C=7 THEN C=8
350 RR=AA*R
360 XX=RR*COS(TH+P/6):YY=RR*SIN(TH+P/6)
370 XXX=INT(XX)+320 :YYY=INT(YY)+240
380 PSET (XXX,YYY),C
390 NEXT K
391 NEXT J
400 END