2 * libsortnetwork - src/sn-tex.c
3 * Copyright (C) 2008-2010 Florian octo Forster
5 * This program is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License as published by the
7 * Free Software Foundation; only version 2 of the License is applicable.
9 * This program is distributed in the hope that it will be useful, but
10 * WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * General Public License for more details.
14 * You should have received a copy of the GNU General Public License along
15 * with this program; if not, write to the Free Software Foundation, Inc.,
16 * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
19 * Florian octo Forster <ff at octo.it>
22 #ifndef _ISOC99_SOURCE
23 # define _ISOC99_SOURCE
25 #ifndef _POSIX_C_SOURCE
26 # define _POSIX_C_SOURCE 200112L
34 #include "sn_network.h"
36 /* 21cm (DIN-A4) - 2x3cm Rand = 15cm */
37 static double output_width = 15.0;
38 static double scale = 1.0;
39 static double inner_spacing = 0.3;
40 static double outer_spacing = 1.0;
41 static double vertical_spacing = 0.8;
43 static double x_offset;
44 static int next_vertex_number = 0;
47 #define INPUT_TO_Y(i) (((double) (i)) * vertical_spacing)
49 static void exit_usage (void) /* {{{ */
51 printf ("Usage: sn-tex [options] [file]\n"
53 "Valid options are:\n"
54 " -w <width> Specify the width of the graph (in TikZ default units).\n"
55 " -f Flip the sorting network (min wire at the top, max wire at the bottom).\n"
58 } /* }}} void exit_usage */
60 static int read_options (int argc, char **argv) /* {{{ */
64 while ((option = getopt (argc, argv, "w:fh?")) != -1)
70 double width = atof (optarg);
73 fprintf (stderr, "Invalid width argument: %s\n", optarg);
92 } /* }}} int read_options */
94 static double determine_stage_width (sn_stage_t *s) /* {{{ */
96 int lines[s->comparators_num];
97 int right[s->comparators_num];
101 if (SN_STAGE_COMP_NUM (s) == 0)
104 for (i = 0; i < SN_STAGE_COMP_NUM (s); i++)
110 for (i = 0; i < SN_STAGE_COMP_NUM (s); i++)
113 sn_comparator_t *c = SN_STAGE_COMP_GET (s, i);
115 for (j = 0; j < lines_used; j++)
116 if (SN_COMP_LEFT (c) > right[j])
120 right[j] = SN_COMP_RIGHT (c);
124 assert (lines_used >= 1);
126 return (((double) (lines_used - 1)) * inner_spacing);
127 } /* }}} double determine_stage_width */
129 static double determine_network_width (sn_network_t *n) /* {{{ */
134 /* Spacing between stages and at the beginning and end of the network */
135 width = (SN_NETWORK_STAGE_NUM (n) + 1) * outer_spacing;
137 /* Spacing required within a stage */
138 for (i = 0; i < SN_NETWORK_STAGE_NUM (n); i++)
139 width += determine_stage_width (SN_NETWORK_STAGE_GET (n, i));
142 } /* }}} double determine_network_width */
144 static int tex_show_stage (sn_stage_t *s) /* {{{ */
146 int lines[s->comparators_num];
147 int right[s->comparators_num];
151 for (i = 0; i < s->comparators_num; i++)
157 for (i = 0; i < s->comparators_num; i++)
160 sn_comparator_t *c = s->comparators + i;
165 min_num = next_vertex_number;
166 next_vertex_number++;
168 max_num = next_vertex_number;
169 next_vertex_number++;
171 for (j = 0; j < lines_used; j++)
172 if (SN_COMP_LEFT (c) > right[j])
176 right[j] = SN_COMP_RIGHT (c);
180 printf ("\\node[vertex] (v%i) at (%.2f,%.2f) {};\n"
181 "\\node[vertex] (v%i) at (%.2f,%.2f) {};\n"
182 "\\path[comp] (v%i) -- (v%i);\n"
184 min_num, x_offset + (j * inner_spacing), INPUT_TO_Y (c->min),
185 max_num, x_offset + (j * inner_spacing), INPUT_TO_Y (c->max),
189 x_offset = x_offset + ((lines_used - 1) * inner_spacing) + outer_spacing;
192 } /* }}} int tex_show_stage */
194 int main (int argc, char **argv) /* {{{ */
201 read_options (argc, argv);
203 if ((argc - optind) == 0)
205 else if ((argc - optind) == 1)
206 fh = fopen (argv[optind], "r");
211 n = sn_network_read (fh);
214 fprintf (stderr, "Unable to read network from file handle.\n");
218 orig_width = determine_network_width (n);
219 if (orig_width <= 0.0)
221 fprintf (stderr, "determine_network_width returned invalid value %g.\n",
226 scale = output_width / orig_width;
227 inner_spacing *= scale;
228 outer_spacing *= scale;
229 vertical_spacing *= scale;
231 x_offset = outer_spacing;
234 printf ("\\begin{tikzpicture}[auto,yscale=-1]\n");
236 printf ("\\begin{tikzpicture}[auto]\n");
238 for (i = 0; i < SN_NETWORK_STAGE_NUM (n); i++)
239 tex_show_stage (SN_NETWORK_STAGE_GET (n, i));
241 for (i = 0; i < SN_NETWORK_INPUT_NUM (n); i++)
242 printf ("\\path[edge] (0,%.2f) -- (%.2f,%.2f);\n",
243 INPUT_TO_Y (i), x_offset, INPUT_TO_Y (i));
245 printf ("\\end{tikzpicture}\n");
250 /* vim: set shiftwidth=2 softtabstop=2 fdm=marker : */