1
$\begingroup$

I ask again to clarify a couple more things

How do I write the disk primitive to calculate these cases

Cases

follow this link 1 reply from @kglr

thanks

Using the Disk graphics primitive

$\endgroup$

1 Answer 1

1
$\begingroup$

Hope the following clarifies how quarter disks centered at {0,0}, {1,0}, {1,1} and {0,1} can be constructed using a single parameter:

Manipulate[Graphics[{EdgeForm[{Opacity[1], Thick, Orange}], Opacity[.3], 
   Orange, Disk[{0, 0}, 1, {0, θ}], 
   EdgeForm[{Opacity[1], Thick, Blue}], Blue,  Disk[{1, 1}, 1, {-Pi, -Pi + θ}], 
   EdgeForm[{Opacity[1], Thick, Green}], Green, Disk[{1, 0}, 1, { Pi, Pi - θ}], 
   EdgeForm[{Opacity[1], Thick, Magenta}], Magenta, Disk[{0, 1}, 1, { 3 Pi/2, 3 Pi/2 + θ}], 
   FaceForm[None], EdgeForm[Gray], Rectangle[{0, 0}, {1, 1}]}, 
  PlotRange -> {{0, 1}, {0, 1}}],
{θ, 0, Pi/2, Pi/64}]

enter image description here

$\endgroup$
1
  • $\begingroup$ ,ok , but as I calculate the area of the order according to your method $\endgroup$
    – wally
    Commented Sep 27, 2019 at 22:48

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.