From 7620a054f4dee0c0e307554bca0ecddd8855ea0e Mon Sep 17 00:00:00 2001
From: Chris Rees <crees@covermymeds.com>
Date: Mon, 29 Aug 2016 22:08:50 -0400
Subject: [PATCH] Add functions to aid in drawing circles

---
 src/.sdl_renderer.erl.swp | Bin 0 -> 28672 bytes
 src/sdl_renderer.erl      |  28 ++++++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 src/.sdl_renderer.erl.swp

diff --git a/src/.sdl_renderer.erl.swp b/src/.sdl_renderer.erl.swp
new file mode 100644
index 0000000000000000000000000000000000000000..3c1f116309cf34a1a63380a09afee124dfcefdd5
GIT binary patch
literal 28672
zcmeI4ZHy#E8OIwukOe`bCPs-++#TKw*ZT?tva+kQyK}c=c4wBJ**A`5oSo_29d2%V
z=<d0_y<-*d75$<S6C!*tk(d|)NWcUILU{3u3BDmn!X*j<fds^;Q8B#uf2wPyt9yEO
zmb+a(nA-58r@N}Fp66fH)m_z3-(ufPYLZ>nbBTt(k7(K}uRk%{^P6k5T^~P1E83>%
z(D4p`qmyGZlbP(?M6Unxfu4$0EL0-T_!2L$ch#~FI<-R4>@_RpBW1hSbV`+hUdJx>
z;z!;#t0mJm?H<#PE+(>Ubx<jw6xcw4y1UeU`PtgV1O0uJYuC;T*vCFPy}=18NhzQd
zPzopolmbctrGQdEDWDYie^bD%ou+*mPMs<oGsX6l(Drn(-^jNdO5Y*&&lTIHQ2J?N
z|5~vPpZ@`Ie7D&CPHY=?h+VZ&3Md7X0!jg;fKosypcGIFC<T-PN&%&SQs4v>D3mm9
z2Irkl6MMY>Z_NK6`>>`x0vr$rFP@`m&x7xSE5YgDp|g<=V&LTuY1&KR*WgL;bMRyE
zJ#Ygkfeg45d>WhvUOP+Eo&vuBKLp<dH82Z42ljw-z~9f*wBLgJz%Ae~xCV@Z3&2_6
zjV_c0?gh7iI#>WBU=R2VI1~K!3{86-+y;(<HIM@Dd{EQg22X-}z}?_RPz4#l!1>@f
z7D65cUj@@32j0Qr#w*}Ka1+P^1H6Srkw?H!zydfGJcWgh--ElsZJ+{5pa^z>chL@i
z0{4QOz>T0AQ2RWK#gGTUqoAu~7gqB%t6X)Rm?1(YbT-8g#C5I9`^ARXp>m05%NNUb
zv0}y!EcCFs9%d9u<+`J@d7bs?yfBgO7dFRJy^L|zJ*;&*HM7X%%#C1;SX^f?#auS+
zc0Z{EW*ubLGemg|nzn5rYY#lJ&7xU8Y_el}^40QE-d(ZHLJ46YZhnu>4AWhw6R~CR
zvPbLU(ISHgB`LUOGgu@xTdtO@Rh^{}JaR;5`znQH2QqlsqEpGEE);#tI;b<>k@c{J
zp4XxzicneQbq#u(kh=#O1?87uLM*-zhlit9z3RerUK8J0N5goIEW^)g{gCh^U$P;E
z?VwbxNN4#6{03-E@U=f-K|Q<kMXR=!H;+hNDrX*X>$a)0tX(wBqN}qp$Mt?Bs>>B5
zjGAb9n|C-;zFcdnkHWU1q()1%_MWb#idAr_4eDt4rE=9Qq4{`!r-N0iYGQxIvdc%U
zs#~aF2lBdQgeb*DcP5WxjaH+RsEJ+A=|Qm#SAZ_tQmHt0q8(b&e>0Nt{;@fA`K3!8
zy;VNZwYO9O>hRFwy<gHD6lgZE)YffPkcO+xweQxBP7PNoX2EW@CK($%AYIZt!S99b
z%;`3d)GXW0yK6O!<ck#yiTOiT$?WZ0z*yQ%hnasg7H5Nljf;REM*lCA=n}z67%IFI
zyq-&0cO5%2G%StdYk|Ghz}||qx8A5*TzQ?!LVhjiO2c(NY|7pQ5<G_-Ysp<L*mPwV
zibb<x+PD?)>)tjUj79mw&RVsIRJUN$@G36iwsnf?tXko^x+&cW$crnk7#{Xdj2&=L
z-r=&jO0Cd)DHq*ql2Fn>OOk^z$Lzhh<#@$frr{{>l#fOwdv{x_V%ZVZ@kGD9ds}NQ
zVmQXVr5I(bpB6l?=E>OGAF#FT<b|G2y+-bvrBDvix~Wa@WJ>Y`XgzM#-C7;V<bP{w
zK%UlQNuD-|l02<Bd<lYSOXUhhq842zq-irD)EfTrpqAXesDhdap@RJ55e4zfD{K-!
zgQtXgmy{4uRs}c9$f77A$|!z3*nfEq-g9H`C4t`JJuZa|3Ou-otFCeN&@kP5S+EQ`
z6e^Yu1)bqzs@HL}ZVYR6Jmbo7#Pp1L;e{+?uvD6jX42{8XfBmWv)NQ`oaM%oY&x5y
z)TyMgFJnw5(xcejhm=&7Wi$J7vk4>FLnS1<^N@y8at3yFmQL=UNbOJZa}1V2aR$p}
z3{)_k6({H{VWhID^nR9^&Y@%~YIZ!4%Vv@@$ZaIE(-S#L-e+Vc*+eFrrRrf69<&m<
z1UJpd>`UdcI?hY-D&R>X&2380v+PuIG?kb@_LKqN@C=-8{DNDsHJiM0I+@NP4@#U&
z>`$Tw0|m@CcB!Pvq%k_4NaqqGsfko>9?4@2m8O%~Y!4}y&M?@U&av!xVq$^|mzd6t
zqo9!_n@A-_CXx*Laqmc3Be_3ej6sZ`k|=6)VtS1HrD9T(QxmD=7=y?LDo>GVTp?<h
zhWZRGF=b?CQe()uGm*vqPHrD%5=M-rvZE7;)Ff0#v3_x|hfJd0WtW#%T-*)u^k=d{
zwZz<&vcqboeW>g>Wvkjus?~7Y#v?T=R4R04*>rdZsMYP7<(O=>?5;4&=35M2Y{@hk
zN?JkG`r;Z}whMS1F6pdhTZhXf+?d>zf{Xv5(nagAN#;!XmAV$IJ9vmD3w63JmzS`G
zdA+EiRCZjuyjXWl&)DXjZwZNo>YDIwwCP=}7-s{0{g-s(f0ycP!g~CkA{)1s>+t3Z
z)4|>G^Hp5lgwtczhc%l2_hDXq9MJrKw^&2?73TbRfFFSoa4vY|9L(#%1Hb~K;4E+)
z^Z)0-*T4dZga2ZF|0cK-d;`pa7}x_|#GL+N@GWovTm{YpuVNnm1b7@2!4ROiJ=yjg
z*{A-L0!jg;fKosypcGIFC<QiD;G~w}<b{sr5|+-qcLK9I8^>~1=RE!jS0Ha=QHR!5
zrRAm$Kie&ebp^^cnlD2nTYK8siWRTHA!J+|9KxHB)xjaSwlX+0zAmjG28x$W_ZH6D
znuX*OUInE(`GSe0eU?^`U@PCw3;jD}3O0b3S$3hhelC7&n=|q{j^vZnlQzl`bR&>c
z_9m(WZLLStE?$jzGlMs9MOvAY{4sR4UuPqj^o#cClq=|&lw0;|am_X9T8Z9nuZRBn
zndIgOtvpX+;aT>wL(T|Kr85HVHrKUd@vU`EG##~KbLmfVOByk}(XB(Kpi6#c*_o(5
z89nN?b#)WwdIOwqfzccVHy+_={(lPQ-Zul9|2N|I-^G0YcCZLu!yNy+zyKqFftNAI
zFM|~@3WmWDcpLNkhrwOo+u$I$79>G8(7~&y>!*O`|5WeQAPb(yTwnbu1(X6x0i}Ra
zKq;UUPzopoPEG+YQj%U?%Mbefh;0OO1K1AW6)~T9g)(_h&d5cJ1O4kdg~wpA0H@G_
zfprmtDb9+p@;y|Ips6Sm=C;C4npeoNo7`Y|iqedi6F=HcL?8eg8m2`c#Bb8Cq-`UX
zr(`1j?+_HuH-k+N7b<nri6JMla09e1adz5V&HE+L9+mQ0txNnwXe17>y{w;gv)BN;
zi19Np)8skkkUoc$eti@5uCAC>Mn%M^$Zj?l=j9HwK1q|d)<;d<xHg9hH7|A*!L(Y_
zXAwY~*ID2{;e7?~a-G2fUM^Qlu_+#>i}$^u;N0f%Ld_XO&`j)z&L$gqX1JzU2AJzZ
z<N<WUiq$-R!Wu8LY1^&Y<8eqEDgzR3*k-vyHEI-+T>O+8Wv|~Tv<Sr;WghACBrW#4
z7+om5pY-7nj9jCgc}ULYysN00h<@NF&aYE(fz!L?(@|F7bQBjnonN7%?7*44Vkss%
zvMpqzrGmq?20Ypu@+eR%Pi*NPjV4AF)Q+MJNo~e^>l_;<Et{8YxQiSR7wJOuB0|Tb
zyaST}ya&_#e<y~nm+3=$%>S<y!x+8yzaFH(r@$w{am@Q40^b1z@I`PTcn9<T=fR)B
zt>7q_0v7-VUcj9HQE&?|0euUw7rco%{~y6KU=7RwiuwN!)&c$v9t5|8>%a&|fHS}|
zhy}PG+y`dB#b5_`8gcx80Jj2)>raF8!Fk{xh~0k{+zW036x;s=5C?A|hW{Dx7<dr;
z4BQW@zyKG49pG<>>3<dc1-t<60AB}JgKnUMH+CStA5hHySAYdpz#=Gs9`Fh9PsIBF
z5<CHZ0B!(RfxX}&@Gr#sKMn2#*Mno=Dv$)b!7e~;_7b&Q$3HL5H@J)>-vBx+WP6e7
z-U)dT9oW2?;^x_M$nU+4B)>M^|Ez;OCmALjjz#qC(Y1(BML*fMEh<~c&PB^YWN!5&
zK2#8@$+3~XExHzc+_y219x~2rwUZT+Y6!kWz$hGXFlbZwO#*M#W8t?6cs9TX8~n44
zE?O<d=+3`^px^Wf1itFPh`*WlB#rMr$S@(P6gL`HG%_jZfSe_y>#?Z&K6hm^mbQGV
zBK3g4iwi?6(F(bv(}G3^@@(4b?P>t&WktxBsFa{5QjV}6(Jwg~FF&@mOL42Dml9EK
zMI}f0CS?mbD5X$r>ZZE?MxCm4(O>kah=ib_euj{VTQjmWW1{6R)C>x$hJhO-`bJ8b
zd<%7kkF4nXn+0(zL8Sjyd{XAskZ;!698^MYy*p%xus-m4QPkiP{m|Cdy$%-i_~J@F
z;PJNOn{K~gS#D45w$>o|gkN*>3y#W<>LME?`XWo2WSh6Oi!|$$<i+DW9_7XB><$?s
ztl#P`(!m0;;K5tg5ci?R`i8f>(JmOmFIbj)ySoUV^T>U~n?+$9;r6sk4hb!?$%Z#)
zQ`^_Qd99(I5->cR7G-tE{?XQcU!ZV3q7#JelLrbp3`QzQR?s_rd*0LYDrvc@ebcu|
z4Qc4*lFfb}8lJDS8O^IJw3a8j?#7uS-00X7-qX#5=KnWiZhse``9G$W{O`%eF|n^U
zN&%&SQa~x76i^B%1(X6x0i}RaKq;UUPzt<H3V0zxVin6@SeWwu(Kq}9W8N>kSZfIy
SK(qi>C<FiK8|%X=)c*i7%DV0V

literal 0
HcmV?d00001

diff --git a/src/sdl_renderer.erl b/src/sdl_renderer.erl
index 9727743..5a50614 100644
--- a/src/sdl_renderer.erl
+++ b/src/sdl_renderer.erl
@@ -20,6 +20,7 @@
 -export([copy/7]).
 -export([count_drivers/0]).
 -export([create/3]).
+-export([draw_circle/4]).
 -export([draw_line/3]).
 -export([draw_line/5]).
 -export([draw_lines/2]).
@@ -96,6 +97,33 @@ create(Window, Index, Flags) ->
 	esdl2:create_renderer(Window, Index, Flags),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
 
+-spec draw_circle(renderer(), integer(), integer(), integer()) -> ok | sdl:error().
+draw_circle(Renderer, X, Y, Radius) ->
+	Points = midpoint_circle(X, Radius, Y, 0, 0),
+	draw_points(Renderer, Points).
+
+-spec midpoint_circle(integer(), integer(), integer(), integer(), integer()) -> list().
+midpoint_circle(X0, X, Y0, Y, Err) when X >= Y ->
+	Points = [#{x => X0 + X, y => Y0 + Y}, #{x => X0 + Y, y => Y0 + X}, #{x => X0 - Y, y => Y0 + X},
+		  #{x => X0 - X, y => Y0 + Y}, #{x => X0 - X, y => Y0 - Y}, #{x => X0 - Y, y => Y0 - X},
+		  #{x => X0 + Y, y => Y0 - X}, #{x => X0 + X, y => Y0 - Y}],
+	New_Y = Y + 1,
+	Tmp_Err = Err + 1 + (2 * New_Y),
+	Midpoint_Values = determine_midpoint_values(X, Tmp_Err),
+	Points ++ midpoint_circle(X0, maps:get(x, Midpoint_Values), Y0, New_Y, maps:get(err, Midpoint_Values));
+
+midpoint_circle(_, _, _, _, _) ->
+	[].
+
+-spec determine_midpoint_values(integer(), integer()) -> map().
+determine_midpoint_values(X, Err) when 2 * (Err - X) + 1 > 0 ->
+	New_X = X - 1,
+	New_Err = Err + 1 - (2 * New_X),
+	#{x => New_X, err => New_Err};
+
+determine_midpoint_values(X, Err) ->
+	#{x => X, err => Err}.
+
 -spec draw_line(renderer(), point(), point()) -> ok | sdl:error().
 draw_line(Renderer, #{x:=X1, y:=Y1}, #{x:=X2, y:=Y2}) ->
 	draw_line(Renderer, X1, Y1, X2, Y2).