Нашел вот такой космос: https://oldbytes.space/@zxdunny/109342959566427298
Попробовал переписать для Вектора. Получается чуть-чуть медленней, чем в оригинале, но тоже красиво. Как бы ускорить?
Код:
10 CLS:COLOR7,0,0:DIMK(32)
20 FORI=1TO15
30 R=1+SIN(PI/3+I/PI)
40 G=1+1*SIN(I/PI-PI/6)
50 B=1+1*SIN(3*PI/2+I/PI)
60 K=INT(R*3.5) + INT(G*3.5)*8 + INT(B*1.5)*64
70 N=(I*5)AND15:SCREEN0,N,K:K(N)=K:K(N+16)=K
80 NEXT
90 COLOR0:PLOT0,0:FORI=0TO15:COLORI:LINEI*8,0:NEXT
100 N=200:R=2*PI/235
110 X=0:Y=0:V=0:T=0:SZ=200:SW=256/SZ:SH=256/SZ
120 T=0.025
130 FOR I=0TON:FORJ=0TON
140 U=SIN(I+V)+SIN(R*I+X)
150 V=COS(I+V)+COS(R*I+X)
160 X=U+T
170 C=JAND15:COLORC-(C=0)
180 PLOT 128+U*63,128+V*63
190 NEXT:NEXT
200 REM T=T+0.025
300 N=0
310 FORI=1TO15:SCREEN0,I,K(I+N):NEXT
320 N=N+1:IFN=16THEN300
330 GOTO310
На самом деле весьма красиво уже когда 130 FOR I=0TO40:FORJ=0TON