From 719a91ab240a851aa964bc8eb988c8fba5ffb715 Mon Sep 17 00:00:00 2001
From: Geir Okkenhaug Jerstad <geokkjer@gmail.com>
Date: Sun, 18 Aug 2024 11:09:05 +0200
Subject: [PATCH] adde Makefile

---
 .../core.c.blob                               | Bin 8129 -> 0 bytes
 tortoise/Makefile                             |  20 ++++++++
 tortoise/core.c                               |  45 ------------------
 tortoise/tortoise                             | Bin 16032 -> 16072 bytes
 .../core.c => tortoise.c}                     |  45 +++++++++++++++++-
 5 files changed, 64 insertions(+), 46 deletions(-)
 delete mode 100644 tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c.blob
 create mode 100644 tortoise/Makefile
 delete mode 100644 tortoise/core.c
 rename tortoise/{.ccls-cache/@home@geir@code@scheme@tortoise/core.c => tortoise.c} (53%)

diff --git a/tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c.blob b/tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c.blob
deleted file mode 100644
index fb206c02e83d713bae7753a54891c34b891b2c04..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 8129
zcmcIpU2G#)6`paXj*~c9D=}8;IL@qh6*<X{CvmdgUC=Hq(C#h*A*4!dwOUQbGuQTQ
z<}dSO#{r4eO8jo0ijV+Rf(PKWFUtzGDyS4`RZ&Dm)e2B0r2a~~v{l;&1avz+_m0PF
zyC4v`iIf@V*#6GB-}%nDXKq%x4{xTg{GQ`Exn-M3ZX)c;nyn+*(^?1&zU}%p_7E6d
zRMEHz%}}l8|N3bO>)2HrK5{wP!n?8ua7cFdysBw!80}5n!(D82n~l9w?e>Oq(%q~*
z+_t2qf$N%7t!$o>j#niewPkE+MxY~3!d}<&kvRz0Xr53#Z&N*P9(S5XwYIa@&@GI$
zdZ*sp)3mPC)HG>hvr?_B$2hXKwkAiW1AvrwPu7&$mK0dqmff)=16#qa)U*Ol>e%i!
zwwe;qf;1qbd-}ie&YfYxoLtAg2mI?mt<*4V)vvU;1Vd=mw@s`m9jqfovjYoq&e((B
zb&x0f*hH?vI{JFoM_xyDMnc}7w0d-pVE+H=mqGiohYU~-J4~tzDhP`mXalK!;37{V
z*{W@^1BN03R)e}X0@+z_Z+ABJ4ZXhW)aqNElRG<m>TXqU@9kl0eWNDPwk2(BRn{vt
zD9E}@eyLH8jQ!RCHKMxB5&V55jS}2MzU}ymV|#d)F?3WG_n-g5eT;!U-wiZhaXW^s
zZL`Dfr%+-k49YU4R{^5gMN4rbihFzzNw-ylwF}0DLgNmw<y)`^Bg@BrcO+uAC8MLp
z2>yOc=1#k3-t7;hhYpG40Ll?Y2N;+35M!E=rDN5ykT=>=_mRKA!q7z-2O9CKC~T>X
zCL(sBk}X<;VqnN7EoH+dQ==W!4b}pPd2K-VWL{~}U?FL?Y1$0ui-E4Jk===T+%YL0
zZhFXP58rZ;s!Lu=b&)PnXY3?M$pKwsTQRW77?<pRY`c(ZKn7LDVQRM3uvGIvY6W^Q
z>*^-ivV4hb*NlnisMv29YLj8aq{SVCWaFAM>z=Rrh<VW=tBqaTGGQ8G$VU9A!#Hmd
z8JcZxW28VOHv&uZv28JJ(b3+25Ro&+Jh(vR1M2Xk?ud*7hEf~Y^%R9{*R?H{MFLGo
zlN{KPn2++&JgA^u)(>XA$7*^u$@Vxas=t9pKF>iKV^z~r&K3*;$dy1VE^BsrJ%kKM
zSZApeDn!SpLkxAon3x{zX5b^%rzL|?ORB52*o96<E&?|u44kX7IzmhiVD975EDkco
z2Co04$4!L!&)#_b+6Ql5g)&F3CBiTxHX26YwaVm?O<YwJ$SYFK6)u-cbM%Ma_`|~C
z%<ZH1@Zpm;=3e^ktt06{1jhxSMi1hc2!oyHiy92h;_5N6QmGKMnE|x%ypW$IXbZvu
zy%&T6y)O!j^j;K-^u8o4(Yq*!^dA25Yu)ATv)_5V=RFF#q1z6!%49LnbM@f>6vc#p
zm3S*$K0mae`P_VoF6id!qfg)aueaVASP<Gpn&FfO*8#xTK%>xb2-#oY5PCM1%~JGR
z&tH>YR;H2z=z8E(2ZD{mt`e3~11#}#skw;rXZ~WI`Qne(UhRP>ibHyZ*nodjlvlW7
zap+r_OlF?C_TGEp^oh^^(<BZ|6-NX?#2T!E<_2E3FJ4;VQmGVQPL(qWzRVp<Km>{K
zxgUIQquROhLiqjhVDYWL{p2RUa&+ZPsQu>8g8k&T-yH)7X`aLy-u}}M@gKizUmIAU
zgB{dcAbAPwU#x<gk<}d%4y9?FF(}!Ju_i`2rM*^xb4bUqeOP2ZpXVpJ$$WyJ;EoF5
zcr1MPmA~fKFXL|bT<3}JI)yj>9$tO%Q^&vl(8E8SCfNPRNU(&IFs6|h2)ALJ9AY3D
z3u7%10})7HZ^S@E+m}Bv5cLijh>V8}M9)J8BJ3dpQTUL7NPWmaDz9I+#4RPB<^%rV
z?+SnZvnRw)y#2`CBpt&)q4oSz_qMj`Pmv7(Mg}O4NICS%iQ;7M^L>mDh=HFLre_2`
zyez%*%vt=>KZZfcU!lG5*rjj0c=r7mINA+F<@}fE*$+)3x4zyJCfA1|_=!82`_;=A
zFF*Rot>oCm%tTJ$r-Z4rz%S1%!|Us#UWM@4XHNtV{vmZLY~6L^>T6Gb=F|Oz_w~w6
zg{APq+oc`<cZ1*O*JjsNp?Sq>9@IaVPD7Y{xmy0@?S#OWm&<3k+oYJoIJzNWHVwP3
z8j2nGPT&(+!grVR%UcP4nOolK6En>xIDSP~DQ5Y8lzr~OWs=aGna(8$*}3b};4qO9
zGLu<;c4ju4=KCB)<<N7NPQ&N;smxR%LC7lHaR>Ivd0{@2<@33GDa|kB7T{XQ72vv<
zTZC&dSA^?QZV9epPK4{>>|rs@ADKN;1b=Z6k#0e%meeeC22cnOULnr3kS=f}&ap!?
zhvo%-E<0Bg`1zyr6_CnOQWt)`bNbQ{>DfxQ2Bg38tt&tN>NkJ!;Lv+><+*#{y*QIS
zildH8LO6Hd`LpL9;7X<Re|SqgEpDtsaO0)%N`fEf#!p@+oF^79Eb6f2)}l`q)oWt}
zk#s)N>fk%&e7Qt(JzFkak8&Mr>to)&a{hA<oP#(f|NT307|BxdSb|S-$yyXf;X<Jf
K{5J|tn*Rt0=d8Q{

diff --git a/tortoise/Makefile b/tortoise/Makefile
new file mode 100644
index 0000000..ca16aa3
--- /dev/null
+++ b/tortoise/Makefile
@@ -0,0 +1,20 @@
+# Basic Makefile for the tortoise package.
+
+CFLAGS =
+LIBS =
+
+.PHONY: clean build run
+
+build: tortoise
+
+clean:
+	rm -f tortoise tortoise.o
+
+run: tortoise
+	./tortoise
+
+tortoise: tortoise.o
+	gcc $< -o $@ $(LIBS)
+
+tortoise.o: tortoise.c
+	gcc -c $< -o $@ $(CFLAGS)
diff --git a/tortoise/core.c b/tortoise/core.c
deleted file mode 100644
index 2c363f8..0000000
--- a/tortoise/core.c
+++ /dev/null
@@ -1,45 +0,0 @@
-/* Simple backend for a Logo like tortoise drawer. */
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <unistd.h>
-
-static const int WIDTH = 10;
-static const int HEIGHT = 10;
-
-static FILE*
-start_gnuplot() {
-  FILE* output;
-  int pipes[2];
-  pid_t pid;
-
-  pipe(pipes);
-  pid = fork();
-
-  if (!pid) {
-    dup2 (pipes[0], STDIN_FILENO);
-    execlp ("gnuplot", NULL);
-    return; /* Not reached. */
-  }
-
-  output = fdopen(pipes[1], "w");
-
-  fprintf (output, "set multiplot\n");
-  fprintf (output, "set parametric\n");
-  fprintf (output, "set xrange [-%d:%d]\n", WIDTH, WIDTH);
-  fprintf (output, "set yrange [-%d:%d]\n", HEIGHT, HEIGHT);
-  fprintf (output, "set size ratio -1\n");
-  fprintf (output, "unset xtics\n");
-  fprintf (output, "unset ytics\n");
-  fflush (output);
-
-  return output;
- }
-
-static FILE* global_output;
-
-int main(int argc, char *argv[]) {
-  global_output = start_gnuplot();
-
-  return EXIT_SUCCESS;
-}
diff --git a/tortoise/tortoise b/tortoise/tortoise
index d8b40fa510a0aae3e9ea0974819ecd585bf54e26..1358568a836d009b9ace8c58332e41ba563926dd 100755
GIT binary patch
delta 1036
zcmZWnK}-`-5S_mTX)9f}-I#4fWFb}{(9*@mqD`TVL`w_@4;n8ZNQfb+7O_2O#7H#J
zhGN9wK%$2pOpG^4FTg?IV(?-@Vl*BMTuiDS6b~3Qah<>2^?*Ow`TxI}H#7U@7beyw
z9(vs&PaOCvTY&pBEgMe1&A`BKLk|l&lB|49VlRuZ7dXj&y7Ouo%d2tYkT2$heo;8c
zuq1tKo{lYw0Lk2kr9I?*$@$4#-LW7*>B%2mPfo=G{5*!M?uLdSA=-9wI`-KGpskc{
z(fw<oR7G1&{cWP6?rvm{vC%Ut`vY{(%4d_gPo*2WuD`03i?2OZu1D(Kz;J40Xxs_F
zYHiVG3ag-R_M5J!Xb*qa^;z1VZs~dt?Qik9+QiP|x+?F>5LQVTUx(=9eie7rrUP@t
z9_7s^MCp#uBdWG;<`kt9qCK&<$mF(aha|_z4X}yV1KomGE-nS$2);T(7<j=Ok8>y3
z4GYkUiI9S7XGOmNB8-{Rn@;GY1IG)y@Y5!~xeFg6oL7;|D&~~nGBQo^@xSHStPbgF
ztO9D9!j^d_jx|CUc%TPIwI=osXNb39M7hBlY?%e{16PS>$1@!YyNX+yqWP(y1j@hq
zR%9FD9-#)jrZyJdVQ~8lJ7Cx}PExj;IA5W#DV*<6d~?KgQ&upa6`vtr&v<<Al2Or1
z&bWbEX4$AH!l0>;HO(x?NdxPVA2tc^c{c5fna$GA%C>E?R;0KA883iNzd6e%3e=(S
z|6lLN^&<)kbL%@rF&?3s<SAz`(vayx7H;uo(&L%*=(UmHFkDKdFAk+Hq_df^Y^E3r
zU$GSnkwF_fhb-Fev;_3ZcszQN6q<~-JFL0naWNWkESNei6nCQc7?Y57)?*<y=(3y2
e)lyj*U0tn?P`KR204BO3jt57}w_ms#ss9TT56A}q

delta 990
zcmZuvUr1A76hGgc<|aDt?#=F&NOw|BiMdTDBkne@G{S)p1-=-PXgw5B76cgyS)=fw
zu#Ua;U~d))lM6lcw1*O*5_;<;a!_!ihcwU#q}%zvZ3veRoPWP_IOq5MS({m$nGXg)
zF@a0P0*pWE{?fQD2@JL+R9KJCWR=v!JWH`9oMpcQ1-*h5bW;QcYfc*TOTPeZ`7>?>
z+S^C}I!<C|=s~8{50EI?FDU=<-tHsUatLEe2YZL7l?8PqN&~K|BSUlF?3<3`tkxg5
z{wNL2sC(m&^}-R><}tdcrH=IJPsh1LKE3HU3*>KYIZlrJOI*<--Eqn~DT7>tER&0q
z4ii?-F_Ociyt@loIHE4ntPDTdpkKZ#<@~xwwTy6o6P6^eZ=-rGMVyWfNVa0Vj;>2A
zgoAM{&&NpM2eaBksSv)J<5MpDSQRh2@RP_ATK)`G8SIA}8Iz(txkDkJR%24DJfwhu
z3RABBWzNm_N>mj{<7^_5e<QM1xb5owAch5?_IM&Cvq8$>0L%}V6z$0lo~qMAXX&zZ
z(CDw2dnJlg4EJiGgH%<d7O-8X)Nw1JF+<p4ZbM_#DgS5AMO>jR(^L&e8hBk>?qRuC
zV^8>m{F0augrKWuS#a<}yvm{W@RJ;;yM!t(J_#{@D_DKPt9@GNYqh5&S57Cs2K9Uw
zoOh|pS;?-AUi{dnu?}JTktO*_3Bh<$**AIR+WDSIYczS;W38qpJggJDjaXytf@}pR
zj1#PY&yAR`_7Vjw8!2B=uW%?@;q-mRyjb?AxSMLiwaj?)riWOOw2>;<pFQdeCItY)
Ncp;l&=kQrJ@(*qbyygG^

diff --git a/tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c b/tortoise/tortoise.c
similarity index 53%
rename from tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c
rename to tortoise/tortoise.c
index 2c363f8..985a762 100644
--- a/tortoise/.ccls-cache/@home@geir@code@scheme@tortoise/core.c
+++ b/tortoise/tortoise.c
@@ -3,9 +3,14 @@
 #include <stdlib.h>
 #include <stdio.h>
 #include <unistd.h>
+#include <math.h>
 
 static const int WIDTH = 10;
 static const int HEIGHT = 10;
+static double x, y;
+static double direction;
+static int pendown;
+
 
 static FILE*
 start_gnuplot() {
@@ -38,8 +43,46 @@ start_gnuplot() {
 
 static FILE* global_output;
 
+static void tortoise_reset () {
+  x = y = 0.0;
+  direction = 0.0;
+  pendown = 1;
+
+  fprintf(global_output, "clear\n");
+  fflush(global_output);
+}
+
+
 int main(int argc, char *argv[]) {
   global_output = start_gnuplot();
-
+  tortoise_reset ();
   return EXIT_SUCCESS;
 }
+
+static void draw_line(FILE *output, double x1, double y1, double x2,
+                      double y2) {
+  fprintf(output, "plot [0:1] %f + %f * t, %f + %f * t notitle\n",
+	  x1, x2 -x1, y1, y2 -y1);
+  fflush(output);
+}
+
+static void tortoise_pendown() {
+  pendown = 1;
+}
+
+static void tortoise_penup() {
+  pendown = 0;
+}
+
+static void tortoise_move(double length) {
+  double newX, newY;
+
+  newX = x + length * cos (direction);
+  newY = y + length * sin (direction);
+
+  if (pendown)
+    draw_line(global_output, x, y, newX, newY);
+
+  x = newX;
+  y = newY;
+}