WSFN (programming language)
WSFN is an interpreted programming language for controlling robots created by Li-Chen Wang. It was designed to be as small as possible, a "tiny" language, similar to Wang's earlier effort, Palo Alto Tiny BASIC. WSFN was first published in Dr. Dobb's Journal in September 1977.
The language consists primarily of single-letter commands to tell a robot to move in certain directions, while other commands perform tests or basic mathematical operations. These can be grouped into named macros to produce more complex programs. The original version also included code that simulated the robot as a cursor on the VDM-1 display, or graphically on a Cromemco Dazzler display. Today, this is known as turtle graphics.
Extended WSFN is an implementation created for the Atari 8-bit family of home computers written by Harry Stewart and published by the Atari Program Exchange in 1981. In addition to supporting turtle graphics, it adds a number of commands to control the graphics and sound capabilities of that platform. It was offered as a "beginner's language with emphasis on graphics".
Basic syntax
WSFN consists of a number of single-letter commands to control the movement of a turtle or robot. Any of these commands can be repeated by prefixing it with a number. For instance, moves the turtle Forward one step, while moves 25 steps. and make the turtle turn one unit to the Right or Left, respectively, and it can also be reset to point orth. The step sizes and turn units are defined by the robot hardware, but are set to one pixel and 45 degrees in the turtle graphics versions. Missing in the robot versions, in the computer versions returns the turtle Home in the center of the screen and Clears any previous drawing. Thus, one can draw a square with the string:BCWHN25F2R25F2R25F2R25F
These instructions set the drawing color to Black, Clears the screen, sets the color to White, Homes the turtle, resets the turtle to point North, then draws a series of four lines 25 steps long, rotating 90 degrees between each one. The result is a white square with its lower-left corner in the center of the screen.
Lists of commands can be surrounded with parentheses to create macros. For instance, the same square can be drawn by placing the code to draw one side of the square inside the parentheses, and then calling it four times:
BCWHN4
Macros can be called within other macros. For instance, this code draws a series of eight squares, each offset by 45 degrees, rotating around the center of the screen:
BCWHN8
Macros can be assigned a name using the efine command. This code defines a macro named "X" to clear the screen and reset the drawing, and another "Z" that draws a square. It then uses these to draw the same rotating square as the example above:
DX
DZ4
X8
WSFN has rudimentary math capabilities consisting of a single accumulator that can be incremented and decremented with and. The letter can be placed anywhere a number could appear. One can make the series of squares grow larger by incrementing the accumulator 5 times between each step:
DX
25A
DZ4
X8
A side-effect of the syntax is that would set the accumulator to zero, because it performs the decrement instruction by the number in A. Likewise, doubles the value in the accumulator.
Program control is equally rudimentary, consisting of a number of commands that handled IF/THEN/ELSE structures. The most basic form is the est command, which follows one of two paths if the accumulator was greater or equal to zero. For instance, this command causes the turtle to turn 90 degrees left if the accumulator is non-zero, or 45 to the right if it is zero:
TR
Variations on the branching construct include, which randomly jumps to the first or second branch 50% of the time, and ensor, which tests if the contact sensor on the robot has been triggered. Extended WSFN modified the to return the color in front of the turtle, allowing hit detection on previous drawing, and added the dge test, which jumps to the right side macro if the turtle hit the edge of the drawing area. The original WSFN lacks an equivalent of, and instead wraps the drawing area so the turtle re-appears on the opposite side of the screen. Extended WSFN supports this style of playfield wrapping as an option.
Because it uses one-letter commands and recursive syntax, WSFN code is exceedingly cryptic. For example, this is a WSFN program to draw Sierpiński curves:
DIT2R
DG4F
DY
Note that the definition of the macro "I" includes calls to I within it. This is a key aspect of the WSFN concept; the language is highly recursive in nature, which makes programming self-similar patterns like fractals easy to accomplish in a few lines of code.
A key concept of Extended WSFN is that the keyboard is always active, even while macros are running. This allows keyboard input to interrupt running programs. Using this technique, one can make macros for moving the turtle in certain ways, assign them to letters on the keyboard, and then perform these movements by pressing different keys in succession. This can be aided by adding the ait command in places to give the user time to respond as the drawing takes place.
Keywords
From the original Dr. Dobbs article.| Keyword | Description |
| A | Loops by the value of the accumulator |
| B | Set the drawing color to black |
| C | Clear screen |
| D | Define macro |
| F | Move the turtle forward |
| H | Return the turtle to the home position |
| L | Rotate the turtle to the left |
| N | Point the turtle north |
| R | Rotate the turtle to the right |
| S | Test contact sensor on the robot |
| T | Test for non-zero accumulator |
| W | Set the drawing color to white |
| = | Define a macro name |
| ? | Random test, like T but follows each branch 50% of the time |
| + | Increment accumulator |
| - | Decrement accumulator |
From the Extended WSFN manual.
| Keyword | Description |
| B | Beep |
| D | Pen down |
| E | Tests if the turtle is at the screen edge |
| P | Set the pen color to the value in the accumulator |
| S | Set the accumulator to the color in front of the turtle |
| U | Pen up |
| W | Wait one jiffy |
| = | Define macro |
| =# | Define variable |
| # | Loops by the value in a variable |
| * | Adding * to the directional commands, *L or *R, changed the angle to 22.5 degrees instead of 45 |
| $ | Test joystick against selected direction |
| % | Read value of paddle controller into accumulator |
| & | Write value in accumulator to selected color register |
| ; | Read the direction of the turtle, 0 through 7, into the accumulator |
| @ | Set the accumulator to zero |