Languages
FsharpActionScript
xBase
Clean
GPSS
PureBasic
Sieve
Erlang
JOVIAL
Mercury
Linda
DataFlex
PostScript
FoxPro2
VFP
Cobol
Prolog
Jython
Awk
VisualBasic
JavaScript
Matlab
ASP
Haskell
Csharp
D
Smalltalk
Nemerle
Pixilang
Java
SQL
Python
ObjectPascal
Ruby
Perl
Pascal
Assembler
PHP
C
| Functions | Add function | Users Registration | Enter | About | ASCII Table | Our helpers |
DrawPoly in Pascal |
|
DrawPoly
---------------------------------------------------------------- Declaration: procedure DrawPoly ( NumPoints : Word; var PolyPoints ); Example: const { Describe a "house" shape using an array of 6 points } House : Array[1..6] of PointType = ((X:100; Y:100), (X:60;Y:140), (X:60; Y:180), (X:140;Y:180), (X:140; Y:140), (X:100; Y:100) ); ... { Draw the house on the screen } DrawPoly ( 6, House ); Purpose: Use DrawPoly for drawing simple or complex polygon shapes, where each vertice is specified with an (X, Y) coordinate (parameter PolyPoints) and the total number of vertices is indicated with NumPoints. The polygon is drawn in a "connect the dots" fashion, moving from vertice 1 to vertice 2 to vertice 3 and so on. If the polygon encloses a region, then you must specify one of the points at least twice. In the illustration above, drawing the triangle requires PolyPoints to list vertices 1, 2, 3, and then draw the final segment from vertice 3 back to 1. As a result, PolyPoints must contain 4 sets of coordinates (1, 2, 3, and 1). The polygon is drawn using the current SetColor color, and may be XOR'd on to the screen (for easy erasure) using SetWriteMode (XORPut) (See SetWriteMode). If you wish to draw a filled polygon, use FillPoly instead of DrawPoly. See FillPoly, GraphResult, SetColor, SetLineStyle and SetWriteMode Add by Pancho You can edit it here |
|
abcarticle.ru (blockart[dog]mail[dot]ru) tx7IVN <a href="http://wrlfoobyetbn.com/">wrlfoobyetbn</a>, [url=http://fakixkxblzne.com/]fakixkxblzne[/url], [link=http://kdkyervfqupx.com/]kdkyervfqupx[/link], http://smueveqfaryx.com/ |
| Adding comments is available only for registered users. |
| If Spiders and Worms Can Do It, Why Can't We?
Imagine a material that is tougher than Kelvar or steel, yet remarkably flexible. It's something you can easily find in your attic or a lingerie store. It's as instantly recognizable today as it was to our early ancestors, yet we still aren't sure exactly how it's made. The miracle thread in question is natural silk, the ubiquitous fibers made by spiders and silkworms, which has been used throughout history for items ranging from stockings and parachutes to surgical sutures. Today ...
|
PycckaR
BepcuR
Articles
Library
Downloads
