> Clipping 9 Test graphics actions clip to edge of window/screen : ( M%=0 15 2 clip%=0 1 < M% F$:H%=+1::+1=H%:8;:W%=+1: P\gX%=W%*8:gY%=H%*(8-2*(M%=3 M%=6 M%=7))::gX%=gX%*2:gX%>=&400::gY%=gY%*2:gY%>=&300 Z M%=7:&87,0,0 d: n? clip%: 24,gX%*(1/16);gY%*(1/16);gX%*(15/16);gY%*(15/16); x/ 0,7: 0,0: clip%: gX%*(1/16),gY%*(1/16)  A%=1 7 Ex%="1100101",A%,1)*(gX%-1): clip%:x%=(x%+1)*(14/16)+gX%*(1/16) Ey%="0110110",A%,1)*(gY%-1): clip%:y%=(y%+1)*(14/16)+gY%*(1/16) x%,y%  A%  offX%=-1 1  offY%=-1 1 1 gX%*((offX%*7+6 )/16),gY%*((offY%*7+6 )/16) 1 gX%*((offX%*7+10)/16),gY%*((offY%*7+6 )/16) 1 gX%*((offX%*7+8 )/16),gY%*((offY%*7+10)/16) 1 gX%*((offX%*7+6 )/16),gY%*((offY%*7+6 )/16)    W%2-3,H%2-3);"MODE ";M% * clip%: W%2-8,);"Graphics window" $ W%2-9,);"In graphics MODEs" "+ W%2-10,);"there should be nine";8 ,% W%2-9,);"triangles, clipped" 6( W%2-10,);"to the visible area." @ (500)=8:M%=M%-2 J clip% T M%