package Geometry;

use strict;
use warnings;

use Exporter 'import';

our @EXPORT_OK = qw(

    RING_WIDTH
    DIAL_RADIUS

    MAJOR_MARK_INNER
    MAJOR_MARK_OUTER

    MINOR_MARK_INNER
    MINOR_MARK_OUTER

    HOUR_LENGTH
    MINUTE_LENGTH
    SECOND_LENGTH

    HOUR_WIDTH
    MINUTE_WIDTH

    SECOND_WIDTH

    SECOND_DISC_RADIUS
    SECOND_DISC_POSITION

    SECOND_COUNTERWEIGHT

    CENTER_RADIUS

);

############################################################
#
# Cadran
#
############################################################

use constant DIAL_RADIUS => 0.965;

use constant RING_WIDTH  => 0.015;

############################################################
#
# Graduations
#
############################################################

use constant MAJOR_MARK_INNER => 0.820;
use constant MAJOR_MARK_OUTER => 0.960;

use constant MINOR_MARK_INNER => 0.900;
use constant MINOR_MARK_OUTER => 0.960;

############################################################
#
# Aiguilles
#
############################################################

use constant HOUR_LENGTH   => 0.52;
use constant MINUTE_LENGTH => 0.74;

use constant HOUR_WIDTH    => 0.030;
use constant MINUTE_WIDTH  => 0.020;

############################################################
#
# Trotteuse
#
############################################################

use constant SECOND_LENGTH => 0.920;

use constant SECOND_WIDTH  => 2;

use constant SECOND_DISC_RADIUS   => 0.043;

use constant SECOND_DISC_POSITION => 0.230;

use constant SECOND_COUNTERWEIGHT => 0.090;

############################################################
#
# Axe central
#
############################################################

use constant CENTER_RADIUS => 0.022;

1;