何かのデモ（へびうねうね） by みむ*mim

何かのデモ（へびうねうね）

みむ*mim

2026/06/06
08:19:10

CONST #N=20,#W=400,#H=240,#VANG=.04
VAR HX=#W/2,HY=#H/2,VX=3,ANG,RNG=60
CONST #HZ=6

VAR X#[#N*#HZ]:FILL X#,HX
VAR Y#[#N*#HZ]:FILL Y#,HY

FOR I=0 TO #N-1
 SPSET I,7495
NEXT

LOOP
 INC ANG,#VANG
 INC HX,HX<#W/2
 UNSHIFT X#,VX
 UNSHIFT Y#,RNG*SIN(ANG)
 RESIZE X#,#N*#HZ
 RESIZE Y#,#N*#HZ

 FOR I=0 TO #N-1
  SPOFS I,HX+X#[I*#HZ]+VX*I,HY+Y#[I*#HZ]
 NEXT

 VSYNC
ENDLOOP