mirror of
https://github.com/nim-lang/Nim.git
synced 2026-01-10 15:04:59 +00:00
120 lines
2.8 KiB
Nim
120 lines
2.8 KiB
Nim
discard """
|
|
output: '''
|
|
vidx 18
|
|
0,0
|
|
'''
|
|
"""
|
|
|
|
# bug #4626
|
|
var foo: (int, array[1, int]) # Tuple must be of length > 1
|
|
let bar = (1, [1])
|
|
foo = bar # No error if assigned directly
|
|
|
|
# bug #2250
|
|
|
|
import math
|
|
|
|
type
|
|
Meters = float
|
|
Point2[T] = tuple[x, y: T]
|
|
|
|
HexState* = enum
|
|
hsOn, hsOff
|
|
|
|
Index = uint16
|
|
|
|
HexGrid* = object
|
|
w, h: int ## Width and height of the hex grid.
|
|
radius: Meters ## Radius of circle that circumscribes a hexagon.
|
|
grid: seq[HexState] ## Information on what hexes are drawn.
|
|
|
|
HexVtxIndex = enum
|
|
hiA, hiB, hiC, hiD, hiE, hiF
|
|
|
|
HexCoord* = Point2[int]
|
|
|
|
const
|
|
HexDY = sqrt(1.0 - (0.5 * 0.5)) # dy from center to midpoint of 1-2
|
|
HexDX = sqrt(1.0 - (HexDY * HexDY)) # dx from center to midpoint of 1-5 (0.5)
|
|
|
|
|
|
let
|
|
hexOffsets : array[HexVtxIndex, Point2[float]] = [
|
|
(-1.0, 0.0),
|
|
(-HexDX, -HexDY),
|
|
(HexDX, -HexDY),
|
|
(1.0, 0.0),
|
|
(HexDX, HexDY),
|
|
(-HexDX, HexDY)]
|
|
|
|
evenSharingOffsets : array[HexVtxIndex, tuple[hc: HexCoord; idx: HexVtxIndex]] = [
|
|
((0,0), hiA),
|
|
((0,0), hiB),
|
|
((1,-1), hiA),
|
|
((1,0), hiB),
|
|
((1,0), hiA),
|
|
((0,1), hiB)]
|
|
|
|
oddSharingOffsets : array[HexVtxIndex, tuple[hc: HexCoord; idx: HexVtxIndex]] = [
|
|
((0,0), hiA),
|
|
((0,0), hiB),
|
|
((1,0), hiA),
|
|
((1,1), hiB),
|
|
((1,1), hiA),
|
|
((0,1), hiB)]
|
|
|
|
template odd*(i: int) : untyped =
|
|
(i and 1) != 0
|
|
|
|
proc vidx(hg: HexGrid; col, row: int; i: HexVtxIndex) : Index =
|
|
#NOTE: this variation compiles
|
|
#var offset : typeof(evenSharingOffsets[i])
|
|
#
|
|
#if odd(col):
|
|
# offset = oddSharingOffsets[i]
|
|
#else:
|
|
# offset = evenSharingOffsets[i]
|
|
|
|
let
|
|
#NOTE: this line generates the bad code
|
|
offset = (if odd(col): oddSharingOffsets[i] else: evenSharingOffsets[i])
|
|
x = col + 1 + offset.hc.x
|
|
y = row + 1 + offset.hc.y
|
|
|
|
result = Index(x*2 + y * (hg.w + 2)*2 + int(offset.idx))
|
|
|
|
proc go() =
|
|
var hg : HexGrid
|
|
|
|
echo "vidx ", $vidx(hg, 1, 2, hiC)
|
|
|
|
go()
|
|
|
|
# another sighashes problem: In tuples we have to ignore ranges.
|
|
|
|
type
|
|
Position = tuple[x, y: int16]
|
|
n16 = range[0'i16..high(int16)]
|
|
|
|
proc print(pos: Position) =
|
|
echo $pos.x, ",", $pos.y
|
|
|
|
var x = 0.n16
|
|
var y = 0.n16
|
|
print((x, y))
|
|
|
|
|
|
# bug #6889
|
|
proc createProgressSetterWithPropSetter[T](setter: proc(v: T)) = discard
|
|
|
|
type A = distinct array[4, float32]
|
|
type B = distinct array[3, float32]
|
|
|
|
type Foo[T] = tuple
|
|
setter: proc(v: T)
|
|
|
|
proc getFoo[T](): Foo[T] = discard
|
|
|
|
createProgressSetterWithPropSetter(getFoo[A]().setter)
|
|
createProgressSetterWithPropSetter(getFoo[B]().setter)
|