MAKE THE MATHEMATICS YOURSELF
Gauss-sum curlicues in C
A complete program. Standard C, a compiler, and the rule behind the shape.

FROM SOURCE TO SHAPE
Run it in three steps.
- Save the source.
Download geo-quadraticGaussWalk.c into a folder on your computer.
- Compile it.
In that folder, run this with GCC or Clang:
cc -std=c11 -O2 geo-quadraticGaussWalk.c -lm -o geo-quadraticGaussWalk - Make the image.
./geo-quadraticGaussWalkOpen
geo-quadraticGaussWalk.svgin a browser to see the result.
On Windows with GCC, name the executable geo-quadraticGaussWalk.exe and run it from the same folder.
THE RULE IN THE PROGRAM
How the picture is built
Add unit vectors whose directions are quadratic residues multiplied by 2*pi/N. Their successive partial sums create a quadratic Gauss walk.
Make it your own
MODULUS = 257 (5..1201); COEFFICIENT = 7 (1..100).
The familiar square-root endpoint magnitude has hypotheses; it is not asserted for every composite modulus or non-coprime coefficient. Each run produces one image; use Graphic mode for the interactive animation.
/* Arithmos: geo-quadraticGaussWalk
* Compile: cc -std=c11 -O2 geo-quadraticGaussWalk.c -lm -o geo-quadraticGaussWalk
* Run: ./geo-quadraticGaussWalk
* Output: geo-quadraticGaussWalk.svg (open this file in a browser)
* Optional output path: ./geo-quadraticGaussWalk my-image.svg
* Edit the constants in draw() to explore another case.
*/
#include <math.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
static FILE *nt_out;
#define NT_PI 3.14159265358979323846
/* The small SVG writer keeps this program free of graphics dependencies.
* Coordinates are pixels on a 1000 x 700 drawing surface.
* t runs from 0 to 1 through mint, blue, rose, and gold.
*/
static inline void nt_color(double t, char hex[8]) {
const double stops[4][3] = {
{91,227,201}, {128,146,240}, {218,138,220}, {244,200,127}
};
t = fmax(0.0, fmin(1.0,t)) * 3.0;
int band = (int)fmin(2.0,floor(t));
double blend = t - band;
int r[3];
for (int k=0;k<3;k++) r[k]=(int)lround(stops[band][k]*(1.0-blend)+stops[band+1][k]*blend);
snprintf(hex,8,"#%02x%02x%02x",r[0],r[1],r[2]);
}
static inline void nt_line(double x,double y,double X,double Y,double t,double alpha,double width) {
char color[8];nt_color(t,color);
fprintf(nt_out,"<path d=\"M%.3f %.3f L%.3f %.3f\" fill=\"none\" stroke=\"%s\" stroke-opacity=\"%.3f\" stroke-width=\"%.3f\"/>\n",x,y,X,Y,color,alpha,width);
}
static inline void nt_dot(double x,double y,double r,double t,double alpha) {
char color[8];nt_color(t,color);
fprintf(nt_out,"<circle cx=\"%.3f\" cy=\"%.3f\" r=\"%.3f\" fill=\"%s\" fill-opacity=\"%.3f\"/>\n",x,y,r,color,alpha);
}
static inline void nt_circle(double x,double y,double r,double t,double alpha,double width) {
char color[8];nt_color(t,color);
fprintf(nt_out,"<circle cx=\"%.3f\" cy=\"%.3f\" r=\"%.3f\" fill=\"none\" stroke=\"%s\" stroke-opacity=\"%.3f\" stroke-width=\"%.3f\"/>\n",x,y,r,color,alpha,width);
}
static inline void nt_rect(double x,double y,double w,double h,double t,double alpha) {
char color[8];nt_color(t,color);
fprintf(nt_out,"<rect x=\"%.3f\" y=\"%.3f\" width=\"%.3f\" height=\"%.3f\" fill=\"%s\" fill-opacity=\"%.3f\"/>\n",x,y,w,h,color,alpha);
}
static inline void nt_text(double x,double y,const char *text) {
fprintf(nt_out,"<text x=\"%.3f\" y=\"%.3f\" fill=\"#ededf3\" font-family=\"monospace\" font-size=\"16\">",x,y);
for (;*text;text++) {
if (*text=='&') fputs("&",nt_out);
else if (*text=='<') fputs("<",nt_out);
else if (*text=='>') fputs(">",nt_out);
else fputc(*text,nt_out);
}
fputs("</text>\n",nt_out);
}
static inline int nt_gcd(int a,int b) {a=abs(a);b=abs(b);while(b){int r=a%b;a=b;b=r;}return a;}
static inline int nt_prime(int n) {if(n<2)return 0;for(int d=2;d<=n/d;d++)if(n%d==0)return 0;return 1;}
/* Edit MODULUS (5..1201) and COEFFICIENT (1..100). */
static void draw(void) {
const int MODULUS=257,COEFFICIENT=7;
double x[1202]={0},y[1202]={0},xmin=0,xmax=0,ymin=0,ymax=0;
for(int k=0;k<MODULUS;k++) {
int residue=(int)(((int64_t)COEFFICIENT*k*k)%MODULUS);
double a=2*NT_PI*residue/MODULUS;
x[k+1]=x[k]+cos(a);y[k+1]=y[k]+sin(a);
xmin=fmin(xmin,x[k+1]);xmax=fmax(xmax,x[k+1]);ymin=fmin(ymin,y[k+1]);ymax=fmax(ymax,y[k+1]);
}
double s=fmin(840/fmax(xmax-xmin,1),540/fmax(ymax-ymin,1)),cx=(xmin+xmax)/2,cy=(ymin+ymax)/2;
for(int k=1;k<=MODULUS;k++)nt_line(500+s*(x[k-1]-cx),350-s*(y[k-1]-cy),500+s*(x[k]-cx),350-s*(y[k]-cy),(double)k/MODULUS,.95,2);
nt_dot(500-s*cx,350+s*cy,4,0,1);
nt_dot(500+s*(x[MODULUS]-cx),350-s*(y[MODULUS]-cy),4,1,1);
nt_text(30,35,"Quadratic Gauss walk: unit steps at angles 2 pi (a k^2 mod N) / N");
}
int main(int argc, char **argv) {
if (argc > 2) {
fprintf(stderr, "Usage: %s [OUTPUT.svg]\n", argv[0]);
return EXIT_FAILURE;
}
const char *filename = argc == 2 ? argv[1] : "geo-quadraticGaussWalk.svg";
nt_out = fopen(filename, "wb");
if (!nt_out) { perror(filename); return EXIT_FAILURE; }
fputs("<svg xmlns=\"http://www.w3.org/2000/svg\" width=\"1000\" height=\"700\" viewBox=\"0 0 1000 700\">\n"
"<rect width=\"1000\" height=\"700\" fill=\"#171721\"/>\n", nt_out);
draw();
fputs("</svg>\n", nt_out);
int failed = ferror(nt_out);
if (fclose(nt_out) != 0) failed = 1;
if (failed) { fputs("Could not finish writing the image.\n", stderr); return EXIT_FAILURE; }
printf("Wrote %s\n", filename);
return EXIT_SUCCESS;
}
All 40 explorations, ready to compile.Download all C examples ↓