-
Notifications
You must be signed in to change notification settings - Fork 0
/
barras.cbl
165 lines (124 loc) · 5.77 KB
/
barras.cbl
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
program-id. Barras.
working-storage section.
77 label-font handle of font.
77 ctr pic 999.
* copy "def/acucobol.def".
01 TERMINAL-ABILITIES.
03 TERMINAL-NAME PIC X(10).
78 BLACK VALUE 1.
78 BLUE VALUE 2.
78 GREEN VALUE 3.
78 CYAN VALUE 4.
78 RED VALUE 5.
78 MAGENTA VALUE 6.
78 BROWN VALUE 7.
78 WHITE VALUE 8.
procedure division.
main-logic.
perform initialization.
accept label-font from standard object "large-font".
display standard graphical window, background-low.
display label "Exemplo de Linhas", line 3, col 33,
color magenta, font label-font.
* Mostra linhas na cor magenta envolta do Label "Linhas Simples".
display bar, line 3.0, col 8, size 23, width 2, color magenta.
display bar, line 3.6, col 5, size 25, width 3, color magenta.
display bar, line 4.2, col 8, size 23, width 2, color magenta.
display bar, line 3.0, col 52, size 23, width 2, color magenta.
display bar, line 3.6, col 53, size 25, width 3, color magenta.
display bar, line 4.2, col 52, size 23, width 2, color magenta.
* Mostra as linhas verdes.
display bar, line 5, col 2, size 78.6, width = 5,
color green,
shading = (-1, 1, 0, 0, -2).
display bar, line 2, col 2, lines 3, clines 4, width = 5,
color green,
shading = (-1, 1, 0, 0, -2)
trailing-shift = ( 3, 2, 1 ).
display bar, line 2, col 2, size 78.6, width = 5,
color green,
shading = (-1, 1, 0, 0, -2)
position-shift = -1
leading-shift = ( 0, 1, 2, 3, 4 ).
display bar, line 2, col 80, lines 3, clines 4, width = 5,
color green,
shading = (-1, 1, 0, 0, -2)
leading-shift = (4, 3, 2, 1, 0)
trailing-shift = ( 0, 1, 2, 3, 4 ).
display bar, line 25, col 2, size 78.6, width = 5,
color green,
shading = (-1, 1, 0, 0, -2).
display bar, line 5, col 40, lines 20, clines 21, width = 5,
color green,
shading = (-1, 1, 0, 0, -2)
position-shift = -1
leading-shift = (4, 3, 2, 3, 4)
trailing-shift = ( 0, 1, 2, 1, 0 ).
display label "Tamnho 1:", line 7.3, col 3,
font label-font.
display bar, line 8, col 14, size 20.
display label "Tamanho 2:", line 9.3, col 3,
font label-font.
display bar, line 10, col 14, size 20, width = 2.
display label "Shaded:", line 11.3, col 3,
font label-font.
display bar, line 12, col 14, size 20, width = 2,
color white, low
shading = (-1, 1)
display label "Tamanho 3:", line 13.3, col 3,
font label-font.
display bar, line 14, col 14, size 20, width = 3.
display label "Shaded:", line 15.3, col 3,
font label-font.
display bar, line 16, col 14, size 20, width = 3,
color white, low
shading = (-1, -2, 1)
display label "Tamanho 4:", line 17.3, col 3,
font label-font.
display bar, line 18, col 14, size 20, width = 4.
display label "Shaded:", line 19.3, col 3,
font label-font.
display bar, line 20, col 14, size 20, width = 4,
color white, low
shading = (-1, -1, 1, 1)
display label "Cano:", line 21.3, col 5,
font label-font.
display bar, line 22, col 14, size 20, width = 5,
color white, low
shading = (-1, 2, 0, -1, -2 ).
display label "Pontilhado:", line 7.3, col 45,
font label-font.
display bar, line 8, col 55, size 20, color = red, dotted.
display label "Tracejado:", line 9.3, col 45,
font label-font.
display bar, line 10, col 55, size 20, color = blue, dashed.
* Mostra as laterais Azul "T".
display bar, line 13, col 50, lines 8, width = 4,
colors = ( 1, 12, 12, 1 ),
position-shift = -1.
display bar, line 16, col 43, size 7, csize 8, width = 4,
colors = ( 1, 12, 12, 1 ).
* Mostra as curvas de baixo "L".
display bar, line 13, col 53, lines 8, width = 3
colors = ( 1, 16, 1 ).
display bar, line 13, col 53, size 10, width = 3,
colors = ( 1, 16, 1 ),
leading-shift = ( 0, 1, 2 ).
* Mostra as curvas "L".
display bar, line 13, col 64, lines 8, clines 9, width = 5
color white, low
shading = (-1, 2, 0, -1, -2).
display bar, line 21, col 55, size 9, csize 10, width = 5,
color white, low,
shading = (-1, 2, 0, -1, -2 )
position-shift = -4,
trailing-shift = ( 1, 2, 3, 4, 5 )
* Mostra as linhas azuis em varias espessuras.
perform varying ctr from 1 by 1 until ctr > 10
display bar, line ctr + 12, col 68, size 10,
color blue, high, width = ctr
end-perform.
accept omitted.
stop run.
initialization.
accept terminal-abilities from terminal-info.