Initial (manual) import

TempleOSCD/Adam/Ctrls/CtrlsA.HC

@@ -0,0 +1,388 @@
+public CCtrl *CtrlFindUnique(CTask *haystack_task,I64 needle_type)
+{//Find task ctrl given $LK,"ctrl_type",A="MN:CTRLT_VIEWING_ANGLES"$.
+  CCtrl *c;
+  c=haystack_task->next_ctrl;
+  while (c!=&haystack_task->next_ctrl) {
+    if (c->type==needle_type)
+      return c;
+    c=c->next;
+  }
+  return NULL;
+}
+
+U0 CtrlsUpdate(CTask *task)
+{
+  CCtrl *c;
+  c=task->next_ctrl;
+  while (c!=&task->next_ctrl) {
+    if (c->update_derived_vals)
+      (*c->update_derived_vals)(c);
+    if (c->flags&CTRLF_BORDER) {
+      c->scrn_left  =gr.pan_text_x+task->pix_left+c->left-FONT_WIDTH;
+      c->scrn_right =gr.pan_text_x+task->pix_left+c->right-FONT_WIDTH;
+      c->scrn_top   =gr.pan_text_y+task->pix_top+c->top-FONT_HEIGHT;
+      c->scrn_bottom=gr.pan_text_y+task->pix_top+c->bottom-FONT_HEIGHT;
+    } else {
+      c->scrn_left  =gr.pan_text_x+task->pix_left+c->left;
+      c->scrn_right =gr.pan_text_x+task->pix_left+c->right;
+      c->scrn_top   =gr.pan_text_y+task->pix_top+c->top;
+      c->scrn_bottom=gr.pan_text_y+task->pix_top+c->bottom;
+    }
+    c=c->next;
+  }
+}
+
+fp_update_ctrls=&CtrlsUpdate;
+
+Bool CtrlInsideRect(CCtrl *c,I64 x,I64 y)
+{//scrn coordinates
+  if (c->scrn_left<=x<=c->scrn_right &&
+	c->scrn_top<=y<=c->scrn_bottom)
+    return TRUE;
+  else
+    return FALSE;
+}
+
+public Bool CtrlInside(CCtrl *c,I64 x,I64 y)
+{//Is x,y inside a ctrl?
+  if (c->flags&CTRLF_SHOW) {
+    if (c->inside_ctrl)
+      return (*c->inside_ctrl)(c,x,y);
+    else
+      return CtrlInsideRect(c,x,y);
+  } else
+    return FALSE;
+}
+
+U0 DrawCtrls(CTask *task)
+{
+  CCtrl *c;
+  CDC *dc=DCAlias(gr.dc2,task);
+  c=task->next_ctrl;
+  while (c!=&task->next_ctrl) {
+    if (c->flags&CTRLF_SHOW) {
+      if (c->flags&CTRLF_BORDER) {
+	if (!Bt(&task->display_flags,DISPLAYf_NO_BORDER)) {
+	  PUSHFD
+	  CLI
+	  while (LBts(&task->task_flags,TASKf_TASK_LOCK))
+	    PAUSE
+
+	  task->win_left--; //Allow drawing on border
+	  task->win_right++;
+	  task->win_top--;
+	  task->win_bottom++;
+	  WinDerivedValsUpdate(task);
+
+	  LBtr(&task->task_flags,TASKf_TASK_LOCK);
+	  POPFD
+
+	  if (c->draw_it)
+	    (*c->draw_it)(dc,c);
+
+	  PUSHFD
+	  CLI
+	  while (LBts(&task->task_flags,TASKf_TASK_LOCK))
+	    PAUSE
+
+	  task->win_left++;
+	  task->win_right--;
+	  task->win_top++;
+	  task->win_bottom--;
+	  WinDerivedValsUpdate(task);
+
+	  LBtr(&task->task_flags,TASKf_TASK_LOCK);
+	  POPFD
+	}
+      } else
+	if (c->draw_it)
+	  (*c->draw_it)(dc,c);
+    }
+    c=c->next;
+  }
+  DCDel(dc);
+}
+
+#define WIN_SCROLL_SIZE		8
+#define WIN_SCROLL_BORDER_BONUS	4
+U0 DrawWinScroll(CDC *dc,CCtrl *c)
+{
+  CWinScroll *s=c->state;
+
+  if (c->flags&CTRLF_CLICKED)
+    dc->color=s->color>>4;
+  else
+    dc->color=s->color&0xF;
+  GrRect(dc,c->left,c->top,c->right-c->left+1,c->bottom-c->top+1);
+
+  if (c->flags&CTRLF_CLICKED)
+    dc->color=s->color&0xF;
+  else
+    dc->color=s->color>>4;
+  GrRect(dc,c->left+2,c->top+2,c->right-c->left+1-4,c->bottom-c->top+1-4);
+}
+
+U0 WinDerivedScrollValsUpdate(CCtrl *c)
+{
+  CWinScroll *s=c->state;
+  I64 range;
+  if (s->max<s->min) s->max=s->min;
+  if (s->pos<s->min) s->pos=s->min;
+  if (s->pos>s->max) s->pos=s->max;
+  s->color=c->win_task->border_attr&0xF^0xF+
+	(c->win_task->border_attr&0xF)<<4;
+  range=s->max-s->min;
+  if (!range) range=1;
+  switch (c->type) {
+    case CTRLT_WIN_HSCROLL:
+      c->left  =gr.pan_text_x+FONT_WIDTH-WIN_SCROLL_BORDER_BONUS+
+	    (s->pos-s->min)*(c->win_task->pix_width+2*WIN_SCROLL_BORDER_BONUS
+	    -WIN_SCROLL_SIZE)/range;
+      c->right =c->left+WIN_SCROLL_SIZE-1;
+      c->top   =gr.pan_text_y+FONT_HEIGHT+
+	    (FONT_WIDTH-WIN_SCROLL_SIZE)/2+c->win_task->pix_height;
+      c->bottom=c->top+WIN_SCROLL_SIZE-1;
+      break;
+    case CTRLT_WIN_VSCROLL:
+      c->left  =gr.pan_text_x+FONT_WIDTH+
+	    (FONT_WIDTH-WIN_SCROLL_SIZE)/2+c->win_task->pix_width;
+      c->right =c->left+WIN_SCROLL_SIZE-1;
+      c->top   =gr.pan_text_y+FONT_HEIGHT-WIN_SCROLL_BORDER_BONUS+
+	    (s->pos-s->min)*(c->win_task->pix_height+
+	    2*WIN_SCROLL_BORDER_BONUS-WIN_SCROLL_SIZE)/range;
+      c->bottom=c->top+WIN_SCROLL_SIZE-1;
+      break;
+  }
+}
+
+U0 LeftClickHWinScroll(CCtrl *c,I64 x,I64,Bool down)
+{
+  CTask *task=c->win_task;
+  CWinScroll *s=c->state;
+  I64 range=task->pix_width+2*WIN_SCROLL_BORDER_BONUS-WIN_SCROLL_SIZE;
+  LBts(&s->flags,WSSf_SET_TO_POS);
+  s->pos=((x-(FONT_WIDTH-WIN_SCROLL_BORDER_BONUS))
+  *(s->max-s->min+1)+range/2)/range+s->min;
+  if (down)
+    c->flags|=CTRLF_CLICKED;
+  else
+    c->flags&=~CTRLF_CLICKED;
+  if (c->update_derived_vals)
+    (*c->update_derived_vals)(c);
+}
+
+U0 LeftClickVWinScroll(CCtrl *c,I64,I64 y,Bool down)
+{
+  CTask *task=c->win_task;
+  CWinScroll *s=c->state;
+  I64 range=task->pix_height+2*WIN_SCROLL_BORDER_BONUS-WIN_SCROLL_SIZE;
+  LBts(&s->flags,WSSf_SET_TO_POS);
+  s->pos=((y-(FONT_HEIGHT-WIN_SCROLL_BORDER_BONUS))
+  *(s->max-s->min+1)+range/2)/range+s->min;
+  if (down)
+    c->flags|=CTRLF_CLICKED;
+  else
+    c->flags&=~CTRLF_CLICKED;
+  if (c->update_derived_vals)
+    (*c->update_derived_vals)(c);
+}
+
+U0 WheelChangeWinScroll(CCtrl *c,I64 delta)
+{
+  CWinScroll *s=c->state;
+  LBts(&s->flags,WSSf_SET_TO_POS);
+  s->pos+=delta;
+  if (c->update_derived_vals)
+    (*c->update_derived_vals)(c);
+}
+
+U0 WinScrollsInit(CTask *task)
+{
+  CCtrl *c;
+
+  if (!CtrlFindUnique(task,CTRLT_WIN_HSCROLL)) {
+    c=CAlloc(sizeof(CCtrl));
+    c->win_task=task;
+    c->flags=CTRLF_SHOW|CTRLF_BORDER|CTRLF_CAPTURE_LEFT_MS;
+    c->type=CTRLT_WIN_HSCROLL;
+    c->state=&task->horz_scroll;
+    c->update_derived_vals=&WinDerivedScrollValsUpdate;
+    c->draw_it=&DrawWinScroll;
+    c->left_click=&LeftClickHWinScroll;
+    QueIns(c,task->last_ctrl);
+  }
+
+  if (!CtrlFindUnique(task,CTRLT_WIN_VSCROLL)) {
+    c=CAlloc(sizeof(CCtrl));
+    c->win_task=task;
+    c->flags=CTRLF_SHOW|CTRLF_BORDER|CTRLF_CAPTURE_LEFT_MS;
+    c->type=CTRLT_WIN_VSCROLL;
+    c->state=&task->vert_scroll;
+    c->update_derived_vals=&WinDerivedScrollValsUpdate;
+    c->draw_it=&DrawWinScroll;
+    c->left_click=&LeftClickVWinScroll;
+    c->wheel_chg=&WheelChangeWinScroll;
+    QueIns(c,task->last_ctrl);
+  }
+  TaskDerivedValsUpdate(task);
+}
+#define VIEWANGLES_SPACING	22
+#define VIEWANGLES_RANGE	48
+#define VIEWANGLES_BORDER	2
+#define VIEWANGLES_SNAP		2
+
+U0 DrawViewAnglesCtrl(CDC *dc,CCtrl *c)
+{
+  I64 i,j;
+  CViewAngles *s=c->state;
+
+  dc->color=s->cbd;
+  GrRect(dc, c->left,c->top,VIEWANGLES_SPACING*4+3,
+	VIEWANGLES_SPACING*2+VIEWANGLES_RANGE);
+  dc->color=s->cbg;
+  GrRect(dc, c->left+VIEWANGLES_BORDER,c->top+VIEWANGLES_BORDER,
+	VIEWANGLES_SPACING*4+3-2*VIEWANGLES_BORDER,
+	VIEWANGLES_SPACING*2+VIEWANGLES_RANGE-2*VIEWANGLES_BORDER);
+  dc->color=s->cfg;
+  GrLine(dc,c->left+VIEWANGLES_SPACING,c->top+VIEWANGLES_SPACING,
+	c->left+VIEWANGLES_SPACING,c->top+VIEWANGLES_SPACING+
+	VIEWANGLES_RANGE-1);
+  GrLine(dc,c->left+2*VIEWANGLES_SPACING+1,c->top+VIEWANGLES_SPACING,
+	c->left+2*VIEWANGLES_SPACING+1,c->top+VIEWANGLES_SPACING+
+	VIEWANGLES_RANGE-1);
+  GrLine(dc,c->left+3*VIEWANGLES_SPACING+2,c->top+VIEWANGLES_SPACING,
+	c->left+3*VIEWANGLES_SPACING+2,c->top+VIEWANGLES_SPACING+
+	VIEWANGLES_RANGE-1);
+  for (i=1;i<VIEWANGLES_RANGE+1;i+=2*VIEWANGLES_SNAP) {
+    j=2-i/3&1;
+    GrLine(dc,c->left+VIEWANGLES_SPACING-j,c->bottom-VIEWANGLES_SPACING-i,
+	  c->left+VIEWANGLES_SPACING+j,c->bottom
+	  -VIEWANGLES_SPACING-i);
+    GrLine(dc,c->left+2*VIEWANGLES_SPACING+1-j,c->bottom-VIEWANGLES_SPACING-i,
+	  c->left+2*VIEWANGLES_SPACING+1+j,c->bottom
+	  -VIEWANGLES_SPACING-i);
+    GrLine(dc,c->left+3*VIEWANGLES_SPACING+2-j,c->bottom-VIEWANGLES_SPACING-i,
+	  c->left+3*VIEWANGLES_SPACING+2+j,c->bottom
+	  -VIEWANGLES_SPACING-i);
+  }
+
+  dc->color=s->cx;
+  GrPrint(dc,c->left+VIEWANGLES_SPACING-FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING-(1+FONT_HEIGHT),"X");
+  GrPrint(dc,c->left+VIEWANGLES_SPACING-3*FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE+3,
+	"%3d",s->sx*360/VIEWANGLES_RANGE);
+  i=c->left+VIEWANGLES_SPACING;
+  if (s->sx>VIEWANGLES_RANGE/2)
+    j=-VIEWANGLES_RANGE/2+s->sx;
+  else
+    j=s->sx+VIEWANGLES_RANGE/2;
+  j=c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE-1-j;
+  GrRect(dc,i-3,j-2,7,5);
+  dc->color=s->cx^8;
+  GrRect(dc,i-2,j-1,5,3);
+
+  dc->color=s->cy;
+  GrPrint(dc,c->left+2*VIEWANGLES_SPACING+1-FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING-(1+FONT_HEIGHT),"Y");
+  GrPrint(dc,c->left+2*VIEWANGLES_SPACING+1-3*FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE+3,
+	"%3d",s->sy*360/VIEWANGLES_RANGE);
+  i=c->left+2*VIEWANGLES_SPACING+1;
+  if (s->sy>VIEWANGLES_RANGE/2)
+    j=-VIEWANGLES_RANGE/2+s->sy;
+  else
+    j=s->sy+VIEWANGLES_RANGE/2;
+  j=c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE-1-j;
+  GrRect(dc,i-3,j-2,7,5);
+  dc->color=s->cy^8;
+  GrRect(dc,i-2,j-1,5,3);
+
+  dc->color=s->cz;
+  GrPrint(dc,c->left+3*VIEWANGLES_SPACING+2-FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING-(1+FONT_HEIGHT),"Z");
+  GrPrint(dc,c->left+3*VIEWANGLES_SPACING+2-3*FONT_WIDTH/2,
+	c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE+3,
+	"%3d",s->sz*360/VIEWANGLES_RANGE);
+  i=c->left+3*VIEWANGLES_SPACING+2;
+  if (s->sz>VIEWANGLES_RANGE/2)
+    j=-VIEWANGLES_RANGE/2+s->sz;
+  else
+    j=s->sz+VIEWANGLES_RANGE/2;
+  j=c->top+VIEWANGLES_SPACING+VIEWANGLES_RANGE-1-j;
+  GrRect(dc,i-3,j-2,7,5);
+  dc->color=s->cz^8;
+  GrRect(dc,i-2,j-1,5,3);
+}
+
+U0 UpdateDerivedViewAnglesCtrl(CCtrl *c)
+{
+  CViewAngles *s=c->state;
+  c->left=c->win_task->pix_width-(VIEWANGLES_SPACING*4+3);
+  c->right=c->left+VIEWANGLES_SPACING*4+3;
+  c->top=c->win_task->pix_height-(VIEWANGLES_SPACING*2+VIEWANGLES_RANGE);
+  c->bottom=c->top+VIEWANGLES_SPACING*2+VIEWANGLES_RANGE;
+  s->sx=ClampI64(RoundI64(s->sx,VIEWANGLES_SNAP),0,VIEWANGLES_RANGE-1);
+  s->sy=ClampI64(RoundI64(s->sy,VIEWANGLES_SNAP),0,VIEWANGLES_RANGE-1);
+  s->sz=ClampI64(RoundI64(s->sz,VIEWANGLES_SNAP),0,VIEWANGLES_RANGE-1);
+  s->ax=2*ã*s->sx/VIEWANGLES_RANGE;
+  s->ay=2*ã*s->sy/VIEWANGLES_RANGE;
+  s->az=2*ã*s->sz/VIEWANGLES_RANGE;
+}
+
+U0 LeftClickViewAngles(CCtrl *c,I64 x,I64 y,Bool)
+{
+  CViewAngles *s=c->state;
+  I64 i;
+  i=VIEWANGLES_RANGE-1-(y-(c->top+VIEWANGLES_SPACING));
+  if (i>=VIEWANGLES_RANGE/2)
+    i-=VIEWANGLES_RANGE/2;
+  else
+    i+=VIEWANGLES_RANGE/2;
+  if (x<c->left+(c->right-c->left)/3)
+    s->sx=i;
+  else if (x<c->left+2*(c->right-c->left)/3)
+    s->sy=i;
+  else
+    s->sz=i;
+  if (c->update_derived_vals)
+    (*c->update_derived_vals)(c);
+}
+
+public CCtrl *ViewAnglesNew(CTask *task=NULL)
+{//Create view angle ctrl. See $LK,"::/Demo/Graphics/Shading.HC"$.
+  CCtrl *c;
+  CViewAngles *s;
+  if (!task) task=Fs;
+  if (!(c=CtrlFindUnique(task,CTRLT_VIEWING_ANGLES))) {
+    s=CAlloc(sizeof(CViewAngles),task);
+    c=CAlloc(sizeof(CCtrl));
+    s->cbd=BLUE;
+    s->cbg=LTBLUE;
+    s->cfg=BLACK;
+    s->cx=LTGREEN;
+    s->cy=GREEN;
+    s->cz=LTGREEN;
+    c->win_task=task;
+    c->flags=CTRLF_SHOW|CTRLF_CAPTURE_LEFT_MS;
+    c->type=CTRLT_VIEWING_ANGLES;
+    c->state=s;
+    c->draw_it=&DrawViewAnglesCtrl;
+    c->left_click=&LeftClickViewAngles;
+    c->update_derived_vals=&UpdateDerivedViewAnglesCtrl;
+    QueIns(c,task->last_ctrl);
+    TaskDerivedValsUpdate(task);
+  }
+  return c;
+}
+
+public U0 ViewAnglesDel(CTask *task=NULL)
+{//Free view angle ctrl.
+  CCtrl *c;
+  if (!task) task=Fs;
+  if (c=CtrlFindUnique(task,CTRLT_VIEWING_ANGLES)) {
+    QueRem(c);
+    Free(c->state);
+    Free(c);
+  }
+}

TempleOSCD/Adam/Ctrls/CtrlsBttn.HC

@@ -0,0 +1,91 @@
+#define BTTN_BORDER	2
+
+#define BTF_DONT_FREE	1
+
+class CCtrlBttnState
+{
+  I64 state,num_states,flags;
+  U8 *state_texts;
+  CColorROPU32 *state_colors;
+};
+
+U0 DrawCtrlBttn(CDC *dc,CCtrl *c)
+{
+  CCtrlBttnState *s=c->state;
+  I64 l;
+  U8 *st;
+
+  dc->color=BLACK;
+  GrRect(dc,c->left,c->top,c->right-c->left+1,c->bottom-c->top+1);
+  if (!(st=LstSub(s->state,s->state_texts)))
+    st=s->state_texts;
+  dc->color=s->state_colors[s->state];
+  l=StrLen(st);
+  GrRect(dc,c->left+BTTN_BORDER,c->top+BTTN_BORDER,
+	c->right-c->left+1-BTTN_BORDER*2,
+	c->bottom-c->top+1-BTTN_BORDER*2);
+  dc->color=s->state_colors[s->state]^(WHITE<<16+WHITE);
+  GrPrint(dc,(c->left+c->right+1-l*FONT_WIDTH)>>1,
+	(c->top+c->bottom+1-FONT_HEIGHT)>>1,"%s",st);
+}
+
+U0 LeftClickCtrlBttn(CCtrl *c,I64,I64,Bool down)
+{
+  CCtrlBttnState *s=c->state;
+  if (down) {
+    s->state++;
+    if (s->state==s->num_states)
+      s->state=0;
+  }
+}
+
+public CCtrl *CtrlBttnNew(I64 x,I64 y,I64 width=-1,I64 height=-1,
+	I64 num_states=1,U8 *state_texts,
+	I32 *state_colors,CCtrlBttnState *_s=NULL)
+{//Create bttn ctrl. See $LK,"::/Apps/Strut/Strut.HC"$.
+  CCtrl *res;
+  CCtrlBttnState *s;
+  I64 i,j,l;
+  U8 *st;
+  if (width<0) {
+    l=1;
+    for (i=0;i<num_states;i++)
+      if (st=LstSub(i,state_texts)) {
+	j=StrLen(st);
+	if (j>l) l=j;
+      }
+    width=BTTN_BORDER*4+l*FONT_WIDTH;
+  }
+  if (height<0) height=BTTN_BORDER*4+FONT_HEIGHT;
+  res=CAlloc(sizeof(CCtrl));
+  if (_s) {
+    s=_s;
+    MemSet(s,0,sizeof(CCtrlBttnState));
+  } else {
+    s=CAlloc(sizeof(CCtrlBttnState));
+    s->flags=BTF_DONT_FREE;
+  }
+  s->num_states=num_states;
+  s->state_texts=state_texts;
+  s->state_colors=state_colors;
+  res->win_task=Fs;
+  res->flags=CTRLF_SHOW;
+  res->type=CTRLT_GENERIC;
+  res->state=s;
+  res->draw_it=&DrawCtrlBttn;
+  res->left_click=&LeftClickCtrlBttn;
+  res->left=x;
+  res->top=y;
+  res->right=res->left+width-1;
+  res->bottom=res->top+height-1;
+  QueIns(res,Fs->last_ctrl);
+  return res;
+}
+
+public U0 CtrlBttnDel(CCtrl *c)
+{//Free bttn ctrl.
+  QueRem(c);
+  if (!(c->flags&BTF_DONT_FREE))
+    Free(c->state);
+  Free(c);
+}

TempleOSCD/Adam/Ctrls/CtrlsSlider.HC

@@ -0,0 +1,214 @@
+class CTemplateCSSlider
+{
+  CTemplateCSSlider *next,*last;
+  U8 *name;
+  I64 num;
+};
+
+class CTemplateCS
+{
+  CTemplateCSSlider *next_slider,*last_slider;
+  I64 num_sliders,range,spacing,border;
+  U8 *glbl_name;
+};
+
+CTemplateCS *CtrlSliderGet()
+{
+  CTemplateCSSlider *tmps;
+  U8 *st,pmt[STR_LEN];
+  CTemplateCS *res=CAlloc(sizeof(CTemplateCS));
+
+  "$$PURPLE$$Ctrl Slider$$FG$$\n\n";
+
+  res->glbl_name=GetStr("Glbl Struct Name (ENTER for No Glbl):");
+  res->range=GetI64	("Range   (%4d):",30);
+  res->spacing=GetI64("Spacing (%4d):",20);
+  res->border=GetI64 ("Border  (%4d):",2);
+
+  res->next_slider=res->last_slider=&res->next_slider;
+  while (TRUE) {
+    StrPrint(pmt,"Slider #%d Name:",res->num_sliders+1);
+    st=GetStr(pmt);
+    if (!*st) {
+      Free(st);
+      break;
+    }
+    tmps=CAlloc(sizeof(CTemplateCSSlider));
+    tmps->name=st;
+    QueIns(tmps,res->last_slider);
+    tmps->num=res->num_sliders++;
+  }
+  return res;
+}
+
+U0 TemplateCtrlSlider(CDoc *doc)
+{
+  CTask *task;
+  CTemplateCS *m=NULL;
+  CTemplateCSSlider *tmps;
+  I64 i;
+
+  DocUnlock(doc);
+  DocRecalc(doc);
+  DocCaptureUndo(doc,TRUE);
+
+  task=User("CTemplateCS **_m=0x%X;*_m=CtrlSliderGet;\n",&m);
+  while (!m)
+    Yield;
+
+  DocPrint(doc,
+"#define SLIDER_RANGE\t%d
+#define SLIDER_SPACING\t%d
+#define SLIDER_BORDER\t%d
+
+class CSliderState
+{
+",m->range,m->spacing,m->border);
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,"  I64 %s;\n",tmps->name);
+    tmps=tmps->next;
+  }
+  if (*m->glbl_name)
+    DocPrint(doc,"} %s;\n",m->glbl_name);
+  else
+    DocPrint(doc,"};\n");
+
+  DocPrint(doc,
+"
+U0 DrawCtrlSlider(CDC *dc,CCtrl *c)
+{
+  CSliderState *s=c->state;
+
+  dc->color=LTRED;
+  GrRect(dc, c->left,c->top,%d*SLIDER_SPACING+%d,SLIDER_SPACING*2+SLIDER_RANGE);
+  dc->color=BLUE;
+  GrRect(dc, c->left+SLIDER_BORDER,c->top+SLIDER_BORDER,
+    %d*SLIDER_SPACING+%d-2*SLIDER_BORDER,SLIDER_SPACING*2
+    +SLIDER_RANGE-2*SLIDER_BORDER);
+  dc->color=BLACK;
+",m->num_sliders+1,m->num_sliders,m->num_sliders+1,m->num_sliders);
+
+  for (i=0;i<m->num_sliders;i++)
+    DocPrint(doc,
+"  GrLine(dc,c->left+%d*SLIDER_SPACING+%d,c->top+SLIDER_SPACING,
+             c->left+%d*SLIDER_SPACING+%d,c->top+SLIDER_SPACING+SLIDER_RANGE-1);
+",i+1,i,i+1,i);
+
+  DocPrint(doc,"  dc->color=LTRED;\n");
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,
+"  GrPrint(dc,c->left+%d*SLIDER_SPACING+%d-FONT_WIDTH/2,
+    c->top+SLIDER_SPACING+SLIDER_RANGE+3,
+    \"%%d\",s->%s*10/SLIDER_RANGE);\n",
+      tmps->num+1,tmps->num,tmps->name);
+    tmps=tmps->next;
+  }
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,
+	"  GrRect(dc,c->left+%d*SLIDER_SPACING+%d-3,"
+	"c->top+SLIDER_SPACING+SLIDER_RANGE-1-s->%s-2,7,5);\n",
+      tmps->num+1,tmps->num,tmps->name);
+    tmps=tmps->next;
+  }
+  DocPrint(doc,"  dc->color=YELLOW;\n");
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,"  GrRect(dc,c->left+%d*SLIDER_SPACING+%d-2,"
+	"c->top+SLIDER_SPACING+SLIDER_RANGE-1-s->%s-1,5,3);\n",
+      tmps->num+1,tmps->num,tmps->name);
+    tmps=tmps->next;
+  }
+  DocPrint(doc,
+"}
+
+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+%d*SLIDER_SPACING+%d;
+  c->top=c->win_task->pix_height/2-(SLIDER_SPACING*2+SLIDER_RANGE)/2;
+  c->bottom=c->top+SLIDER_SPACING*2+SLIDER_RANGE;
+",m->num_sliders+1,m->num_sliders);
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,"  s->%s=ClampI64(s->%s,0,SLIDER_RANGE-1);\n",
+	tmps->name,tmps->name);
+    tmps=tmps->next;
+  }
+  DocPrint(doc,
+"}
+
+U0 LeftClickSlider(CCtrl *c,I64 x,I64 y,Bool down)
+{
+  no_warn down;
+  CSliderState *s=c->state;
+");
+
+  tmps=m->next_slider;
+  while (tmps!=&m->next_slider) {
+    DocPrint(doc,"  ");
+    if (tmps!=m->next_slider)
+      DocPrint(doc,"else ");
+    if (tmps->next==&m->next_slider)
+      DocPrint(doc,"\n");
+    else
+      DocPrint(doc,"if (x<c->left+%d*SLIDER_SPACING+%d+SLIDER_SPACING/2)\n",
+	tmps->num+1,tmps->num);
+    DocPrint(doc,"    s->%s=SLIDER_RANGE-1-(y-(c->top+SLIDER_SPACING));\n",
+       tmps->name);
+    tmps=tmps->next;
+  }
+ 
+  DocPrint(doc,
+"  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;
+");
+  if (*m->glbl_name)
+    DocPrint(doc,"  c->state=&%s;\n"
+	"  MemSet(&%s,0,sizeof(CSliderState));\n",m->glbl_name,m->glbl_name);
+  else
+    DocPrint(doc,	"  c->state=CAlloc(sizeof(CSliderState));\n");
+  DocPrint(doc,
+"  c->draw_it=&DrawCtrlSlider;
+  c->left_click=&LeftClickSlider;
+  c->update_derived_vals=&UpdateDerivedCtrlSlider;
+  QueIns(c,Fs->last_ctrl);
+  TaskDerivedValsUpdate;
+  return c;
+}
+
+U0 SliderDel(CCtrl *c)
+{
+  QueRem(c);
+");
+  if (!*m->glbl_name)
+    DocPrint(doc,"  Free(c->state);\n");
+  DocPrint(doc,
+"  Free(c);
+}
+");
+
+  Kill(task);  //This frees memory.
+
+  RegOneTimePopUp(ARf_MANAGE_SLIDER,
+    "Modify the code to your heart's content.\n"
+    "The code is no longer managed.\n");
+
+  DocLock(doc);
+}

TempleOSCD/Adam/Ctrls/MakeCtrls.HC

@@ -0,0 +1,8 @@
+Cd(__DIR__);;
+
+#help_index "Ctrls"
+#help_file "::/Doc/Ctrls"
+#include "CtrlsA"
+#include "CtrlsBttn"
+#include "CtrlsSlider"
+Cd("..");;