/*This was done with <CTRL-SHIFT-L> template code.
It's conceptually easy to do a ctrl,
but tedious.  You have complete freedom.

See CCtrl.
*/

//Start of autocreated Code
#define SLIDER_RANGE    30
#define SLIDER_SPACING  20
#define SLIDER_BORDER   2

class CSliderState
{
        I64 left_pos;
        I64 right_pos;

} sld;

U0 DrawCtrlSlider(CDC *dc, CCtrl *c)
{
        CSliderState *s = c->state;

        dc->color = LTRED;
        GrRect(dc,  c->left, c->top, SLIDER_SPACING * 3 + 2, SLIDER_SPACING * 2 + SLIDER_RANGE);
        dc->color = BLUE;
        GrRect(dc,  c->left + SLIDER_BORDER, c->top + SLIDER_BORDER, 
                                SLIDER_SPACING * 3 + 2 - 2 * SLIDER_BORDER, 
                                SLIDER_SPACING * 2 + SLIDER_RANGE - 2 * SLIDER_BORDER);
        dc->color = BLACK;
        GrLine(dc,  c->left + 1 * SLIDER_SPACING + 0, c->top + SLIDER_SPACING, 
                                c->left + 1 * SLIDER_SPACING + 0, c->top + SLIDER_SPACING + SLIDER_RANGE - 1);

        GrLine(dc,  c->left + 2 * SLIDER_SPACING + 1, c->top + SLIDER_SPACING, 
                                c->left + 2 * SLIDER_SPACING + 1, c->top + SLIDER_SPACING + SLIDER_RANGE - 1);
        dc->color = LTRED;
        GrPrint(dc, c->left + 1 * SLIDER_SPACING + 0 - FONT_WIDTH / 2, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE + 3, 
                                "%d", s->left_pos * 10 / SLIDER_RANGE);

        GrPrint(dc, c->left + 2 * SLIDER_SPACING + 1 - FONT_WIDTH / 2, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE + 3, 
                                "%d", s->right_pos * 10 / SLIDER_RANGE);
        GrRect(dc,  c->left + 1 * SLIDER_SPACING + 0 - 3, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE - 1 - s->left_pos  - 2, 7, 5);

        GrRect(dc,  c->left + 2 * SLIDER_SPACING + 1 - 3, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE - 1 - s->right_pos - 2, 7, 5);
        dc->color = YELLOW;
        GrRect(dc,  c->left + 1 * SLIDER_SPACING + 0 - 2, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE - 1 - s->left_pos  - 1, 5, 3);

        GrRect(dc,  c->left + 2 * SLIDER_SPACING + 1 - 2, 
                                c->top + SLIDER_SPACING + SLIDER_RANGE - 1 - s->right_pos - 1, 5, 3);
}

U0 UpdateDerivedCtrlSlider(CCtrl *c)
{
        CSliderState *s = c->state;

        c->left                 = c->win_task->pix_width / 2 - (SLIDER_SPACING * 3 + 2) / 2;
        c->right                = c->left + 3 * SLIDER_SPACING + 2;
        c->top                  = c->win_task->pix_height/2 - (SLIDER_SPACING * 2 + SLIDER_RANGE) / 2;
        c->bottom               = c->top + SLIDER_SPACING * 2 + SLIDER_RANGE;
        s->left_pos             = ClampI64(s->left_pos,  0, SLIDER_RANGE - 1);
        s->right_pos    = ClampI64(s->right_pos, 0, SLIDER_RANGE - 1);
}

U0 LeftClickSlider(CCtrl *c, I64 x, I64 y, Bool)
{
        CSliderState *s = c->state;

        if (x < c->left + 1 * SLIDER_SPACING + 0 + SLIDER_SPACING / 2)
                s->left_pos = SLIDER_RANGE - 1 - (y - (c->top + SLIDER_SPACING));
        else
                s->right_pos = SLIDER_RANGE - 1 - (y - (c->top + SLIDER_SPACING));
        if (c->update_derived_vals)
                (*c->update_derived_vals)(c);
}

CCtrl *SliderNew()
{
        CCtrl *c = CAlloc(sizeof(CCtrl));

        c->win_task                             = Fs;
        c->flags                                = CTRLF_SHOW | CTRLF_CAPTURE_LEFT_MS;
        c->type                                 = CTRLT_GENERIC;
        c->state                                = &sld;
        MemSet(&sld, 0, sizeof(CSliderState));
        c->draw_it                              = &DrawCtrlSlider;
        c->left_click                   = &LeftClickSlider;
        c->update_derived_vals  = &UpdateDerivedCtrlSlider;
        QueueInsert(c, Fs->last_ctrl);
        TaskDerivedValsUpdate;

        return c;
}

U0 SliderDel(CCtrl *c)
{
        QueueRemove(c);
        Free(c);
}

//End of autocreated Code

U0 Main()
{
        "This is to demo ctrls.\n";
        CCtrl *c = SliderNew;

        PressAKey;
        "Left: %d  Right: %d\n", sld.left_pos * 10 / SLIDER_RANGE, sld.right_pos * 10 / SLIDER_RANGE;
        SliderDel(c);
        DocBottom;
}

Main;