$\textsf{TRY ANOTHER}$

\text{Choose a number and see what that represents for the money in your bank account.}

\text{Drag to choose a number}

aniSli = 0 (slider from 0 to 1, step 0.01)
vOut = Vector((-35, -425), (-35, -280))
adjustPos: 0
V2: (500, -650 + adjustPos)
VP2: V2 + (25, 0)
V1: (-500, -650 + adjustPos)
VP1: V1 - (25, 0)
segmGrid = Sequence(VP1 + (k / 42 * (VP2 - VP1)), k, 0, 42)
SP = Point(segmGrid)
currentValue: abs(x(SP))
exType = Shuffle({1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4})
allAmounts = Shuffle(Sequence[t, t, 25, 500, 25])
A = (-8, 0)
B = (2, 0)
C = (0, 4)
T = (-5, -5)
J = (-2, 0)
P1 = (-542.5324542437106, -161.94807321006311)
P1' = Mirror(P1, yAxis)
P1'' = Mirror(P1', xAxis)
P1''' = Mirror(P1'', yAxis)
peep, p1, p1', p1'', p1''' = Polygon(P1, P1', P1'', P1''')
mediumTicks = Sequence(Segment[(t, y(V1) - 15), (t, y(V1) + 15)], t, x(V1), x(V2), 50)
fakeXaxis = Segment(VP1, VP2)
shortTicks = Sequence(Segment[(t, y(V1) - 10), (t, y(V1) + 10)], t, x(V1), x(V2), 25)
labelsGrid: Sequence[(t, y(V1) - 50), t, x(V1), x(V2), 100] + (5, 0)
labelValues = Sequence(t, t, x(V1), x(V2), 100)
longTicks = Sequence(Segment[(t, y(V1) - 25), (t, y(V1) + 25)], t, x(V1), x(V2), 100)
exCount = 171
amCount = 120
amount = Element(allAmounts, Mod[amCount, Length[allAmounts]] + 1)
exNum = Element(exType, Mod[exCount, Length[exType]] + 1)
AP = If(exNum ≤ 2, (amount, 0), ((-amount), 0))
O = (0, 0)
F = (-121.29228654375032, -53.42412080315884)
G = (-248.24056440067093, -132.64521895410553)
K = (-98.50649084874212, -459.675252916037)
L = (152.0198881364365, -458.2302139283252)
textBalance: "\text{" + (LaTeX[If[x(SP) ≥ 0, (("You have \$" * currentValue) * " to spend"), ("You owe \$" * currentValue)]]) + ".}"
tabOrder: {textQuestion, SP, textBalance, btnNew}
D: (-95 - 10 - 10 - 10, -450 - 10 - 10 - 10)
E: (95 + 10 + 10 + 10, -450 - 10 - 10 - 10)
studSegm = Segment(O - (0, 650 - adjustPos), SP)
allLabels = Zip(Text[If[A < 0, ("-\$" * abs(A)), ("\$" * A)], B, false, true, 0, 0], A, labelValues, B, labelsGrid)
speed: 3
M = Translate((-35, -425), Vector[(vOut * aniSli)])
N = Translate((30, -425), Vector[(vOut * aniSli)])
vIn = Vector((-27, -280), (-27, -425))
P = Translate((-27, -280), Vector[(aniSli * vIn)])
Q = Translate((35, 0 - 280), Vector[(aniSli * vIn)])
onboarding = true
pulsingSpeed: 8
pulsing = 0.2 (slider from 0 to 1, step 0.1)
H: (-17.92, -611.4)
I: (17.92, -611.4)
pulsingObject = circlePixels(SP, 7 + (7 * pulsing), Corner[1], Corner[3], Corner[5])
textNumber: "" + (LaTeX[If[x(SP) > 0, ("+" * x(SP)), x(SP) < 0, ("" * x(SP)), ""]]) + ""

Tool: circlePixels
circlePixels(A,pixelRadius,Corner1,Corner3,Corner5
Input: A, pixelRadius, Corner1, Corner3, Corner5
Output: newCircle

pointRadius: (pixelRadius / x(Corner5) * (x(Corner3) - x(Corner1)))
newCircle = Circle(A, pointRadius)