/* /0LOGBOOK 0 */ program test { #include #include #include #include var Outbin = 0 sensor touch3 on 3 touch3 is switch as boolean event tPress_touch3EventPress when touch3.pressed sensor touch1 on 1 touch1 is switch as boolean event tPress_touch1EventPress when touch1.pressed sensor light2 on 2 light2 is light as percent macro RESET_SORT { direction [ ] [ A ] on [ A ] wait until tPress_touch3EventPress off [ A ] } macro FEED_BRICK { direction [ ] [ C ] on [ C ] for 60 reverse [ C ] on [ C ] for 60 reverse [ C ] } macro TESTCOLOR { if light2 < 37{ Outbin = 10 } else { if light2 > 43{ Outbin = 50 } else { Outbin = 30 } } } macro GOTO_OUTBIN { direction [ A ] [ ] repeat (Outbin/10) { on [ A ] for 10 on [ A ] wait until tPress_touch1EventPress off [ A B C ] } } macro EJECT_BRICK { direction [ ] [ B ] on [ B ] for 20 reverse [ B ] on [ B ] for 30 reverse [ B ] } main { ext InterfaceType "kFreestyle" rcx_ClearTimers bbs_GlobalReset([A B C]) trigger tPress_touch3EventPress trigger tPress_touch1EventPress try { repeat 8 { RESET_SORT FEED_BRICK TESTCOLOR GOTO_OUTBIN EJECT_BRICK } } retry on fail try { RESET_SORT } retry on fail } }