Honeycombs: Difference between revisions
→{{header|Kotlin}}
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
|||
Line 1,377:
}
}</lang>
=={{header|Julia}}==
Uses Cairo and Gtk for graphics. Tasks done included the optional one recording of displaying letters chosen with mouse or keyboard.
<lang julia>using Gtk.ShortNames, GtkReactive, Graphics, Cairo, Colors
mutable struct Hexagon
center::Point
radius::Int
letter::String
color::Colorant
end
const offset = 50
const hgt = 450
const wid = 400
const hcombdim = (rows = 5, cols = 4)
const randletters = reshape(string.(Char.(shuffle(UInt8('A'):UInt8('Z'))))[1:20], Tuple(hcombdim))
const win = Window("Honeycombs", wid, hgt)
const can = Canvas()
const honeycomb = Dict{Point, Hexagon}()
const chosen = Vector{String}()
function hexmat(p, rad)
shor = rad * 0.5
long = rad * sqrt(3.0) / 2.0
mat = reshape([shor, long, -shor, long, Float64(-rad), 0.0, -shor, -long, shor, -long, Float64(rad), 0.0], 2, 6)
[Point(mat[1, n] + p.x, mat[2, n] + p.y) for n in 1:6]
end
function whichclicked(clickpos)
centers = [c for c in keys(honeycomb)]
(maybeclicked, idx) = findmin(map(c -> sqrt((clickpos.x - c.x)^2 + (clickpos.y - c.y)^2), centers))
return maybeclicked < offset * sqrt(3) / 2.0 ? centers[idx] : nothing
end
whichtyped(ch) = (for (k, v) in honeycomb if v.letter == ch return k end end; nothing)
function hexagon(ctx, pos, rad, ltr, colr = colorant"yellow")
set_source(ctx, colr)
points = hexmat(pos, rad)
set_line_width(ctx, 4)
polygon(ctx, points)
close_path(ctx)
fill(ctx)
set_source(ctx, colorant"black")
polygon(ctx, points)
close_path(ctx)
stroke(ctx)
move_to(ctx, pos.x - (ltr == "I" ? 7 : 18), pos.y + 15)
set_source(ctx, colr == colorant"yellow" ? colorant"red" : colorant"black")
set_font_size(ctx, offset)
show_text(ctx, ltr)
Hexagon(pos, rad, ltr, colr)
end
hexagon(ctx, h::Hexagon) = hexagon(ctx, h.center, h.radius, h.letter, h.color)
function makehoneycomb(ctx, h, w)
centers = fill(Point(0, 0), hcombdim.rows, hcombdim.cols)
xdelta = 75.0
ydelta = 90.0
for i in 1:hcombdim.rows, j in 1:hcombdim.cols
center = Point((i - 1) * xdelta + offset, (j - 1) * ydelta + ((i - 1 ) % 2 + 1) * offset)
centers[i, j] = center
honeycomb[center] = hexagon(ctx, center, offset, randletters[i, j])
end
centers
end
push!(win, can)
@guarded draw(can) do widget
ctx = getgc(can)
h = height(can)
w = width(can)
if length(honeycomb) == 0
makehoneycomb(ctx, h, w)
else
map(c -> hexagon(ctx, honeycomb[c]), collect(keys(honeycomb)))
end
end
function changecolor(colr)
h = honeycomb[colr]
h.color = colorant"violet"
hexagon(getgc(can), h)
reveal(win, true)
if all(map(k -> honeycomb[k].color == colorant"violet", collect(keys(honeycomb))))
println("All hexagons ($chosen, and the last latter was $(chosen[end])) have been chosen. Exiting.")
exit(0)
else
push!(chosen, h.letter)
end
end
signal_connect(win, "key-press-event") do widget, event
if (whichhexgon = whichtyped(string(uppercase(Char(event.keyval))))) != nothing
changecolor(whichhexgon)
end
end
can.mouse.button1press = @guarded (widget, event) -> begin
if (whichhexgon = whichclicked(Point(event.x, event.y))) != nothing
changecolor(whichhexgon)
end
end
show(can)
condition = Condition()
endit(w) = notify(condition)
signal_connect(endit, win, :destroy)
show(win)
wait(condition)
exit()
</lang>
=={{header|Kotlin}}==
This is a translation of the Java entry except that code has been added to end the program automatically when all the hexagons have been selected.
| |||