> 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: PUgX%=W%*8:gY%=H%*(8-2*(M%=3 M%=6))::gX%=gX%*2:gX%>=&400::gY%=gY%*2:gY%>=&300 Z: d? clip%: 24,gX%*(1/16);gY%*(1/16);gX%*(15/16);gY%*(15/16); n/ 0,7: 0,0: clip%: gX%*(1/16),gY%*(1/16) x 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" ,( W%2-10,);"to the visible area." 6 (500)=8:M%=M%-2 @ clip% J M%