Mercurial > hg > Applications > Lite
view example/elevator.pl @ 22:29cf617f49db default tip
newer CVS version
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 22 Apr 2016 16:47:13 +0900 |
parents | 1c57a78f1d98 |
children |
line wrap: on
line source
elevator(( []((upButton1 -> <>location1)), []((upButton2 -> <>location2)), []((downButton2 -> <>location2)), []((downButton3 -> <>location3)), []((destButton1 -> <>location1)), []((destButton2 -> <>location2)), []((destButton3 -> <>location3)), [](((location1,<>location3) -> ( [](location2) & @ location3))), [](((location3,<>location1) -> ( [](location2) & @ location1))), [](( (location1,~ location2,~ location3); (~ location1,location2,~ location3); (~ location1,~ location2,location3))), [](((upButton1,location1) -> (~ move , open))), [](((upButton2,location2) -> (~ move , open))), [](((downButton1,location1) -> (~ move , open))), [](((downButton2,location2) -> (~ move , open))), [](((destButton1,location1) -> (~ move , open))), [](((destButton2,location2) -> (~ move , open))), [](((destButton3,location3) -> (~ move , open))), []((move -> ~ open)), [](((openButton, ~ move) -> open)), [](((closeButton, ~ openButton) -> ~ open)) )).