-
Notifications
You must be signed in to change notification settings - Fork 2
/
screen.pl
executable file
·116 lines (100 loc) · 3.7 KB
/
screen.pl
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
%% screen.pl
%% Breason out 10 scrnsongs
:-include('../Text-to-Breasonings/text_to_breasonings.pl').
%% run postsong/postsong.
%% before sectest0.
sectest0 :-
%% Pixel grid is 10 cm above centre of MacBook Air camera
%% Pixels are 1,1,1 mm, facing west
%% Pixels are on for 5 seconds
%% 0,0 is origin
%% For Cosmology to work:
texttobr2(1000), %% 100 done-up As * 10 songs
texttobr2(2), %% dot on graciously give, graciously give
texttobr2(20), %% spiritually play 10 songs to light pixel
/**light([
[0,0,black],[1,0,white],
[0,1,black],[1,1,white],
[0,2,black],[1,2,white],
[0,3,black],[1,3,white],
[0,4,black],[1,4,white],
[0,5,black],[1,5,white],
[0,6,black],[1,6,white],
[0,7,black],[1,7,white],
[0,8,black],[1,8,white],
[0,9,black],[1,9,white]
]).**/
/**light([[1,9,white],[2,9,white],[3,9,black],[4,9,white],[5,9,white],
[1,8,white],[2,8,white],[3,8,black],[4,8,white],[5,8,white],
[1,7,white],[2,7,black],[3,7,white],[4,7,black],[5,7,white],
[1,6,white],[2,6,black],[3,6,white],[4,6,black],[5,6,white],
[1,5,white],[2,5,black],[3,5,white],[4,5,black],[5,5,white],
[1,4,black],[2,4,white],[3,4,white],[4,4,white],[5,4,black],
[1,3,black],[2,3,white],[3,3,white],[4,3,white],[5,3,black],
[1,2,white],[2,2,white],[3,2,white],[4,2,white],[5,2,white],
[1,1,white],[2,1,white],[3,1,white],[4,1,white],[5,1,white]]).
**/
%% 1 black, 2 white, 3 red, 4 orange, 5 yellow, 6 green, 7 blue, 8 purple, 9 brown, 10 grey
random(X),Y is round(10*X),
light(Y,[[1,9,0],[2,9,0],[3,9,1],[4,9,0],[5,9,0],
[1,8,0],[2,8,0],[3,8,1],[4,8,0],[5,8,0],
[1,7,0],[2,7,1],[3,7,0],[4,7,1],[5,7,0],
[1,6,0],[2,6,1],[3,6,0],[4,6,1],[5,6,0],
[1,5,0],[2,5,1],[3,5,0],[4,5,1],[5,5,0],
[1,4,1],[2,4,0],[3,4,0],[4,4,0],[5,4,1],
[1,3,1],[2,3,0],[3,3,0],[4,3,0],[5,3,1],
[1,2,0],[2,2,0],[3,2,0],[4,2,0],[5,2,0],
[1,1,0],[2,1,0],[3,1,0],[4,1,0],[5,1,0]]),
writeln("Displaying 'A' 10 cm above MacBook Air's camera"),
sleep(5),
writeln(["1 black, 2 white, 3 red, 4 orange, 5 yellow, 6 green, 7 blue, 8 purple, 9 brown, 10 grey\nColour of Letter A=",Y]).
/**
[] [] [1,2] [] []
[] [] [1,2] [] []
[] [1] [] [2] []
[] [1] [] [2] []
[] [1,3] [3] [2,3] []
[1] [] [] [] [2]
[1] [] [] [] [2]
[] [] [] [] []
[] [] [] [] []
**/
/**
%% Takes too long, run mindreadtestmusiccomposer-unusual.pl or postsong
prep :-
ttb2(["scrnsong2019620131426.87270498275757.txt",
"scrnsong2019620131426.87270498275757lyrics.txt",
"scrnsong2019620131428.09975290298462.txt",
"scrnsong2019620131428.09975290298462lyrics.txt",
"scrnsong2019620131430.95198392868042.txt",
"scrnsong2019620131430.95198392868042lyrics.txt",
"scrnsong2019620131432.72644400596619.txt",
"scrnsong2019620131432.72644400596619lyrics.txt",
"scrnsong2019620131435.184492111206055.txt",
"scrnsong2019620131435.184492111206055lyrics.txt",
"scrnsong2019620131437.28680896759033.txt",
"scrnsong2019620131437.28680896759033lyrics.txt",
"scrnsong2019620131438.37197399139404.txt",
"scrnsong2019620131438.37197399139404lyrics.txt",
"scrnsong2019620131439.7610969543457.txt",
"scrnsong2019620131439.7610969543457lyrics.txt",
"scrnsong2019620131442.2528030872345.txt",
"scrnsong2019620131442.2528030872345lyrics.txt",
"scrnsong2019620131443.59552311897278.txt",
"scrnsong2019620131443.59552311897278lyrics.txt"]).
ttb2([]) :- !.
ttb2(List1) :-
List1=[Item|List2],
texttobr2(8,Item,u,2000), texttobr(8,Item,u,2000),
ttb2(List2).
**/
light(_,[]) :- !.
light(WhitetoColour,Pixels1) :-
Pixels1=[Pixel|Pixels2],
Pixel=[_X,_Y,Colour1],
(Colour1=2-> Colour2=WhitetoColour;Colour2=Colour1),
texttobr2(1000), %% 100 done-up As * 10 songs
texttobr2(2), %% dot on graciously give, graciously give
texttobr2(20), %% spiritually play 10 songs to light pixel
light(WhitetoColour,Pixels2).
%%*** With letter to politics,