File: make_arrows_.pas

package info (click to toggle)
lazarus 4.0%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 275,760 kB
  • sloc: pascal: 2,341,904; xml: 509,420; makefile: 348,726; cpp: 93,608; sh: 3,387; java: 609; 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.