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
    Sep 27, 2019 at 22:48

Your Answer

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

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