Level

★Excellent★

position: 10
num = 1 (slider from 1 to max, step 1)
length: num + 1
stick1 = Segment(((-position), 0), ((-position), length))
stick3 = Segment((position, 0), (position, length))
stick2 = Segment((0, 0), (0, length))
SnappedList: {stick1, stick2, stick3}
partRato: 1 / 4
plateRato: 1 / 3
height: 1
plate1, f, g, h, i = Polygon(((-position) - (position * plateRato), 0), ((-position) - (position * plateRato), (-height)), ((-position) + (position * plateRato), (-height)), ((-position) + (position * plateRato), 0))
plate2, j, k, l, m = Polygon((((-position) * plateRato), 0), (((-position) * plateRato), (-height)), ((position * plateRato), (-height)), ((position * plateRato), 0))
plate3, n, p, q, r = Polygon((position - (position * plateRato), 0), (position - (position * plateRato), (-height)), (position + (position * plateRato), (-height)), (position + (position * plateRato), 0))
max: 6
SnappedPoint1 = Point(stick1)
SnappedPoint2 = Point(stick2)
SnappedPoint3 = Point(stick3)
threshold: 1
RepellingFlag = 0
RepellingX: x((-2, 2.9791583678498537))
RepellingY = 2.9791583678498537 (slider from -5 to 10, step 0.1)
numFlag = 0
Center: Midpoint[Corner[1], Corner[3]] - (3, -2)
partCenter1 = (-10, 0.5)
part1, s, t, a, b = Polygon(partCenter1 + (((-position) * partRato), 1 / 2), partCenter1 + (((-position) * partRato), -1 / 2), partCenter1 + ((position * partRato), -1 / 2), partCenter1 + ((position * partRato), 1 / 2))
ListStick1: {Defined[Intersect[stick1, partCenter1]]}
ListStick2: {Defined[Intersect[stick2, partCenter1]]}
ListStick3: {Defined[Intersect[stick3, partCenter1]]}
PointPosition: {If[Defined[Intersect[stick1, partCenter1]] ≟ true, 1, Defined[Intersect[stick2, partCenter1]] ≟ true, 2, Defined[Intersect[stick3, partCenter1]] ≟ true, 3, false ≟ false, 0]}