1
$\begingroup$

I was trying to show a point in ListContourPlot, for that I use Epilog ->[Point[]], as follow-

ListContourPlot[STParameterSpaceData, Contours -> {2.3, 6.18, 11.83}, 
 PlotRange -> {{-0.05, 0.05}, {-0.5, 0.5}}, PlotRangeClipping -> True,
  AspectRatio -> 0.8, Frame -> True, 
 BaseStyle -> Directive[Bold, FontFamily -> "Times", 18], 
 FrameStyle -> Directive[Black, Thick], ImageSize -> 400, 
 FrameLabel -> {"\!\(\*SubscriptBox[\(g\), \(S\)]\)", 
   "\!\(\*SubscriptBox[\(g\), \(T\)]\)"}, 
 ContourStyle -> {Directive[Red, Thick], {Green, Thick}, 
   Directive[Darker[Blue], Thick]}, 
 ContourShading -> {Red, Green, Darker[Blue], White}, 
 Epilog -> {PointSize[0.03], Yellow, Point[#] & /@ STBestFittedData}, 
 FrameTicks -> ticks, PlotRangePadding -> None, 
 PerformanceGoal -> "Quality"]

With that I am getting this plot:- enter image description here

But I want to make the point to look like a *. But I can not find any command to change the point style from point to *. Can any one help me how I can do this?

$\endgroup$
3

1 Answer 1

1
$\begingroup$

Try this function instead of the Point:

star[x_, y_, r_] := 
  Graphics[{Red, 
    Line[Table[{{r*Cos[2 \[Pi] k/6] + x, r*Sin[2 \[Pi] k/6] + y}, {x,y}}, {k, 1, 6}]]}, ImageSize -> 8];

Play with this example to see, how to operate:

Manipulate[Show[{
   Graphics[{Blue, Disk[]}],
   star[x, y, r]
   }], {{x, 0}, -1, 1}, {{y, 0}, -1, 1}, {{r, 0.02}, 0, 0.03}]

enter image description here

Have fun!

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.