プチコン 非公式コミュニティ
プレイ日記
こういち
◆ou0jbJnEJ0Kb
2019/3/17 21:54 ネタバレ
2019/3/17 21:54 ネタバレ
VAR VX=100,VY=1
VAR R=100,X=200,Y=120
VAR LX=R,LY=0
VAR DLX,DLY
VAR DIST=SQR(VX*VX+VY*VY)
VX=VX/DIST
VY=VY/DIST
REPEAT
WAIT 1
DLX=LX
DLY=LY
LX=DLX*VX-DLY*VY
LY=DLX*VY+DLY*VX
GLINE X+LX,Y-LY,X+DLX,Y-DLY
UNTIL R-LX<R/1E5
VAR R=100,X=200,Y=120
VAR LX=R,LY=0
VAR DLX,DLY
VAR DIST=SQR(VX*VX+VY*VY)
VX=VX/DIST
VY=VY/DIST
REPEAT
WAIT 1
DLX=LX
DLY=LY
LX=DLX*VX-DLY*VY
LY=DLX*VY+DLY*VX
GLINE X+LX,Y-LY,X+DLX,Y-DLY
UNTIL R-LX<R/1E5
コメント
こういち
2019/3/17 21:58
◆ou0jbJnEJ0Kb
二行目を
VAR R=100,X=200,Y=120
6,7行目を
VX=VX/DISt*1.0005
VY=VY/DIST*1.0005
15行目を
UNTIL ABS(VX)>=X||ABS(VY)>=Y
に変えると面白いよ。
VAR R=100,X=200,Y=120
6,7行目を
VX=VX/DISt*1.0005
VY=VY/DIST*1.0005
15行目を
UNTIL ABS(VX)>=X||ABS(VY)>=Y
に変えると面白いよ。
こういち
2019/3/18 8:58
◆ou0jbJnEJ0Kb
VY=VY/DIST*1.00307
にするといい感じの螺旋が描ける。
コメントを書く
この投稿にはコメントできません。
- WEB PATIO -