New answers tagged

2

the animation of the 3D plot doesn't show the top most part of the generated surface Add PerformanceGoal -> "Quality" It was not showing it all before, because default is Speed Animate[ Plot3D[f[a, b, 2, 200, 1, k, \[Pi]/2], {a, -10, 10}, {b, -10, 10}, PlotRange -> All, LabelStyle -> Directive[Bold, Medium], Mesh -> None, ...


2

p1 = Animate[ Plot[k*x^2, {x, -2, 2}, PlotRange -> {-8, 8}], {k, -2, 2, 0.1}, AnimationDirection -> ForwardBackward] Export["speed1.gif", p1, "ControlAppearance" -> None, "AnimationRepetitions" -> Infinity, "AnimationRate" -> Automatic, "DisplayDurations" -> 1/20]


5

I use this method which seems to work well. After you create the table, Export is used with the option DisplayDurations. You can also actually have the display duration a table of same length as the number of frames in the original table. This way, you can also make different phases of the animation go faster or slower. I've done this on animations where I ...


3

Another way to achieve the desired result is to use an ImageMesh of the rasterized text: p = ImageMesh[ Rasterize[ Text[Style["P", White, 36, Italic, FontFamily -> "Times"]], Background -> Black], MeshCellStyle -> {{2} -> White}, Background -> Black, ImageSize -> 20] Animate[Graphics[{Circle[], {Disk[{Cos@t, ...


6

I also find the inability to place text exactly within a graphic to be unacceptable, especially because many of the Graphics objects I produce have text within a disk, exactly like in the OP. So I do something I consider a bit extreme - I convert every letter of the text into a FilledCurve object. How? By using this bit of code that was given to me by ...


2

If the "P" is rotated as well, it wobbles less. The wobble seems to be due to the x,y placement of the letter at every step. It seems to be climbing a staircase. To cancel the wobble exactly would require knowledge of the font design as well as that of other graphics primitives. Animate[Graphics[{Circle[], {Disk[{Cos@t, Sin@t}, 0.18], Text[...


4

Here is an attempt. The idea is to render the disk once and rasterize it. Then use Inset to place it. You can play with the code to improve it more if needed. But now there is no shaking. disk = Rasterize@ Graphics[Disk[{0, 0}, 0.018], ImageSize -> 60]; Animate[ Graphics[{Circle[], {Inset[disk, {Cos@t, Sin@t}], Text[Style["P", White, ...


Top 50 recent answers are included