Honeycombs: Difference between revisions

 

Honeycomb class:

package {

 

}

 

Document (main) class:

package {

 

}

 

=={{header|Ada}}==

{{libheader|SDLAda}}

with Ada.Numerics.Discrete_Random;

 

Window.Finalize;

SDL.Finalise;

=={{header|AutoHotkey}}==

Requires [https://www.autohotkey.com/boards/viewtopic.php?f=6&t=6517&start=320 Gdip Library]

hexPerCol := 4 ; cater for a different number of hexagons

size := 40

ExitApp

Return

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

VDU 23,22,252;252;8,16,16,128

*FONT Arial,24,B

SYS "TextOut", @memhdc%, x%-size.dx%/2, y%-size.dy%/2, text$, LEN(text$)

SYS "CreatePolygonRgn", ^pt%(0,0), 6, ALTERNATE TO hrgn%

[[File:honeycombs_bbc.gif]]

 

=={{header|C}}==

 

 

/* Program for gtk3 */

return EXIT_SUCCESS;

}

 

=={{header|C sharp}}==

using System.Collections.Generic;

using System.Linq;

}

}

XAML:

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

<Canvas x:Name="HoneycombCanvas" HorizontalAlignment="Center" VerticalAlignment="Center"/>

</Grid>

[[File:CSharpHoneycomb.jpg]]

 

=={{header|C++}}==

{{libheader|Qt}}

// honeycombwidget.h

//

};

 

// honeycombwidget.cpp

//

update(cell->polygon.boundingRect());

}

// main.cpp

//

w.show();

return a.exec();

 

{{out}}

=={{header|Go}}==

{{libheader|raylib-go}}

 

import (

 

rl.CloseWindow()

 

=={{header|Haskell}}==

{{libheader|gloss}}

{{libheader|random-shuffle}}

import Data.Function (on)

import Data.List (zipWith4)

(return . drawWorld)

handleInput

 

=={{header|Icon}} and {{header|Unicon}}==

 

Label selection is straight forward. Mouse selection first determines if x,y is within the widgets rectangular outer bounds. The x,y point is then reflected into the north west quadrant of the cell and the helper data is used to calculate an abbreviated cross-product (x and y will always be 0). The direction of the resultant z indicates if the point is inside or outside of the widgets inner bounds.

 

procedure main(A)

return W

}

 

{{libheader|Icon Programming Library}}

=={{header|J}}==

 

coinsert'jgl2'

 

}}

 

 

=={{header|Java}}==

import java.awt.event.*;

import javax.swing.*;

g.drawString(s, x, y);

}

 

=={{header|Julia}}==

Uses Cairo and Gtk for graphics. Tasks done include the optional one of recording and then displaying letters as chosen with mouse or keyboard on exit once all letters are chosen.

 

mutable struct Hexagon

exit()

 

 

=={{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.

 

import java.awt.BasicStroke

}

}

 

=={{header|Liberty BASIC}}==

By Andy Amaya, Sept. 24, 2015 -- with thanks from the Liberty BASIC Community.

NoMainWin

Dim hxc(20,2), ltr(26)

End If

End Function

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

Two players, 5 by 4.

Polygon[Transpose[{{1/2, 1/4, -1/4, -1/2, -1/4, 1/4} +

x, {0, Sqrt[3]/4, Sqrt[3]/4, 0, -Sqrt[3]/4, -Sqrt[3]/4} + y}]];

cols, {If[blue, Blue, Red],

Nearest[locs, MousePosition["Graphics"]][[1]]}];

 

=={{header|MATLAB}}==

*Works for up to 26 hexagons before using lowercase labels, 52 hexagons before repeating letters

*Works off of mouse-click events, so program doesn't need to "quit" as it is not really running constantly

nRows = 4; % Number of rows

nCols = 5; % Number of columns

set(axesH, 'UserData', newList)

title(newList)

 

=={{header|Nim}}==

This program is largely inspired by the C version, but this is not a direct translation. We have reused many parts of the C version, for instance the computations and the way to draw the cells. But we have also introduced a “honeycomb” object, improved somewhat the drawing of the labels and taken advantage of the high level binding to Gtk3 provided by “gintro”.

 

 

import gintro/[gobject, gdk, gtk, gio, cairo]

let app = newApplication(Application, "Rosetta.honeycombs")

discard app.connect("activate", activate)

 

 

The programme uses the ''Tk'' GUI toolkit.

 

use warnings;

use strict;

)->pack;

$mw->bind('<Alt-q>', sub { $btn->invoke });

 

=={{header|Phix}}==

In the 2 player game, the string chosen contains the selections of both players: odd chars = player 1, even chars = player 2.<br>

Included in the distribution as demo\rosetta\honeycomb.exw

include ..\arwen\axtra.ew

 

setHandler(main,routine_id("mainHandler"))

 

 

=={{header|Prolog}}==

Works with SWI-Prolog and XPCE.

new(W, window('Honeycomb')),

new(Counter, counter(20)),

:- pce_end_class(cell).

 

[[File:Prolog_honeycombs.png|400px]]

 

=={{header|PureBasic}}==

Requires PureBasic v4.60. Screen controls in PureBasic are referred to as 'gadgets'.

text.s

Status.i ;nonselected = 0, selected = 1

FreeGadget(honeycomb\gadgetID)

CloseWindow(0)

[[File:PureBasic_Honeycomb.png]]

 

 

=={{header|Racket}}==

 

(struct Hex (x y letter clicked?) #:mutable #:transparent)

 

(displayln "The letters were chosen in the order:")

 

=={{header|Ruby}}==

{{libheader|Shoes}}

C = Math::cos(Math::PI/3)

S = Math::sin(Math::PI/3)

end

end

 

=={{header|Scala}}==

{{libheader|Scala Java Swing interoperability}}

{{works with|Scala|2.13}}

Font, FontMetrics, Graphics, Graphics2D, Point, Polygon, RenderingHints}

import java.awt.event.{KeyAdapter, KeyEvent, MouseAdapter, MouseEvent}

}

 

 

=={{header|Sidef}}==

{{trans|Perl}}

[[File:Honeycombs_sidef.png|250px|thumb|right]]

 

class Honeycombs(

}

 

 

=={{header|Tcl}}==

{{libheader|Tk}}

package require Tk

 

tkwait window .c

puts "overall list of characters: $chosen"

 

=={{header|Wren}}==

 

The following script uses a font called ''memory.ttf''. If this is not present in your DOME distribution, it can be downloaded from [https://github.com/domeengine/dome/raw/main/examples/fonts/memory.ttf here] and should be placed in the same directory as the script itself.

import "dome" for Window, Process

import "math" for Math

}

 

 

=={{header|XPL0}}==

[[File:HoneyXPL0.gif|right]]

 

proc DrawHexagon(X0, Y0, Side, Color); \Draw a filled hexagon centered at X0,Y0

until Counter >= Cols*Rows;

SetVid($03); \restore normal text display

 

{{omit from|ACL2}}