1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
|
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
|
+
+
+
-
+
|
NewX ( oldx dir -- newx )
Advance the number in the direction as though it is a X coordinate. If
the direction is north or south, leaves it alone, but if it is east or
west then it is increased or decreased by one. The output is never less
than zero nor exceeding the playfield width by more than one.
NewXY ( oldx oldy dir -- newx newy )
NewX and NewY together.
NewY ( oldx dir -- newy )
NewY ( oldy dir -- newy )
Advance the number in the direction as though it is a Y coordinate.
nip ( x y -- y )
o? ( any -- bool )
True if the value is an object (whether or not it has been garbage
collected), or false for any other type. Error if it is a sound.
|
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
|
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
|
+
+
+
|
XDir ( dir -- newx )
Finds the X coordinate of the cell in the specified direction.
,XDir ( obj dir -- newx )
Finds the X coordinate of the cell in the specified direction of the
specified object.
XYDir ( dir -- newx newy )
Finds the X and Y coordinates of the cell in the given direction.
YDir ( dir -- newy )
Finds the Y coordinate of the cell in the given direction.
,YDir ( obj dir -- newy )
Finds the Y coordinate of the cell in the specified direction of the
specified object.
|