# Fast model gridding
z ;# Erase screen
win demo ;# Get demo window (450000 460000 6450000 6460000 1000 4000)
spe bgc whi ;# Specify background color to white
mak ran 11 ;# Make 11 random points
grp 222 222 ;# Make grid of dimension 222 x 222
mhi mygrid ;# Move the grid to workspace 'mygrid'
mak ran 144 ;# Make 144 random points
mak lin dis 100 ;# Make points in line with distance 100
polzap 2mygrid ;# Get values from mygrid ;# Drawto the lines
withpol 2 line width 2 zap mygrid ;# GetDraw valuesthe fromlines mygridwith toline thewidth lines2
fmo 222 222 ;# Make grid model of dimension 222 x 222
map ;# Map the grid
|