{ $code "f 0 <inet4> <datagram>" }
"To accept UDP/IP packets from the loopback interface only, use an address specifier like the following:"
{ $code "\"127.0.0.1\" 1234 <inet4> <datagram>" }
- "Since " { $link resolve-host } " can return multiple address specifiers, your code must create a datagram socket for each one and co-ordinate packet sending accordingly."
+ "Since " { $link resolve-host } " can return multiple address specifiers, your code must create a datagram socket for each one and coordinate packet sending accordingly."
}
{ $errors "Throws an error if the port is already in use, or if the OS forbids access." } ;
HELP: children-on
{ $values { "rect" rect } { "gadget" gadget } { "seq" "a sequence of gadgets" } }
-{ $contract "Outputs a sequence of gadgets which potentially intersect a rectangle in the co-ordinate system of the gadget." }
+{ $contract "Outputs a sequence of gadgets which potentially intersect a rectangle in the coordinate system of the gadget." }
{ $notes "This does not have to be an accurate intersection test, and simply returning " { $link children>> } " is a valid implementation. However, an accurate intersection test reduces the amount of work done when drawing this gadget if it is partially clipped and not all children are visible." } ;
HELP: control-value
HELP: relative-loc
{ $values { "fromgadget" gadget } { "togadget" gadget } { "loc" "a pair of integers" } }
{ $description
- "Outputs the location of the top-left corner of " { $snippet "togadget" } " relative to the co-ordinate system of " { $snippet "fromgadget" } "."
+ "Outputs the location of the top-left corner of " { $snippet "togadget" } " relative to the coordinate system of " { $snippet "fromgadget" } "."
}
{ $errors
"Throws an error if " { $snippet "togadget" } " is not contained in a child of " { $snippet "fromgadget" } "."
HELP: pick-up
{ $values { "point" "a pair of integers" } { "gadget" gadget } { "child/f" { $maybe gadget } } }
-{ $description "Outputs the child at a point in the gadget's co-ordinate system. This word recursively descends the gadget hierarchy, and so outputs the deepest child." } ;
+{ $description "Outputs the child at a point in the gadget's coordinate system. This word recursively descends the gadget hierarchy, and so outputs the deepest child." } ;
HELP: max-dims
{ $values { "seq" "a sequence of pairs of integers" } { "dim" "a pair of integers" } }
first-visible-line
last-visible-line
}
-"Converting y co-ordinates to line numbers, and vice versa:"
+"Converting y coordinates to line numbers, and vice versa:"
{ $subsections
line>y
y>line
[ elevator-length ] bi min ;
: slider-scale ( slider -- n )
- ! A scaling factor such that if x is a slider co-ordinate,
+ ! A scaling factor such that if x is a slider coordinate,
! x*n is the screen position of the thumb, and conversely
! for x/n. The '1 max' calls avoid division by zero.
[ [ elevator-length ] [ thumb-dim ] bi - 1 max ]
{ $description "Calls " { $link user-input* } " on every parent of the world's currently-focused child." } ;
HELP: origin
-{ $var-description "Within the dynamic extent of " { $link draw-world } ", holds the co-ordinate system origin for the gadget currently being drawn." } ;
+{ $var-description "Within the dynamic extent of " { $link draw-world } ", holds the coordinate system origin for the gadget currently being drawn." } ;
HELP: hand-world
{ $var-description "Global variable. The " { $link world } " containing the gadget at the mouse location." } ;
}
{
"window-loc"
- { "the on-screen location of the native window containing the world. The co-ordinate system here is backend-specific." }
+ { "the on-screen location of the native window containing the world. The coordinate system here is backend-specific." }
}
{
"window-controls"
! Note that these are only really useful inside an event
! handler, and that the locations hand-loc and hand-click-loc
-! are in the co-ordinate system of the world which contains
+! are in the coordinate system of the world which contains
! the gadget in question.
SYMBOL: hand-gadget
SYMBOL: hand-world
"ui-paint-custom"
} ;
-ARTICLE: "ui-paint-coord" "The UI co-ordinate system"
-"The UI uses a co-ordinate system where the y axis is oriented down. The OpenGL " { $link GL_MODELVIEW } " matrix is saved or restored when rendering a gadget, and the origin is translated to the gadget's origin within the window. The current origin is stored in a variable:"
+ARTICLE: "ui-paint-coord" "The UI coordinate system"
+"The UI uses a coordinate system where the y axis is oriented down. The OpenGL " { $link GL_MODELVIEW } " matrix is saved or restored when rendering a gadget, and the origin is translated to the gadget's origin within the window. The current origin is stored in a variable:"
{ $subsections origin }
"Gadgets must not draw outside of their bounding box, however clipping is not enforced by default, for performance reasons. This can be changed by setting the " { $slot "clipped?" } " slot to " { $link t } " in the gadget's constructor." ;
HELP: x>offset
{ $values { "x" real } { "font" font } { "string" string } { "n" integer } }
-{ $contract "Outputs the string index closest to the given x co-ordinate." } ;
+{ $contract "Outputs the string index closest to the given x coordinate." } ;
HELP: offset>x
{ $values { "n" integer } { "font" font } { "string" string } { "x" real } }
-{ $contract "Outputs the x co-ordinate of the character at the given index." } ;
+{ $contract "Outputs the x coordinate of the character at the given index." } ;
HELP: line-metrics
{ $values { "font" font } { "string" string } { "metrics" line-metrics } }
ARTICLE: "ui-geometry" "Gadget geometry"
"The " { $link gadget } " class inherits from the " { $link rect } " class, and thus all gadgets have a bounding box:"
{ $subsections "math.rectangles" }
-"Word for converting from a child gadget's co-ordinate system to a parent's:"
+"Word for converting from a child gadget's coordinate system to a parent's:"
{ $subsections
relative-loc
screen-loc
{ { { $snippet "assoc" } } "an associative mapping" }
{ { { $snippet "str" } } "a string" }
{ { { $snippet "x" } ", " { $snippet "y" } ", " { $snippet "z" } } "a number" }
- { { $snippet "loc" } "a screen location specified as a two-element array holding x and y co-ordinates" }
+ { { $snippet "loc" } "a screen location specified as a two-element array holding x and y coordinates" }
{ { $snippet "dim" } "a screen dimension specified as a two-element array holding width and height values" }
{ { $snippet "*" } "when this symbol appears by itself in the list of outputs, it means the word unconditionally throws an error" }
}
! XYZ does not.
! Using triangles.txt (right click and 'Save Link/Target As...'), a 27K text
-! file containing the co-ordinates of one thousand "random" triangles, find the
+! file containing the coordinates of one thousand "random" triangles, find the
! number of triangles for which the interior contains the origin.
! NOTE: The first two examples in the file represent the triangles in the
projects / factor.git / commitdiff