mo8it/ReCo.jl
1
0
Fork 0
mirror of https://gitlab.rlp.net/mobitar/ReCo.jl.git synced 2025-09-04 09:12:35 +00:00
Code Issues Releases Activity

Bundles animation

Browse source
This commit is contained in:
MoBit 2021-12-03 03:07:07 +01:00
parent 8e1d274473
commit 59323d49cd
5 changed files with 159 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

7
graphics/center_of_mass.jl
View file

@ -1,5 +1,4 @@
using Luxor
using StaticArrays
using ReCo: restrict_coordinate
@ -59,7 +58,7 @@ line(Point(-L, 0), Point(L, 0), :stroke)
setcolor("red")
setline(0.5)
for x in SVector(-L, L)
for x in (-L, L)
line(Point(x, 0.05 * L), Point(x, -0.05 * L), :stroke)
end
@ -67,7 +66,7 @@ setcolor("cyan3")
line(Point(0, 0.05 * L), Point(0, -0.05 * L), :stroke)
setcolor("blue")
for p in SVector(A, B)
for p in (A, B)
circle(Point(p, 0), pr, :fill)
end
@ -111,7 +110,7 @@ setcolor("cyan3")
line(Point(-1.05 * R, 0), Point(-0.95 * R, 0), :stroke)
setcolor("blue")
for pp in SVector(Ap, Bp)
for pp in (Ap, Bp)
circle(R * pp, pr, :fill)
end