rajz / sidenote

Creeper

2014. augusztus 3. 18:17

As a follow-up for my last post hereby I present a Creeper (right) in (Lua)LaTeX.

Image source (left): File:Creeper.png – Minecraft Wiki

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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247

% Creeper
% Author: István Szántai (szantaii)
\documentclass{article}

\usepackage{luacode}

\usepackage{xcolor}

\usepackage{tikz}
\usepackage{tikz-3dplot}

\usepackage[active, tightpage]{preview}
\PreviewEnvironment{tikzpicture}
\setlength{\PreviewBorder}{1cm}

\definecolor{creeper_white}{HTML}{9AD78E}
\definecolor{creeper_lightgreen}{HTML}{5ED04C}
\definecolor{creeper_green}{HTML}{00A500}
\definecolor{creeper_darkgreen}{HTML}{255522}

\begin{luacode*}
function draw_coordinate_system()
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(3,0,0) node[text=white!50!gray,anchor=north east]{$x$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,3,0) node[text=white!50!gray,anchor=west]{$y$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,0,3) node[text=white!50!gray,anchor=south]{$z$};")
end

function matrix_scalar_multiplication(matrix, scalar)
local rows = #matrix
local cols = #matrix[1]
local tmp_matrix = {}

for i = 1, rows do
tmp_matrix[i] = {}
for j = 1, cols do
tmp_matrix[i][j] = matrix[i][j] * scalar
end
end

return tmp_matrix
end

function shift_coordinates(matrix, array)
local matrix_rows = #matrix
local matrix_cols = #matrix[1]
local array_length = #array
local tmp_matrix = {}

if matrix_cols == array_length then
for i = 1, matrix_rows do
tmp_matrix[i] = {}
for j = 1, matrix_cols do
tmp_matrix[i][j] = matrix[i][j] + array[j]
end
end

return tmp_matrix
else
return nil
end
end

function tikzcube(x, y, z, color)
local side_1 = {{1, 1, -1},
{-1, 1, -1},
{-1, -1, -1},
{1, -1, -1}}
local side_2 = {{-1, 1, -1},
{-1, 1, 1},
{-1, -1, 1},
{-1, -1, -1}}
local side_3 = {{-1, -1, -1},
{1, -1, -1},
{1, -1, 1},
{-1, -1, 1}}
local side_4 = {{1, 1, -1},
{-1, 1, -1},
{-1, 1, 1},
{1, 1, 1}}
local side_5 = {{1, -1, -1},
{1, 1, -1},
{1, 1, 1},
{1, -1, 1}}
local side_6 = {{1, 1, 1},
{-1, 1, 1},
{-1, -1, 1},
{1, -1, 1}}
local cube_sides = {side_1, side_2, side_3, side_4, side_5, side_6}
local tex_cube = ""

for i = 1, #cube_sides do
tex_cube = tex_cube .. "\\draw[ultra thin, fill=" .. color .. "] "

local current_side = matrix_scalar_multiplication(cube_sides[i], 0.5)
current_side = shift_coordinates(current_side, {x, y, z})

local current_side_rows = #current_side
local current_side_cols = #current_side[1]

for j = 1, current_side_rows do
for k = 1, current_side_cols do
if k == 1 then
tex_cube = tex_cube .. "("
end

tex_cube = tex_cube .. current_side[j][k]

if k ~= current_side_cols then
tex_cube = tex_cube .. ", "
else
tex_cube = tex_cube .. ") -- "
end
end
end

tex_cube = tex_cube .. "cycle;"

end

tex.sprint(tex_cube)
end

function draw_head(x_pos, y_pos, z_pos, colors_array)
for x = x_pos, x_pos + 7, 1 do
for y = y_pos, y_pos + 7, 1 do
for z = z_pos, z_pos + 7, 1 do
if x == x_pos or x == x_pos + 7 or
y == y_pos or y == y_pos + 7 or
z == z_pos or z == z_pos + 7 then

local color_index = math.random(1, #colors_array - 1)
tikzcube(x, y, z, colors_array[color_index])

if x == x_pos + 7 and
(z == z_pos + 4 and
(y == y_pos + 2 or y == y_pos + 5)) or
(z == z_pos + 2 and
(y == y_pos + 3 or y == y_pos + 4)) or
(z == z_pos + 1 and
(y > 1 and y < 6)) then

tikzcube(x, y, z, "black")
end

if x == x_pos + 7 and
((z == z_pos + 5 and
((y > y_pos and y < y_pos + 3) or
(y > y_pos + 4 and y < y_pos + 7))) or
(z == z_pos + 4 and
(y == y_pos + 1 or y == y_pos + 6)) or
(z == z_pos + 3 and
(y == y_pos + 3 or y == y_pos + 4)) or
(z == z_pos + 2 and
(y == y_pos + 2 or y == y_pos + 5)) or
(z == z_pos and
(y == y_pos + 2 or y == y_pos + 5))) then

tikzcube(x, y, z, colors_array[#colors_array])
end
end
end
end
end
end

function draw_leg(x_pos, y_pos, z_pos, colors_array)
for x = x_pos, x_pos + 3, 1 do
for y = y_pos, y_pos + 7, 1 do
for z = z_pos, z_pos + 5, 1 do
if x == x_pos or x == x_pos + 3 or
y == y_pos or y == y_pos + 7 or
z == z_pos or z == z_pos + 5 then

local color_index = math.random(1, #colors_array - 1)
tikzcube(x, y, z, colors_array[color_index])

if x == x_pos + 3 and
((z == z_pos + 1 and
(y == y_pos or y == y_pos + 2 or
y == y_pos + 4 or y == y_pos + 6)) or
(z == z_pos and
(y == y_pos + 1 or y == y_pos + 3 or
y == y_pos + 5 or y == y_pos + 7))) then

tikzcube(x, y, z, colors_array[#colors_array])
end

if x == x_pos + 3 and
((z == z_pos + 1 and
(y == y_pos + 1 or y == y_pos + 3 or
y == y_pos + 5 or y == y_pos + 7)) or
(z == z_pos and
(y == y_pos or y == y_pos + 2 or
y == y_pos + 4 or y == y_pos + 6))) then

tikzcube(x, y, z, "black")
end
end
end
end
end
end

function draw_bodypart(x_pos, y_pos, z_pos, x_length, y_length, z_length, colors_array)
local color
for x = x_pos, x_pos + x_length - 1, 1 do
for y = y_pos, y_pos + y_length - 1, 1 do
for z = z_pos, z_pos + z_length - 1, 1 do
if x == x_pos or x == x_pos + x_length - 1 or
y == y_pos or y == y_pos + y_length - 1 or
z == z_pos or z == z_pos + z_length - 1 then

local color_index = math.random(1, #colors_array)
tikzcube(x, y, z, colors_array[color_index])
end
end
end
end
end

function draw_creeper(x_rotation, z_rotation)
local creeper_colors = {"creeper_white",
"creeper_lightgreen",
"creeper_green",
"creeper_darkgreen"}

tex.sprint("\\tdplotsetmaincoords{" .. x_rotation .. "}{" .. z_rotation .. "}")
tex.sprint("\\begin{tikzpicture}[tdplot_main_coords]")

math.randomseed(os.time())

draw_leg(-2, 0, -18, creeper_colors)
draw_leg(6, 0, -18, creeper_colors)
draw_bodypart(2, 0, -12, 4, 8, 12, creeper_colors)
draw_head(0, 0, 0, creeper_colors)
-- draw_coordinate_system()

tex.sprint("\\end{tikzpicture}")
end
\end{luacode*}

\begin{document}
\luadirect{draw_creeper(66, 135)}
\end{document}

Drawing an Enderman in LaTeX

Írta: szantaii

2014. július 20. 9:53

alkotunk, játék, szoftver

In the last couple of months I’ve watched some videos of Achievement Hunter’s Let’s Play Minecraft videos where were some encounters with Endermen. I was really fascinated by these creatures since they can teleport, demand respect, mysterious, etc.

I have been “playing” with LaTeX, especially with LuaTeX, recently, and I wanted to make a 3D-like picture. So I have chosen tikz‑3dplot and LuaTeX to draw an Enderman. (I think this is totally drawable with pure TikZ (syntax), therefore compilable with pdflatex, etc., but I found making this using LuaTeX much more simple.)

Image source (left): File:Enderman normal.png – Minecraft Wiki

My drawing (right) is not accurate by many aspects, but I’ve achieved what I wanted.

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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200

% Enderman
% Author: István Szántai (szantaii)
\documentclass{article}

\usepackage{luacode}

\usepackage{xcolor}

\usepackage{tikz}
\usepackage{tikz-3dplot}

\usepackage[active, tightpage]{preview}
\PreviewEnvironment{tikzpicture}
\setlength{\PreviewBorder}{1cm}

\definecolor{endermanblack}{HTML}{000000}
\definecolor{endermangray}{HTML}{161616}
%\definecolor{endermanpurple}{HTML}{CC00FA}
%\definecolor{endermanlightpurple}{HTML}{E079FA}
\definecolor{endermanpurple}{HTML}{FF9EFF}
\definecolor{endermanlightpurple}{HTML}{FFC9FF}
\definecolor{particlecolor}{HTML}{DF4AF8}

\begin{luacode*}
function draw_coordinate_system()
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(3,0,0) node[text=white!50!gray,anchor=north east]{$x$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,3,0) node[text=white!50!gray,anchor=west]{$y$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,0,3) node[text=white!50!gray,anchor=south]{$z$};")
end

function tikzcube(x, y, z, color)
--[[
\draw[fill=red] (0.5, 0.5, -0.5) -- (-0.5, 0.5, -0.5) -- (-0.5, -0.5, -0.5) -- (0.5, -0.5, -0.5) -- cycle;
\draw[fill=red] (-0.5, 0.5, -0.5) -- (-0.5, 0.5, 0.5) -- (-0.5, -0.5, 0.5) -- (-0.5, -0.5, -0.5) -- cycle;
\draw[fill=red] (-0.5, -0.5, -0.5) -- (0.5, -0.5, -0.5) -- (0.5, -0.5, 0.5) -- (-0.5, -0.5, 0.5) -- cycle;
\draw[fill=red] (0.5, 0.5, -0.5) -- (-0.5, 0.5, -0.5) -- (-0.5, 0.5, 0.5) -- (0.5, 0.5, 0.5) -- cycle;
\draw[fill=red] (0.5, -0.5, -0.5) -- (0.5, 0.5, -0.5) -- (0.5, 0.5, 0.5) -- (0.5, -0.5, 0.5) -- cycle;
\draw[fill=red] (0.5, 0.5, 0.5) -- (-0.5, 0.5, 0.5) -- (-0.5, -0.5, 0.5) -- (0.5, -0.5, 0.5) -- cycle;
]]
local cube = ""

cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- cycle;"
cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- cycle;"
cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- cycle;"
cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- cycle;"
cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", -0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- cycle;"
cube = cube .. "\\draw[ultra thin, fill=" .. color .. "]" ..
"(0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", 0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(-0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- " ..
"(0.5 + " .. x .. ", -0.5 + " .. y .. ", 0.5 + " .. z .. ") -- cycle;"

tex.sprint(cube)
end

function draw_head(x_pos, y_pos, z_pos)
local color
for x = x_pos, x_pos + 7, 1 do
for y = y_pos, y_pos + 7, 1 do
for z = z_pos, z_pos + 6, 1 do
if (x == x_pos or x == x_pos + 7 or
y == y_pos or y == y_pos + 7 or
z == z_pos or z == z_pos + 6) and
not (x == x_pos + 7 and y > y_pos and y < y_pos + 7 and z == z_pos) then

if x == x_pos + 7 and
(y == y_pos or y == y_pos + 2 or
y == y_pos + 5 or y == y_pos + 7) and
z == z_pos + 2 then

tikzcube(x, y, z, "endermanlightpurple")
elseif x == x_pos + 7 and
(y == y_pos + 1 or y == y_pos + 6) and
z == z_pos + 2 then

tikzcube(x, y, z, "endermanpurple")
else
if math.random(0, 8) < 6 then
color = "endermangray"
else
color = "endermanblack"
end
tikzcube(x, y, z, color)
end
end
end
end
end
end

function draw_bodypart(x_pos, y_pos, z_pos, x_length, y_length, z_length)
local color
for x = x_pos, x_pos + x_length - 1, 1 do
for y = y_pos, y_pos + y_length - 1, 1 do
for z = z_pos, z_pos + z_length - 1, 1 do
if x == x_pos or x == x_pos + x_length - 1 or
y == y_pos or y == y_pos + y_length - 1 or
z == z_pos or z == z_pos + z_length - 1 then

if math.random(0, 8) < 6 then
color = "endermangray"
else
color = "endermanblack"
end
tikzcube(x, y, z, color)
end
end
end
end
end

function draw_particles(x_min, x_max, y_min, y_max, z_min, z_max)
local x
local y
local z
local black_amount
local particle_size
local particle_scale
local particle_count = math.random(30, 40)
local particle

for i = 1, particle_count, 1 do

x = math.random(x_min, x_max)
y = math.random(y_min, y_max)
z = math.random(z_min, z_max)

particle_size = math.random(1, 8)
particle_scale = math.random(20, 100) / 100
black_amount = math.random(0, 25)

tex.sprint("\\tdplottransformmainscreen{" .. x .. "}{" .. y .. "}{" .. z .. "}")
for i = 0, particle_size - 1, 1 do
for j = 0, particle_size - 1, 1 do
if math.random(0, 1) == 0 and
((i ~= 0 and j ~= 0) and
(i ~= particle_size - 1 and j ~= 0) and
(j ~= particle_size - 1 and i ~= 0) and
(i ~= particle_size - 1 and j ~= particle_size - 1)) then

particle = "\\filldraw[black!" .. black_amount ..
"!particlecolor, tdplot_screen_coords] (" ..
i * particle_scale * 0.25 .. "+\\tdplotresx, " ..
j * particle_scale * 0.25 .. "+\\tdplotresy) " ..
"rectangle +(" .. particle_scale .. "*0.25, " ..
particle_scale .. "*0.25);"

tex.sprint(particle)
end
end
end
end
end

function draw_enderman(x_rotation, z_rotation)
tex.sprint("\\tdplotsetmaincoords{" .. x_rotation .. "}{" .. z_rotation .. "}")
tex.sprint("\\begin{tikzpicture}[tdplot_main_coords]")

math.randomseed(os.time())

draw_bodypart(3, -2, -30, 2, 2, 30) -- right arm
draw_bodypart(3, 1, -42, 2, 2, 30) -- right leg
draw_bodypart(3, 5, -42, 2, 2, 30) -- left leg
draw_bodypart(2, 0, -12, 4, 8, 12) -- body
draw_bodypart(3, 8, -30, 2, 2, 30)-- left arm
draw_head(0, 0, 0) -- head

draw_particles(-10, 10, -10, 10, -44, 10)
-- draw_coordinate_system()

tex.sprint("\\end{tikzpicture}")
end
\end{luacode*}

\begin{document}
\luadirect{draw_enderman(70, 130)}
\end{document}

Copy the code, save with UTF-8 (without BOM) encoding, and compile using lualatex.

lualatex filename.tex

Update ~16:00 CEST on 21 July 2014:

Yesterday I’ve sent in this code as an example for TeXample.net. I got an answer from the site maintainer including a small improvement suggestion, namely that I should try algorithmize the drawing of a single (TikZ) cube (instead of concatenating a bunch of strings and make the TeX engine do the calculations). So I did, see the code below. (More details below the code.)

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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250

% Enderman
% Author: István Szántai (szantaii)
\documentclass{article}

\usepackage{luacode}

\usepackage{xcolor}

\usepackage{tikz}
\usepackage{tikz-3dplot}

\usepackage[active, tightpage]{preview}
\PreviewEnvironment{tikzpicture}
\setlength{\PreviewBorder}{1cm}

\definecolor{endermanblack}{HTML}{000000}
\definecolor{endermangray}{HTML}{161616}
%\definecolor{endermanpurple}{HTML}{CC00FA}
%\definecolor{endermanlightpurple}{HTML}{E079FA}
\definecolor{endermanpurple}{HTML}{FF9EFF}
\definecolor{endermanlightpurple}{HTML}{FFC9FF}
\definecolor{particlecolor}{HTML}{DF4AF8}

\begin{luacode*}
function draw_coordinate_system()
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(3,0,0) node[text=white!50!gray,anchor=north east]{$x$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,3,0) node[text=white!50!gray,anchor=west]{$y$};")
tex.sprint("\\draw[white!50!gray,thick,->] (0,0,0) -- " ..
"(0,0,3) node[text=white!50!gray,anchor=south]{$z$};")
end

function matrix_scalar_multiplication(matrix, scalar)
local rows = #matrix
local cols = #matrix[1]
local tmp_matrix = {}

for i = 1, rows do
tmp_matrix[i] = {}
for j = 1, cols do
tmp_matrix[i][j] = matrix[i][j] * scalar
end
end

return tmp_matrix
end

function shift_coordinates(matrix, array)
local matrix_rows = #matrix
local matrix_cols = #matrix[1]
local array_length = #array
local tmp_matrix = {}

if matrix_cols == array_length then
for i = 1, matrix_rows do
tmp_matrix[i] = {}
for j = 1, matrix_cols do
tmp_matrix[i][j] = matrix[i][j] + array[j]
end
end

return tmp_matrix
else
return nil
end
end

function tikzcube(x, y, z, color)
local side_1 = {{1, 1, -1},
{-1, 1, -1},
{-1, -1, -1},
{1, -1, -1}}
local side_2 = {{-1, 1, -1},
{-1, 1, 1},
{-1, -1, 1},
{-1, -1, -1}}
local side_3 = {{-1, -1, -1},
{1, -1, -1},
{1, -1, 1},
{-1, -1, 1}}
local side_4 = {{1, 1, -1},
{-1, 1, -1},
{-1, 1, 1},
{1, 1, 1}}
local side_5 = {{1, -1, -1},
{1, 1, -1},
{1, 1, 1},
{1, -1, 1}}
local side_6 = {{1, 1, 1},
{-1, 1, 1},
{-1, -1, 1},
{1, -1, 1}}
local cube_sides = {side_1, side_2, side_3, side_4, side_5, side_6}
local tex_cube = ""

for i = 1, #cube_sides do
tex_cube = tex_cube .. "\\draw[ultra thin, fill=" .. color .. "] "

local current_side = matrix_scalar_multiplication(cube_sides[i], 0.5)
current_side = shift_coordinates(current_side, {x, y, z})

local current_side_rows = #current_side
local current_side_cols = #current_side[1]

for j = 1, current_side_rows do
for k = 1, current_side_cols do
if k == 1 then
tex_cube = tex_cube .. "("
end

tex_cube = tex_cube .. current_side[j][k]

if k ~= current_side_cols then
tex_cube = tex_cube .. ", "
else
tex_cube = tex_cube .. ") -- "
end
end
end

tex_cube = tex_cube .. "cycle;"

end

tex.sprint(tex_cube)
end

function draw_head(x_pos, y_pos, z_pos)
local color
for x = x_pos, x_pos + 7, 1 do
for y = y_pos, y_pos + 7, 1 do
for z = z_pos, z_pos + 6, 1 do
if (x == x_pos or x == x_pos + 7 or
y == y_pos or y == y_pos + 7 or
z == z_pos or z == z_pos + 6) and
not (x == x_pos + 7 and y > y_pos and y < y_pos + 7 and z == z_pos) then

if x == x_pos + 7 and
(y == y_pos or y == y_pos + 2 or
y == y_pos + 5 or y == y_pos + 7) and
z == z_pos + 2 then

tikzcube(x, y, z, "endermanlightpurple")
elseif x == x_pos + 7 and
(y == y_pos + 1 or y == y_pos + 6) and
z == z_pos + 2 then

tikzcube(x, y, z, "endermanpurple")
else
if math.random(0, 8) < 6 then
color = "endermangray"
else
color = "endermanblack"
end
tikzcube(x, y, z, color)
end
end
end
end
end
end

function draw_bodypart(x_pos, y_pos, z_pos, x_length, y_length, z_length)
local color
for x = x_pos, x_pos + x_length - 1, 1 do
for y = y_pos, y_pos + y_length - 1, 1 do
for z = z_pos, z_pos + z_length - 1, 1 do
if x == x_pos or x == x_pos + x_length - 1 or
y == y_pos or y == y_pos + y_length - 1 or
z == z_pos or z == z_pos + z_length - 1 then

if math.random(0, 8) < 6 then
color = "endermangray"
else
color = "endermanblack"
end
tikzcube(x, y, z, color)
end
end
end
end
end

function draw_particles(x_min, x_max, y_min, y_max, z_min, z_max)
local x
local y
local z
local black_amount
local particle_size
local particle_scale
local particle_count = math.random(30, 40)
local particle

for i = 1, particle_count, 1 do

x = math.random(x_min, x_max)
y = math.random(y_min, y_max)
z = math.random(z_min, z_max)

particle_size = math.random(1, 8)
particle_scale = math.random(20, 100) / 100
black_amount = math.random(0, 25)

tex.sprint("\\tdplottransformmainscreen{" .. x .. "}{" .. y .. "}{" .. z .. "}")
for i = 0, particle_size - 1, 1 do
for j = 0, particle_size - 1, 1 do
if math.random(0, 1) == 0 and
((i ~= 0 and j ~= 0) and
(i ~= particle_size - 1 and j ~= 0) and
(j ~= particle_size - 1 and i ~= 0) and
(i ~= particle_size - 1 and j ~= particle_size - 1)) then

particle = "\\filldraw[black!" .. black_amount ..
"!particlecolor, tdplot_screen_coords] (" ..
i * particle_scale * 0.25 .. "+\\tdplotresx, " ..
j * particle_scale * 0.25 .. "+\\tdplotresy) " ..
"rectangle +(" .. particle_scale .. "*0.25, " ..
particle_scale .. "*0.25);"

tex.sprint(particle)
end
end
end
end
end

function draw_enderman(x_rotation, z_rotation)
tex.sprint("\\tdplotsetmaincoords{" .. x_rotation .. "}{" .. z_rotation .. "}")
tex.sprint("\\begin{tikzpicture}[tdplot_main_coords]")

math.randomseed(os.time())

draw_bodypart(3, -2, -30, 2, 2, 30) -- right arm
draw_bodypart(3, 1, -42, 2, 2, 30) -- right leg
draw_bodypart(3, 5, -42, 2, 2, 30) -- left leg
draw_bodypart(2, 0, -12, 4, 8, 12) -- body
draw_bodypart(3, 8, -30, 2, 2, 30)-- left arm
draw_head(0, 0, 0) -- head

draw_particles(-10, 10, -10, 10, -44, 10)
-- draw_coordinate_system()

tex.sprint("\\end{tikzpicture}")
end
\end{luacode*}

\begin{document}
\luadirect{draw_enderman(70, 130)}
\end{document}

I have added two new functions (matrix_scalar_multiplication, shift_coordinates), and rewrote the tikzcube function, so now the LuaTeX engine makes all necessary calculations instead of the TeX (TikZ?) engine which is considerably slower. Let’s see the numbers.

I’ve measured the compilation time of the original and the improved code. I made 20–20 “dry” compilations (no previous aux, log or pdf files). The average compilation time of the original code was 25.35 seconds while the improved code’s average was only 18.30 seconds. This means that the improved version is 25% faster than the previous one. Stefan, thanks for your suggestion!

TypoTux

Írta: szantaii

2011. november 16. 21:54

alkotunk, gizmó

This is my submission for the Show Off Your Skillz in TeX & Friends Contest at TeX.sx.

Full LaTeX source and description ~~coming soon~~ below the picture.

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

% TypoTux
% Created by szantaii
% Compiled with pdflatex using TeX Live 2011
%
% Use it as you like, but please send me an e-mail if you do.

\documentclass[10pt,a4paper]{article}

% Specifying input encoding
\usepackage[utf8]{inputenc}

% Using the TikZ library for drawing Tux, and clipping
\usepackage{tikz}

% Loaded for unnumbered captions
\usepackage{caption}

% For inserting lorem ipsum text
\usepackage{lipsum}

% Setting baselines smaller
\setlength{\baselineskip}{6pt}

\begin{document}

%\lipsum[1]

\begin{figure}[h!]
\centering
\begin{tikzpicture}[y=0.80pt,x=0.80pt,yscale=-1, inner sep=0pt, outer sep=0pt,scale=0.25]
\begin{scope}[shift={(-249.6684,-294.38903)}]
%\begin{scope}[cm={{0.55569,0.0,0.0,0.55569,(249.6684,292.4824)}}]
\begin{scope}

% Tux's path used for clipping
% Generated with Inkscape / http://inkscape.org/
% Using the inkscape2tikz extension / http://code.google.com/p/inkscape2tikz/
\path[clip] (265.5000,1063.0000) .. controls (252.9000,1061.0000) and
% Tux's path used for clipping cut from here because it's too long to include.
% See link for full compilable source at the end of the post.

% Adding lorem ipsum text using TikZ nodes, and the lipsum package
\node[inner sep=0,text width=10cm] (text1) at (450,450) {\LARGE\textit{\lipsum[1]}};
\node[inner sep=0,text width=10cm] (text1) at (500,500) {\LARGE\textit{\lipsum[2]}};
\node[inner sep=0,text width=10cm] (text1) at (450,450) {\textit{\lipsum[3-4]}};
\node[inner sep=0,text width=10cm] (text1) at (500,500) {\textit{\lipsum[5-6]}};
\node[inner sep=0,text width=10cm] (text2) at (450,450) {\scriptsize\textit{\lipsum[7-11]}};
\node[inner sep=0,text width=10cm] (text2) at (475,475) {\scriptsize\textit{\lipsum[12-16]}};
\node[inner sep=0,text width=10cm] (text2) at (500,500) {\scriptsize\textit{\lipsum[17-21]}};
\end{scope}
\end{scope}
\end{tikzpicture}

\caption*{TypoTux}
\end{figure}

%\lipsum[2]

\end{document}

I have always wanted to create something like this. After I read about this contest I decided to make a Tux who’s drawn by text. I chose TikZ & PGF for this purpose since it’s very powerful, and I used it several times before for path clipping.

Step-by-step description how I made this:

Grabbed a 2D vectorized Tux image from Wikipedia.
Removed colored and unnecessary white paths from the image, resized page with Inkscape.
Saved the black & white image as a standalone TikZ image with Inkscape using the inkscape2tikz extension.
Removed some unnecessary paths from the tex source file, changed path filling to clipping.
Added nodes filled with different size of lorem ipsum text using the lipsum package. Note: this was the hardest part, because there was no other way but trying to place the text under the clip path.
A little bit of fancying, and cleaning up.

Use it for whatever you want to, but please let me know if you do. I compiled it with pdflatex using TeX Live 2011.

Full compilable source

The Noun Project

Írta: szantaii

2010. december 30. 16:28

gizmó, művészet, dizájn, void *

You Are Entering a World of Paint!

Írta: szantaii

2010. december 8. 18:37

alkotunk, film, gizmó

szantaii:
azonnal posztolom.

> Petya:
> meg lennek hatva!
>
>> szantaii:
>> ezkurvajo! sidenote pozitiv?
>>
>>> Petya:
>>> csinaltam! humor!

Kösz, Petya.

rajz

Kurzorlenyomat

Írta: szantaii

2010. május 15. 19:13

alkotunk, szoftver

A fenti képet az IOGraph nevű program késztítette. Az egész lényege, hogy az asztal felbontásának megfelelően végigköveti az egérmozgást, és megrajzolja a az egérmutató útvonalát. A képen látható fekete pöttyök azok a helyek, ahol az egér sokáig időzött két mozgatás között.

A képen látható időintervallum és a felette látható szöveg ne tévesszen meg senkit. Arra az egy órára amíg nem használtam a gépet, addig nyomtam egy pause-t, hogy ne legyen gigantikus fekete paca a képen. Szóval a felső, már-már művészi képet pontosan egy órányi netezés közbeni egerezés során rajzolódott ki a winuxos gépemen. Nem kell félni, a szoftver elérhető Linuxra, Winuxra és Macuxra is, de tulajdonképpen amire van Java VM azon valószínű, hogy menni fog.

rajz

Press Play on Tape meg komik

Írta: szantaii

2009. február 1. 19:09

gizmó, zene

Ha már az ismerőseim fele azt állítja, hogy úgy nézek ki, mint Roy az It Crowdból, akkor számomra megengedett a kockulás.

PPOT

A héten ismerkedtem meg a Press Play on Tape nevű dán izomkocka bandával, akik régi játékok zenét nyomják koncertjeiken. Először kezdjük talán a csodás Cannon Fodder játék zenéjével, amit a következő klipen csak játékkontrollerek használatával adnak elő a művészek.

Ha megvolt a videó, akkor már csak egy utolsót szeretnék mutatni, ami személyes kedvencem: Monkey Island természetesen a Press Play on Tape előadásában. Legeslegjobb játék és zene. :)

A kocka zene mellá már csak egy kocka képregénysorozatot ajánlanék így vasárnap estére: Geek Hero Comic, ott van.

rajz

sidenote

Creeper

Drawing an Enderman in LaTeX

Update ~16:00 CEST on 21 July 2014:

TypoTux

The Noun Project

You Are Entering a World of Paint!

Kurzorlenyomat

Press Play on Tape meg komik

Személyes

Quick Access

Közösség

Mit olvasunk?

Kategóriák

Friss kommentek