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|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}}

[http://www.cs.arizona.edu/icon/library/src/procs/printf.icn printf.icn provides formatting]

 

=={{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|Perl}}==

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|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}}