code idea thing

gistfile1.st

bridge controller:

open
	self lock.
	self getBridgeParts do: [ :part |
		part move: 1@0.
		self wait: 1.
	].
	self getUpperDoor move: -2@0 steps: 2.
	self getLowerDoor move: 2@0 steps: 2.
	self unlock.

close
	self lock.
	self getUpperDoor move: 2@0 steps: 2.
	self getLowerDoor move: -2@0 steps: 2.
	self getBridgeParts reverse do: [ :part |
		part move: -1@0.
		self wait: 1.
	].
	self unlock.