Prev: Fix for "Mathematica has quit unexpectedly" on Shift+Option start-up
Next: Will FindFit invoke LinearProgramming?
From: telefunkenvf14 on 6 Apr 2010 07:25
I came across the following code in the documentation (on Advanced
Manipulate):

ValueThumbSlider[v_] := ValueThumbSlider[v, {0, 1}];
ValueThumbSlider[Dynamic[var_], {min_, max_}, options___] :=
LocatorPane[
Dynamic[If[! NumberQ[var], var = min]; {var,
0}, (var = First[#]) &],
Graphics[{AbsoluteThickness[1.5], Line[{{min, 0}, {max, 0}}],
Dynamic[{Text[var, {var, 0}, {0, -1}],
Polygon[{Offset[{0, -1}, {var, 0}], Offset[{-5, -8}, {var, 0}],
Offset[{5, -8}, {var, 0}]}]}]},
ImageSize -> {300, 30},
PlotRange -> {{min, max} + 0.1 {-1, 1} (max - min), {-1, 1}},
AspectRatio -> 1/10],
{{min, 0}, {max, 0}}, Appearance -> None];
ValueThumbSlider[Dynamic[xx], {0, 10}]

This creates a customized slider by drawing (and offsetting) a
Polygon[].

I'd *really* like to be able to use some other image---such as a .png
of a slider designed by someone else. Is there an easy way to
accomplish this?

-RG



 | 
Pages: 1
Prev: Fix for "Mathematica has quit unexpectedly" on Shift+Option start-up
Next: Will FindFit invoke LinearProgramming?