focus problem in j903

zerowords · Feb 25, 2022 · 4bab21d · 4bab21d
1 parent a6f013e
commit 4bab21d
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/tgsjo.ijs b/tgsjo.ijs
@@ -125,7 +125,15 @@ wd 'ptimer 100'  NB. controls speed of R rotation
 wd 'pshow'
 gl_paint''
 smoutput Instructions
-wd 'sm focus term'
+(wd bind 'sm focus term' ) scheduledumb ''
+)
+
+tconj=: 2 : 'u y[erase n'
+scheduledumb=: adverb define
+  id=.'dumb',":x:6!:9''
+  wd 'pc ',id
+  (t)=: u tconj (t=. id,'_timer')y
+  wd 'ptimer 1'
 )
 
 NB. used for turtle moves and turns