File: make_arrows_.pas

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (61 lines) | stat: -rw-r--r-- 1,971 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit
 make_arrows_ ;

INTERFACE

{$I agg_mode.inc }

uses
 agg_path_storage ;

{ GLOBAL PROCEDURES }
 procedure make_arrows(ps : path_storage_ptr );


IMPLEMENTATION
{ UNIT IMPLEMENTATION }
{ MAKE_ARROWS {..}
procedure make_arrows;
begin
 ps.remove_all;

 ps.move_to(1330.599999999999909 ,1282.399999999999864 );
 ps.line_to(1377.400000000000091 ,1282.399999999999864 );
 ps.line_to(1361.799999999999955 ,1298.000000000000000 );
 ps.line_to(1393.000000000000000 ,1313.599999999999909 );
 ps.line_to(1361.799999999999955 ,1344.799999999999955 );
 ps.line_to(1346.200000000000045 ,1313.599999999999909 );
 ps.line_to(1330.599999999999909 ,1329.200000000000045 );
 ps.close_polygon;

 ps.move_to(1330.599999999999909 ,1266.799999999999955 );
 ps.line_to(1377.400000000000091 ,1266.799999999999955 );
 ps.line_to(1361.799999999999955 ,1251.200000000000045 );
 ps.line_to(1393.000000000000000 ,1235.599999999999909 );
 ps.line_to(1361.799999999999955 ,1204.399999999999864 );
 ps.line_to(1346.200000000000045 ,1235.599999999999909 );
 ps.line_to(1330.599999999999909 ,1220.000000000000000 );
 ps.close_polygon;

 ps.move_to(1315.000000000000000 ,1282.399999999999864 );
 ps.line_to(1315.000000000000000 ,1329.200000000000045 );
 ps.line_to(1299.400000000000091 ,1313.599999999999909 );
 ps.line_to(1283.799999999999955 ,1344.799999999999955 );
 ps.line_to(1252.599999999999909 ,1313.599999999999909 );
 ps.line_to(1283.799999999999955 ,1298.000000000000000 );
 ps.line_to(1268.200000000000045 ,1282.399999999999864 );
 ps.close_polygon;

 ps.move_to(1268.200000000000045 ,1266.799999999999955 );
 ps.line_to(1315.000000000000000 ,1266.799999999999955 );
 ps.line_to(1315.000000000000000 ,1220.000000000000000 );
 ps.line_to(1299.400000000000091 ,1235.599999999999909 );
 ps.line_to(1283.799999999999955 ,1204.399999999999864 );
 ps.line_to(1252.599999999999909 ,1235.599999999999909 );
 ps.line_to(1283.799999999999955 ,1251.200000000000045 );
 ps.close_polygon;

end;

END.