Add clip sector functions

jheinen · Sep 2, 2024 · 4591cef · 4591cef
1 parent 17c4707
commit 4591cef
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/src/GR.jl b/src/GR.jl
@@ -194,6 +194,8 @@ export
   inqmathfont,
   setclipregion,
   inqclipregion,
+  setclipsector,
+  inqclipsector,
   getformat,
   ftoa,
   # Convenience functions
@@ -4453,6 +4455,23 @@ function inqclipregion()
   return _region[1]
 end
 
+function setclipsector(start_angle::Real, end_angle::Real)
+  ccall( libGR_ptr(:gr_setclipsector),
+        Nothing,
+        (Cdouble, Cdouble),
+        start_angle, end_angle)
+end
+
+function inqclipsector()
+  _start_angle = Cdouble[0]
+  _end_angle = Cdouble[0]
+  ccall( libGR_ptr(:gr_inqclipsector),
+        Nothing,
+        (Ptr{Cdouble}, Ptr{Cdouble}),
+        _start_angle, _end_angle)
+  return _start_angle[1], _end_angle[1]
+end
+
 function getformat(origin::Real, amin::Real, amax::Real, tick::Real, major::Int)
   _format = Cint[0, 0]
   ccall( libGR_ptr(:gr_getformat),

diff --git a/src/libgr_syms.jl b/src/libgr_syms.jl
@@ -163,6 +163,8 @@
 :gr_inqmathfont
 :gr_setclipregion
 :gr_inqclipregion
+:gr_setclipsector
+:gr_inqclipsector
 :gr_getformat
 :gr_ftoa
 :gr_axis