Draws a line or point with current graphics settings.
QBDraw sexp
QBDraw is a Quick Basic compatible Draw command.
Command strings are:
Un - Up, draws a line up around n units
Ln - Left, draws a line around n units to the left
Rn - Right, draws a line around n units to the rigth
Dn - Down, draws a line down around n units
En - draws a line around n units to the right above
Fn - draws a line around n units to the right below
Gn - draws a line around n units to the left below
Hn - draws a line around n units to the left above
Mi,,j - draw a line to i, j
M+n, m - with sign a relative line is drawn,
M-n, m - e.g.: M-9,0 = U9
B Prefix - next command (ULRDEFGHM) doesn’t draw
N Prefix - next command (ULRDEFGHM) draws, but doesn‘t change the saved position
An -Turn, A0 = normally, A1 = turn to the left, A2 = turn on the head, A3 = turn to the right.
TAn - Turn in angle, units are given in degree, (A2 = TA180). With TA you are being able to turn the graphics created with the QBDraw command in degree steps.
Sn - Scaling. The given step width in (n, m) are multiplied with the scaling factor and after this diveded by four.
S4 (or S) are represent the normal or default condition, S8 correspond to a size doubling, S2 one bisection.
QBDraw uses integer coordinates.
Draw 100, 100 //Position set
// draw a star with eight corners
// the 6 with e f g h is approximate Sin(Deg(45)) * 8
QBDraw "nu8nl8nd8nr8ne6nf6ng6nh6"
Dim i As Integer, n As Integer, x As Double
Draw "ma100,100tt0"
n = 20
x = 360 / n
For i = 1 To n
Draw "fd9rt"; x
Next i
{Created by Sjouke Hamstra; Last updated: 21/10/2014 by James Gaite}