Kenny-Programs/sys64738.lua at master · HighWolf/Kenny-Programs · GitHub

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
local component = require("component")
local fs = require("filesystem")
local process = require("process")
local event = require("event")
local keyboard = require("keyboard")
local shell = require("shell")
local term = require("term")
local text = require("text")
local unicode = require("unicode")
local sides = require("sides")
local colors=require("colors")
local gpu = component.gpu


local function spaces(cnt)
	return string.rep(string.char(32), cnt)
end

local function spChar(letter, cnt)
	return string.rep(unicode.char(letter), cnt)
end

local solidBlk = 0x2588
local lowerBlk = 0x2584
local upperBlk = 0x2580
local margin = 20
local arrow1Row = 9
local arrow2Row = 21
local num64Row = 31
local startRow = 5

local c64 = { spaces(9)..spChar(solidBlk, 30),
              spaces(9)..spChar(solidBlk, 30),
              spaces(9)..spChar(solidBlk, 30),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spaces(3)..spChar(solidBlk, 3)..spaces(36)..spChar(solidBlk, 3),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(6)..spChar(solidBlk, 3)..spaces(30)..spChar(solidBlk, 3),
              spaces(9)..spChar(solidBlk, 30),
              spaces(9)..spChar(solidBlk, 30),
              spaces(9)..spChar(solidBlk, 30) }

-- also used for lines 22 - 30

local ribbon = {
    spChar(solidBlk, 21),
    spChar(solidBlk, 20),
    spChar(solidBlk, 19),
    spChar(solidBlk, 18),
    spChar(solidBlk, 17),
    spChar(solidBlk, 18),
    spChar(solidBlk, 19),
    spChar(solidBlk, 20),
    spChar(solidBlk, 21) }

local num64 = {
    spaces(6)..spChar(solidBlk,6)..spaces(18)..spChar(solidBlk,3),
    spaces(3)..spChar(solidBlk,3)..spaces(6)..spChar(solidBlk,3)..spaces(14)..spChar(solidBlk,4),
    spChar(solidBlk,3)..spaces(12)..spChar(solidBlk,3)..spaces(9)..spChar(solidBlk,2)..spaces(1)..spChar(solidBlk,3),
    spChar(solidBlk,3)..spaces(23)..spChar(solidBlk,2)..spaces(2)..spChar(solidBlk,3),
    spChar(solidBlk,3)..spaces(3)..spChar(solidBlk,6)..spaces(13)..spChar(solidBlk,2)..spaces(3)..spChar(solidBlk,3),
    spChar(solidBlk,6)..spaces(6)..spChar(solidBlk,3)..spaces(9)..spChar(solidBlk,10),
    spChar(solidBlk,3)..spaces(12)..spChar(solidBlk,3)..spaces(12)..spChar(solidBlk,3),
    spaces(3)..spChar(solidBlk,3)..spaces(6)..spChar(solidBlk,3)..spaces(15)..spChar(solidBlk,3),
    spaces(6)..spChar(solidBlk,6)..spaces(18)..spChar(solidBlk,3) }

gpu.setBackground(0x0000ee)
gpu.setForeground(0x7ac5cd)
term.clear()
for idx, line in pairs(c64) do
    term.setCursor(margin, idx + startRow)
    print (line)
end


gpu.setForeground(0x7ac5cd)

for idx, line in pairs(ribbon) do
    term.setCursor(margin + 45, idx + arrow1Row + startRow)
    print (line)
end

gpu.setForeground(0xFF0000)
for idx, line in pairs(ribbon) do
    term.setCursor(margin + 45, idx + arrow2Row + startRow)
    print (line)
end

gpu.setForeground(0xFFFFFF)

for idx, line in pairs(num64) do
    term.setCursor(margin + 46, idx + num64Row + startRow)
    print (line)
end


term.setCursor(1,45)