stairs
Author: Henri Picciotto
Date: 24 September 2013

show line

steps = 0 (slider from 0 to 20, step 1)
y0 = -5 (slider from -9 to 9, step 1)
x0 = -5 (slider from -9 to 9, step 1)
run = 1 (slider from -9 to 9, step 1)
rise = 1 (slider from -9 to 9, step 1)
overs = Sequence((x0 + (n * run), y0 + (n * rise)), n, 0, steps)
ups = Sequence((x0 + ((n - 1) * run), y0 + (n * rise)), n, 1, steps)
banister = Segment(Element[overs, steps + 1], Element[overs, 1])
moveovers = Sequence(Segment[Element[ups, n], Element[overs, n + 1]], n, 1, steps)
moveups = Sequence(Segment[Element[overs, n], Element[ups, n]], n, 1, steps)
target = (5, 5)
start: (x0, y0)
downs = Sequence((x0 - (n * run), y0 - (n * rise)), n, 0, steps)
backs = Sequence((x0 - ((n + 1) * run), y0 - (n * rise)), n, 0, steps)
canister = Segment(Element[downs, steps + 1], Element[downs, 1])
movebacks = Sequence(Segment[Element[downs, n], Element[backs, n]], n, 1, steps)
movedowns = Sequence(Segment[Element[backs, n], Element[downs, n + 1]], n, 1, steps)
a = false