TEACH RANDOM_WALK 2 Dec 2011 Using the RC_GRAPHIC (relative coordinates 2-D graphics) package in Pop11 and its Object Oriented extension rclib Aaron Sloman, School of Computer Science University of Birmingham, UK http://www.cs.bham.ac.uk/~axs Playing with some simple commands, and later exploring random walks. See the video tutorial based on this file on youtube: http://www.youtube.com/watch?v=jsCINKXK6ek For more information about the 2-D graphical facilities in Pop11 see http://www.cs.bham.ac.uk/research/projects/poplog/figs/rclib For examples of 'thinky' programs see http://www.cs.bham.ac.uk/research/projects/poplog/examples To make the commands available: uses rclib Additional backgroun information in TEACH files: TEACH RC_GRAPHIC TEACH RC_GRAPHPLOT TEACH FACES Create a window: vars win1 = rc_new_window_object(400, 0, 500, 500, false,'win1'); win1 -> rc_current_window_object; vars win2 = rc_new_window_object(400, 0, 600, 600, false,'win1'); win2 -> rc_current_window_object; rc_kill_window_object(win1); rc_kill_window_object(win2); rc_start(); 'black' -> rc_foreground(rc_window); 'red' -> rc_foreground(rc_window); 'blue' -> rc_foreground(rc_window); ;;; Horizontal and vertical steps 1-> rc_linewidth; 2-> rc_linewidth; rc_jumpto(0, 0); rc_xposition, rc_yposition => rc_drawby(20, 0); rc_xposition, rc_yposition => rc_drawby(0, 20); rc_xposition, rc_yposition => rc_drawby(-20, 0); rc_drawby(0, -20); 'black' -> rc_foreground(rc_window); rc_drawby(explode(oneof([[20 0][0 20][-20 0][0 -20]]))); 'blue' -> rc_foreground(rc_window); ;;; Horizontal and vertical steps rc_drawby(explode(oneof([[20 20] [-20 20] [-20 -20] [20 -20]]))); 'red' -> rc_foreground(rc_window); rc_drawby(explode(oneof([[20 0][20 20][0 20][-20 20][-20 0][-20 -20][0 -20][20 -20]]))); rc_start(); ;;; should be documented define random_walk(options, steps, delay, clear, colour); if clear then rc_start() endif; if isstring(colour) then colour -> rc_foreground(rc_window) endif; rc_jumpto(0,0); 0-> rc_heading; repeat steps times rc_drawby(explode(oneof(options))); if delay then syssleep(delay) endif; endrepeat; enddefine; random_walk([[20 0][0 20][-20 0][0 -20]], 100, 5, false, 'black'); random_walk([[20 0][0 20][-20 0][0 -20]], 100, 5, false, 'blue'); random_walk([[5 0][0 5][-5 0][0 -5]], 100, false, true, 'black'); random_walk([[5 5][-5 5][-5 -5][5 -5]], 100, 1, true, 'blue'); random_walk([[5 0][5 5][0 5][-5 5][-5 0][-5 -5][0 -5][5 -5]], 100, 1, true, 'red'); random_walk([[5 0][5 5][0 5][-5 5][-5 0][-5 -5][0 -5][18 -18]], 100, 20, true, 'red'); --- \$usepop/pop/teach/random_walk.p --- Copyright University of Birmingham 2011. All rights reserved.