A program for creating segments

(start

Crest

((send (make-seg C 1) 3)))

((make-seg seg-type seg-index)

(and Tube (not C) (not D))

((set seg-type)

(set seg-index)

(send created 3)))

(((make-seg) (= 0))

Tube

((set Bottom)))

(((make-seg) (> 0))

Tube

((unset Bottom)))

(created

(or C D)

((set Waiting 10)))

(* (and Bottom C 1 (Waiting (= 0)))

((send (make-seg D 1) 3)))

(* (and Bottom D 1 (Waiting (= 0)))

((send (make-seg C 2) 3)))

(* (and Bottom C 2 (Waiting (= 0)))

((send (make-seg D 2) 3)))

(* (and Bottom D 2 (Waiting (= 0)))

((send (make-seg C 3) 3)))

Previous slide

Next slide

Back to first slide

View graphic version