customized sliders
- To: mathgroup at smc.vnet.net
- Subject: [mg108898] customized sliders
- From: telefunkenvf14 <rgorka at gmail.com>
- Date: Tue, 6 Apr 2010 07:25:36 -0400 (EDT)
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