Honeycombs: Difference between revisions
J
m (→{{header|Wren}}: Minor change following change to corresponding Polygon constructor.) |
(J) |
||
Line 1,860:
{{libheader|Icon Programming Library}}
[http://www.cs.arizona.edu/icon/library/src/procs/printf.icn printf.icn provides formatting]
=={{header|J}}==
<lang J>require'ide/qt/gl2'
coinsert'jgl2'
NB. corners of a unit hexagon
ucorn=: +.^j.2p1*(%~i.)6
NB. center to center offset for columns and rows
uof=: %:2.3 3
shape=:4 5
scale=:50
scorn=: scale*ucorn
centers=: scale*(((%:0 0.75)*/~2|{:"1)+uof*"1 1:+|."1)shape#:i.shape
honeycomb=: {{)n
pc honeycomb nosize closeok;
minwh 460 460;
cc hex isidraw flush;
pshow;
}}{{
sel=:0"0 grid=: shape$u:65+(*/shape)?26
txt=:''
wd m
draw y
}}
draw=: {{
glfill 0 0 0 255
hex"0 i.$grid
gltextcolor glrgb 0 0 255
glfont 'courier 24'
gltextxy 60 10
glpaint gltext txt
}}
hex=: {{
coord=.<shape#:y
center=. coord{centers
glbrush glrgb (-coord{sel)|.255 255 0
glrgb 255 255 255
glpen 3,PS_SOLID
glpolygon,<.center+"1 scorn
gltextcolor glrgb 255 0 0
glfont 'courier 24 bold'
gltextxy <.center-10
gltext coord{grid
}}
select_character=: {{
if.-. y{,sel do. NB. the selected character has been determined
txt=:txt, y{,grid
end.
draw sel=: 1 (y"_)} sel
}}
honeycomb_hex_char=: {{
ch=.toupper {.sysdata
if. ch e. ,grid do. select_character (,grid)i.ch end.
}}
honeycomb_hex_mbldown=:{{
xy=.2{.".sysdata
k=. (i.<./)dist=.,+/&.:*:"1 centers-"1 xy
if.scale >k{dist do.select_character k end.
}}
honeycomb''</lang>
=={{header|Java}}==
| |||