share/draw/rtest_draw.mac

   1 (
   2     maxima_tempdir: sconcat (maxima_tempdir, "/", "draw-test-", ?getpid ()),
   3     print ("rtest_draw: output image and Gnuplot files to", maxima_tempdir),
   4     load ("operatingsystem"),
   5     /* I SUPPOSE WE SHOULD NUKE THE DIRECTORY IF IT EXISTS ALREADY */
   6     mkdir (maxima_tempdir),
   7
   8     execute_test (expr, result) ::=
   9         block ([file_name_output, file_name_output_path],
  10
  11                file_name_output: next_file_name (),
  12                /* need to paste path onto file name, since otherwise
  13                 * the graphic output file is created in the current directory.
  14                 */
  15                file_name_output_path: sconcat (maxima_tempdir, "/", file_name_output),
  16
  17                /* assign these file names to global variables
  18                 * so that they can be inspected after the fact
  19                 */
  20                file_name_gnuplot: sconcat (file_name_output, ".gnuplot"),
  21                file_name_data_gnuplot: sconcat (file_name_output, ".data"),
  22
  23                draw_tests[file_name_output]: expr,
  24                buildq ([file_name_output_path, file_name_gnuplot, file_name_data_gnuplot, expr, result],
  25                        (set_draw_defaults ('file_name = file_name_output_path,
  26                                            'gnuplot_file_name = file_name_gnuplot,
  27                                            'data_file_name = file_name_data_gnuplot),
  28                         expr,
  29                         result))),
  30
  31     file_name_counter: 0,
  32     next_file_name () := printf (false, "draw-test-~3,'0d", file_name_counter: file_name_counter + 1),
  33
  34     /* Define a function that tests if the gnuplot file created by draw contains
  35        a set of lines.
  36        */
  37     gnuplot_contains([x]):=block(
  38         [
  39             infile:openr(sconcat(maxima_tempdir,"/",file_name_gnuplot)),
  40             line,
  41             retval,
  42             lines:[]
  43         ],
  44         while(stringp(line:readline(infile))) do
  45             push(line,lines),
  46         retval:emptyp(
  47             setdifference(
  48                 setify(x),
  49                 setify(lines)
  50             )
  51         ),
  52         close(infile),
  53         return(retval)
  54     ),
  55     /* Define a function that tests if the gnuplot file created by draw contains
  56        a string.
  57        */
  58     gnuplot_contains_string(x):=block(
  59         [
  60             infile:openr(sconcat(maxima_tempdir,"/",file_name_gnuplot)),
  61             line,retval:false
  62         ],
  63         while(stringp(line:readline(infile))) do
  64             if numberp(ssearch(x,line)) then retval:true,
  65         close(infile),
  66         return(retval)
  67     ),
  68     0
  69 );
  70 0$
  71
  72 /* Test if "title=" affects the gnuplot file. */
  73 execute_test (draw2d(
  74     terminal='svg,
  75     explicit(sin(x),x,1,10)
  76 ),0);
  77 0$
  78 gnuplot_contains("set title ''");
  79 true$
  80
  81 execute_test (draw2d(
  82     terminal='svg,
  83     title="Test",
  84     explicit(sin(x),x,1,10)
  85 ),0);
  86 0$
  87 gnuplot_contains("set title 'Test'");
  88 true$
  89
  90 /* Test "contour=". */
  91 execute_test (draw3d(
  92     terminal='svg,
  93     contour='none,
  94     explicit(sin(x*y),x,1,10,y,1,10)
  95 ),0);
  96 0$
  97 execute_test (draw3d(
  98     terminal='svg,
  99     contour='base,
 100     explicit(sin(x*y),x,1,10,y,1,10)
 101 ),0);
 102 0$
 103 gnuplot_contains("set contour base");
 104 true$
 105 execute_test (draw3d(
 106     terminal='svg,
 107     contour='both,
 108     explicit(sin(x*y),x,1,10,y,1,10)
 109 ),0);
 110 0$
 111 gnuplot_contains("set contour both");
 112 true$
 113 execute_test (draw3d(
 114     terminal='svg,
 115     contour='surface,
 116     explicit(sin(x*y),x,1,10,y,1,10)
 117 ),0);
 118 0$
 119 gnuplot_contains("set contour surface");
 120 true$
 121 execute_test (draw3d(
 122     terminal='svg,
 123     contour='map,
 124     explicit(sin(x*y),x,1,10,y,1,10)
 125 ),0);
 126 0$
 127 gnuplot_contains("set contour base","unset surface");
 128 true$
 129
 130 /* Test "axis_3d=". */
 131 execute_test (draw3d(
 132     terminal='svg,
 133     axis_3d=false,
 134     explicit(sin(x*y),x,1,10,y,1,10)
 135 ),0);
 136 0$
 137 gnuplot_contains("unset xtics", "unset ytics", "unset ztics", "set border 0");
 138 true$
 139 execute_test (draw3d(
 140     terminal='svg,
 141     axis_3d=true,
 142     explicit(sin(x*y),x,1,10,y,1,10)
 143 ),0);
 144 0$
 145 gnuplot_contains("unset xtics");
 146 false$
 147 gnuplot_contains("unset ytics");
 148 false$
 149 gnuplot_contains("unset ztics");
 150 false$
 151 gnuplot_contains("set border 0");
 152 false$
 153
 154 /* test the other axis_* commands */
 155 execute_test (draw2d(
 156     terminal='svg,
 157     axis_bottom = false,
 158     explicit(sin(x),x,1,10)
 159 ),0);
 160 0$
 161 gnuplot_contains("set border 14");
 162 true$
 163 execute_test (draw2d(
 164     terminal='svg,
 165     axis_top = false,
 166     explicit(sin(x),x,1,10)
 167 ),0);
 168 0$
 169 gnuplot_contains("set border 11");
 170 true$
 171 execute_test (draw2d(
 172     terminal='svg,
 173     axis_left = false,
 174     explicit(sin(x),x,1,10)
 175 ),0);
 176 0$
 177 gnuplot_contains("set border 13");
 178 true$
 179 execute_test (draw2d(
 180     terminal='svg,
 181     axis_right = false,
 182     explicit(sin(x),x,1,10)
 183 ),0);
 184 0$
 185 gnuplot_contains("set border 7");
 186 true$
 187
 188
 189 /* test all combination of border and transparent */
 190 execute_test (draw2d(
 191     terminal='svg,
 192     border = true, transparent = true,
 193     polygon([[3,2],[7,2],[5,5]])
 194 ),0);
 195 0$
 196 gnuplot_contains_string("lt ");
 197 true$
 198 gnuplot_contains_string("filledcurves ");
 199 false$
 200 execute_test (draw2d(
 201     terminal='svg,
 202     border = false, transparent = false,
 203     polygon([[3,2],[7,2],[5,5]])
 204 ),0);
 205 0$
 206 gnuplot_contains_string("lt ");
 207 false$
 208 gnuplot_contains_string("filledcurves ");
 209 true$
 210 execute_test (draw2d(
 211     terminal='svg,
 212     border = true, transparent = false,
 213     polygon([[3,2],[7,2],[5,5]])
 214 ),0);
 215 0$
 216 gnuplot_contains_string("lt ");
 217 true$
 218 gnuplot_contains_string("filledcurves ");
 219 true$
 220
 221 /* test background_color */
 222 execute_test (draw2d(
 223     terminal='svg,
 224     line_width=50,
 225     background_color="#FF0000",
 226     explicit(sin(x),x,0,10)
 227 ),0);
 228 0$
 229 gnuplot_contains_string("obj 1 fc rgb '#ff0000'");
 230 true$
 231 execute_test (draw2d(
 232     terminal='svg,
 233     line_width=50,
 234     background_color="#00FF0080",
 235     explicit(sin(x),x,0,10)
 236 ),0);
 237 0$
 238 gnuplot_contains_string("obj 1 fc rgb '#00ff0080'");
 239 true$
 240 execute_test (draw2d(
 241     terminal='svg,
 242     line_width=50,
 243     background_color='yellow,
 244     explicit(sin(x),x,0,10)
 245 ),0);
 246 0$
 247 gnuplot_contains_string("obj 1 fc rgb '#FFFF00'");
 248 true$
 249
 250 /* test line_width and line colors including semi-transparent ones */
 251 execute_test (draw2d(
 252     terminal='svg,
 253     line_width=50,
 254     color="#FF0000",
 255     explicit(sin(x),x,0,10),
 256     color="#0000FF80",
 257     explicit(cos(x),x,0,10)
 258 ),0);
 259 0$
 260 gnuplot_contains_string("lw 50");
 261 true$
 262 gnuplot_contains_string("lw 50");
 263 true$
 264 gnuplot_contains_string("lc rgb '#800000ff'");
 265 true$
 266 gnuplot_contains_string("lc rgb '#ff0000'");
 267 true$
 268 execute_test (draw2d(
 269     terminal='svg,
 270     line_width=50,
 271     color='red,
 272     explicit(sin(x),x,0,10),
 273     color='blue,
 274     explicit(cos(x),x,0,10)
 275 ),0);
 276 0$
 277 gnuplot_contains_string("lc rgb '#FF0000'");
 278 true$
 279 gnuplot_contains_string("lc rgb '#0000FF'");
 280 true$
 281
 282 /* test colorbox */
 283 execute_test (draw(
 284     terminal='svg,
 285     gr2d(image(apply('matrix,
 286         makelist(makelist(random(200),i,1,30),i,1,30)),0,0,30,30))
 287 ),0);
 288 0$
 289 gnuplot_contains("set colorbox");
 290 true$
 291 gnuplot_contains("unset colorbox");
 292 false$
 293 execute_test (draw(
 294     terminal='svg,
 295     gr2d(colorbox = false, image(apply('matrix,
 296         makelist(makelist(random(200),i,1,30),i,1,30)),0,0,30,30))
 297 ),0);
 298 0$
 299 gnuplot_contains("set colorbox");
 300 false$
 301 gnuplot_contains("unset colorbox");
 302 true$
 303
 304 /* test "columns=" */
 305 execute_test (draw(
 306     terminal='svg,
 307     gr2d(nticks=30,
 308         parametric(2*cos(t),5*sin(t),t,0,2*%pi)),
 309     gr2d(polygon([4,5,7],[6,4,2])),
 310     columns=2),
 311     0
 312 )$
 313 0$
 314 gnuplot_contains("set size 1.0, 0.5");
 315 false$
 316 gnuplot_contains("set size 0.5, 1.0");
 317 true$
 318 execute_test (draw(
 319     terminal='svg,
 320     gr2d(title="Ellipse",
 321         nticks=30,
 322         parametric(2*cos(t),5*sin(t),t,0,2*%pi)),
 323     gr2d(title="Triangle",
 324         polygon([4,5,7],[6,4,2])),
 325     columns=1),
 326     0
 327 )$
 328 0$
 329 gnuplot_contains("set size 1.0, 0.5");
 330 true$
 331 gnuplot_contains("set size 0.5, 1.0");
 332 false$
 333 gnuplot_contains("set title 'Ellipse'");
 334 true$
 335 gnuplot_contains("set title 'Triangle'");
 336 true$
 337
 338 /* test "allocation=" */
 339 execute_test (draw(
 340     terminal='svg,
 341     dimensions=[1123,1124],
 342     gr2d(
 343         explicit(x^2,x,-1,1)),
 344     gr2d(
 345         allocation = [[1/4, 1/4],[1/2, 1/2]],
 346         explicit(x^3,x,-1,1),
 347         grid = true)
 348     ),
 349     0
 350 );
 351 0$
 352 gnuplot_contains("set size 0.5, 0.5");
 353 true$
 354 gnuplot_contains("set origin 0.25, 0.25");
 355 true$
 356 gnuplot_contains_string("size 1123, 1124");
 357 true$
 358
 359 /* test "delay=" */
 360 execute_test (draw(
 361     terminal='animated_gif,
 362     delay     = 100,
 363     gr2d(explicit(x^2,x,-1,1)),
 364     gr2d(explicit(x^3,x,-1,1)),
 365     gr2d(explicit(x^4,x,-1,1))),0);
 366 0$
 367 gnuplot_contains_string("delay 100");
 368 true$
 369 gnuplot_contains_string("set terminal gif enhanced animate");
 370 true$
 371
 372 /* test "enhanced3d=". In this instance we don't look at the .gnuplot file
 373    but at the data this file causes gnuplot to plot instead.
 374 */
 375 execute_test (draw3d(
 376     terminal='svg,
 377     enhanced3d='none,
 378     points([1,2,3,4],[3,5,3,1],[1,7,5,3])),
 379 0);
 380 0$
 381 read_nested_list (sconcat (maxima_tempdir, "/", file_name_data_gnuplot));
 382 [[1.0,3.0,1.0],[2.0,5.0,7.0],[3.0,3.0,5.0],[4.0,1.0,3.0],[],[]]$
 383 execute_test (draw3d(
 384     terminal='svg,
 385     enhanced3d=false,
 386     points([1,2,3,4],[3,5,3,1],[1,7,5,3])),
 387 0);
 388 0$
 389 read_nested_list (sconcat (maxima_tempdir, "/", file_name_data_gnuplot));
 390 [[1.0,3.0,1.0],[2.0,5.0,7.0],[3.0,3.0,5.0],[4.0,1.0,3.0],[],[]]$
 391 execute_test (draw3d(
 392     terminal='svg,
 393     enhanced3d = [x-z/10,x,y,z],
 394     points([1,2,3,4],[3,5,3,1],[1,7,5,3])),
 395 0);
 396 0$
 397 read_nested_list (sconcat (maxima_tempdir, "/", file_name_data_gnuplot));
 398 [[1.0,3.0,1.0,0.9],[2.0,5.0,7.0,1.3],[3.0,3.0,5.0,2.5],[4.0,1.0,3.0,3.7],[],[]]$
 399 execute_test (draw3d(
 400     terminal='svg,
 401     enhanced3d=true,
 402     points([1,2,3,4],[3,5,3,1],[1,7,5,3])),
 403 0);
 404 0$
 405 read_nested_list (sconcat (maxima_tempdir, "/", file_name_data_gnuplot));
 406 [[1.0,3.0,1.0,1.0],[2.0,5.0,7.0,7.0],[3.0,3.0,5.0,5.0],[4.0,1.0,3.0,3.0],[],[]]$
 407 execute_test (draw3d(
 408     terminal='svg,
 409     enhanced3d = [sin(r*s),r,s],
 410     explicit(sin(x)*sin(y),x,-2,2,y,-2,2)),
 411 0);
 412 0$
 413
 414 /* For the errors object we can at least test if using any of its variants
 415    causes an error. */
 416 execute_test (draw2d(
 417     terminal='svg,
 418     error_type = 'y,
 419     errors([[1,2,1], [3,5,3], [10,3,1], [17,6,2]])),0);
 420 0$
 421 execute_test (draw2d(
 422     terminal='svg,
 423     error_type = 'x,
 424     errors([[1,2,1], [3,5,3], [10,3,1], [17,6,2]])),0);
 425 0$
 426 execute_test (draw2d(
 427     terminal='svg,
 428     error_type = 'y,
 429     errors([[1,2,1,1], [3,5,3,2], [10,3,1,1], [17,6,2,2]])),0);
 430 0$
 431 execute_test (draw2d(
 432     terminal='svg,
 433     error_type = 'x,
 434     errors([[1,2,1,1], [3,5,3,2], [10,3,1,1], [17,6,2,2]])),0);
 435 0$
 436 execute_test (draw2d(
 437     terminal='svg,
 438     error_type = 'xy,
 439     errors([[1,2,1,1], [3,5,3,3], [10,3,1,2], [17,6,2,1]])),0);
 440 0$
 441 execute_test (draw2d(
 442     terminal='svg,
 443     error_type = 'boxes,
 444     errors([[1,2,1,1], [3,5,3,3], [10,3,1,2], [17,6,2,1]])),0);
 445 0$
 446 execute_test (draw2d(
 447     terminal='svg,
 448     error_type = 'xy,
 449     errors([[1,2,1,1,1,1], [3,5,3,3,1,1], [10,3,1,2,2,2], [17,6,2,1,2,1]])),0);
 450 0$
 451 execute_test (draw2d(
 452     terminal='svg,
 453     error_type = 'boxes,
 454     errors([[1,2,1,1,2,2], [3,5,3,3,1,1], [10,3,1,2,2,2], [17,6,2,1,2,1]])),0);
 455 0$
 456
 457 /* fill_color and filled_func */
 458 execute_test (draw2d(
 459     terminal='svg,
 460     line_width=50,
 461     fill_color="#FF0000",
 462     filled_func=x,
 463     explicit(sin(x),x,0,10),
 464     fill_color="#0000FF80",
 465     explicit(cos(x),x,0,10)
 466 ),0);
 467 0$
 468 gnuplot_contains_string("lc rgb '#800000ff'");
 469 true$
 470 gnuplot_contains_string("lc rgb '#ff0000'");
 471 true$
 472 execute_test (draw2d(
 473     terminal='svg,
 474     line_width=50,
 475     fill_color='red,
 476     filled_func=1,
 477     explicit(sin(x),x,0,10),
 478     fill_color='green,
 479     explicit(cos(x),x,0,10)
 480 ),0);
 481 0$
 482 gnuplot_contains_string("lc rgb '#FF0000'");
 483 true$
 484 gnuplot_contains_string("lc rgb '#00FF00'");
 485 true$
 486
 487 /* Test if drawing a grid works */
 488 execute_test (draw2d(
 489     terminal='svg,
 490     explicit(sin(x),x,0,10),
 491     grid=true
 492 ),0);
 493 0$
 494 gnuplot_contains("set grid xtics ytics mxtics mytics");
 495 true$
 496 gnuplot_contains("set mxtics 1");
 497 true$
 498 gnuplot_contains("set mytics 1");
 499 true$
 500 execute_test (draw2d(
 501     terminal='svg,
 502     explicit(sin(x),x,0,10),
 503     grid=[10,1]
 504 ),0);
 505 0$
 506 gnuplot_contains("set grid xtics ytics mxtics mytics");
 507 true$
 508 gnuplot_contains("set mxtics 10");
 509 true$
 510 gnuplot_contains("set mytics 1");
 511 true$
 512 execute_test (draw2d(
 513     terminal='svg,
 514     explicit(sin(x),x,0,10),
 515     grid=[1,10]
 516 ),0);
 517 0$
 518 gnuplot_contains("set grid xtics ytics mxtics mytics");
 519 true$
 520 gnuplot_contains("set mxtics 1");
 521 true$
 522 gnuplot_contains("set mytics 10");
 523 true$
 524 execute_test (draw2d(
 525     terminal='svg,
 526     explicit(sin(x),x,0,10),
 527     grid=[1.2,10.6]
 528 ),0);
 529 0$
 530 gnuplot_contains("set grid xtics ytics mxtics mytics");
 531 true$
 532 gnuplot_contains("set mxtics 1");
 533 true$
 534 gnuplot_contains("set mytics 11");
 535 true$
 536 execute_test (draw2d(
 537     terminal='svg,
 538     explicit(sin(x),x,0,10),
 539     grid=[1.6,10.4]
 540 ),0);
 541 0$
 542 gnuplot_contains("set grid xtics ytics mxtics mytics");
 543 true$
 544 gnuplot_contains("set mxtics 2");
 545 true$
 546 gnuplot_contains("set mytics 10");
 547 true$
 548 execute_test (draw2d(
 549     terminal='svg,
 550     explicit(sin(x),x,0,10),
 551     grid=false
 552 ),0);
 553 0$
 554 gnuplot_contains("unset grid");
 555 true$
 556
 557 /* Tests for head_length, head_angle, head_both and head_type */
 558 execute_test (draw2d(
 559     terminal='svg,
 560     xrange      = [0,10],
 561     yrange      = [0,9],
 562     head_length = 0.7,
 563     head_angle  = 10,
 564     head_both   = false,
 565     vector([1,1],[0,6]),
 566     head_angle  = 20,
 567     vector([2,1],[0,6]),
 568     head_angle  = 30,
 569     vector([3,1],[0,6]),
 570     head_angle  = 40,
 571     vector([4,1],[0,6]),
 572     head_angle  = 60,
 573     vector([5,1],[0,6]),
 574     head_angle  = 90,
 575     head_both   = true,
 576     vector([6,1],[0,6]),
 577     head_angle  = 120,
 578     head_type='filled,
 579     vector([7,1],[0,6]),
 580     head_angle  = 160,
 581     head_type='empty,
 582     vector([8,1],[0,6]),
 583     head_angle  = 180,
 584     head_length = 0.3,
 585     head_type='nofilled,
 586     vector([9,1],[0,6]) ),0);
 587 0$
 588 gnuplot_contains_string("vect head size 0.7, 10.0");
 589 true$
 590 gnuplot_contains_string("vect head size 0.7, 20.0");
 591 true$
 592 gnuplot_contains_string("vect head size 0.7, 30.0");
 593 true$
 594 gnuplot_contains_string("vect head size 0.7, 40.0");
 595 true$
 596 gnuplot_contains_string("vect head size 0.7, 60.0");
 597 true$
 598 gnuplot_contains_string("vect heads size 0.7, 90.0");
 599 true$
 600 gnuplot_contains_string("vect heads size 0.7, 120.0 filled");
 601 true$
 602 gnuplot_contains_string("vect heads size 0.7, 160.0 empty");
 603 true$
 604 gnuplot_contains_string("vect heads size 0.3, 180.0 nofilled");
 605 true$
 606
 607 /* Tests for points(...) with values which are not finite reals.
 608  * For implementations which permit non-finite IEEE 754 floats,
 609  * the symbols infty and nan can be assigned suitable values
 610  * before executing this script.
 611  * For other implementations, infty and nan can be left as symbols.
 612  *
 613  * SBCL, Clozure CL, ECL, CMUCL, and maybe other implementations
 614  * permit non-finite IEEE 754 floats. The details vary; here is
 615  * an incantation for SBCL:
 616  *
 617  * :lisp (sb-vm::set-floating-point-modes :traps nil)
 618  * :lisp (defparameter $infty (/ 1d0 0d0))
 619  * :lisp (defparameter $nan (/ 0d0 0d0))
 620  */
 621
 622 (xx: [2, 3, 5, 7, 11, 13, 17, 19],
 623  yy: [11, 7, 17, 5, 2, 13, 19, 3],
 624  xx1: copy (xx),
 625  xx1[1]: xx1[8]: infty,
 626  xx2: copy (xx),
 627  xx2[3]: xx2[4]: xx2[5]: nan,
 628  yy1: copy (yy),
 629  yy1[4]: yy1[5]: nan,
 630  yy2: copy (yy),
 631  yy2[2]: yy2[4]: yy2[6]: infty,
 632  array_from ([l]) :=
 633     if length (l) = 1
 634         then (make_array (any, length (l[1])), fillarray (%%, l[1]))
 635         else (make_array (any, length (l), length (l[1])), fillarray (%%, apply (append, l))),
 636  sanitize_nonfinite (l) := subst ([infty = 'infty, nan = 'nan], l),
 637  0);
 638 0;
 639
 640 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx, yy), title = "points(flat-list, flat-list)"), 0);
 641 0;
 642
 643 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (args (transpose (matrix (xx, yy)))), title = "points(nested-list), 2 elements per sublist"), 0);
 644 0;
 645
 646 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (array_from (xx), array_from (yy)), title = "points(array-1d, array-1d)"), 0);
 647 0;
 648
 649 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (array_from (xx, yy)), title = "points(array-2d), 2 rows"), 0);
 650 0;
 651
 652 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (apply (array_from, args (transpose (matrix (xx, yy))))), title = "points(array-2d), 2 columns"), 0);
 653 0;
 654
 655 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (matrix (xx, yy)), title = "points(matrix), 2 rows"), 0);
 656 0;
 657
 658 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (transpose (matrix (xx, yy))), title = "points(matrix), 2 columns"), 0);
 659 0;
 660
 661 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx1, yy), title = "points(flat-list, flat-list)"), 0);
 662 0;
 663
 664 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx1, yy)))), title = "points(nested-list), 2 elements per sublist"), 0);
 665 0;
 666
 667 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx1), array_from (yy)), title = "points(array-1d, array-1d)"), 0);
 668 0;
 669
 670 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx1, yy)), title = "points(array-2d), 2 rows"), 0);
 671 0;
 672
 673 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx1, yy))))), title = "points(array-2d), 2 columns"), 0);
 674 0;
 675
 676 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx1, yy)), title = "points(matrix), 2 rows"), 0);
 677 0;
 678
 679 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx1, yy))), title = "points(matrix), 2 columns"), 0);
 680 0;
 681
 682 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx, yy1), title = "points(flat-list, flat-list)"), 0);
 683 0;
 684
 685 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx, yy1)))), title = "points(nested-list), 2 elements per sublist"), 0);
 686 0;
 687
 688 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx), array_from (yy1)), title = "points(array-1d, array-1d)"), 0);
 689 0;
 690
 691 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx, yy1)), title = "points(array-2d), 2 rows"), 0);
 692 0;
 693
 694 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx, yy1))))), title = "points(array-2d), 2 columns"), 0);
 695 0;
 696
 697 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx, yy1)), title = "points(matrix), 2 rows"), 0);
 698 0;
 699
 700 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx, yy1))), title = "points(matrix), 2 columns"), 0);
 701 0;
 702
 703 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx1, yy1), title = "points(flat-list, flat-list)"), 0);
 704 0;
 705
 706 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx1, yy1)))), title = "points(nested-list), 2 elements per sublist"), 0);
 707 0;
 708
 709 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx1), array_from (yy1)), title = "points(array-1d, array-1d)"), 0);
 710 0;
 711
 712 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx1, yy1)), title = "points(array-2d), 2 rows"), 0);
 713 0;
 714
 715 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx1, yy1))))), title = "points(array-2d), 2 columns"), 0);
 716 0;
 717
 718 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx1, yy1)), title = "points(matrix), 2 rows"), 0);
 719 0;
 720
 721 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx1)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy1)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx1, yy1))), title = "points(matrix), 2 columns"), 0);
 722 0;
 723
 724 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx2, yy), title = "points(flat-list, flat-list)"), 0);
 725 0;
 726
 727 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx2, yy)))), title = "points(nested-list), 2 elements per sublist"), 0);
 728 0;
 729
 730 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx2), array_from (yy)), title = "points(array-1d, array-1d)"), 0);
 731 0;
 732
 733 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx2, yy)), title = "points(array-2d), 2 rows"), 0);
 734 0;
 735
 736 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx2, yy))))), title = "points(array-2d), 2 columns"), 0);
 737 0;
 738
 739 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx2, yy)), title = "points(matrix), 2 rows"), 0);
 740 0;
 741
 742 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx2, yy))), title = "points(matrix), 2 columns"), 0);
 743 0;
 744
 745 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx, yy2), title = "points(flat-list, flat-list)"), 0);
 746 0;
 747
 748 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx, yy2)))), title = "points(nested-list), 2 elements per sublist"), 0);
 749 0;
 750
 751 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx), array_from (yy2)), title = "points(array-1d, array-1d)"), 0);
 752 0;
 753
 754 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx, yy2)), title = "points(array-2d), 2 rows"), 0);
 755 0;
 756
 757 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx, yy2))))), title = "points(array-2d), 2 columns"), 0);
 758 0;
 759
 760 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx, yy2)), title = "points(matrix), 2 rows"), 0);
 761 0;
 762
 763 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx, yy2))), title = "points(matrix), 2 columns"), 0);
 764 0;
 765
 766 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (xx2, yy2), title = "points(flat-list, flat-list)"), 0);
 767 0;
 768
 769 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (args (transpose (matrix (xx2, yy2)))), title = "points(nested-list), 2 elements per sublist"), 0);
 770 0;
 771
 772 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx2), array_from (yy2)), title = "points(array-1d, array-1d)"), 0);
 773 0;
 774
 775 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (array_from (xx2, yy2)), title = "points(array-2d), 2 rows"), 0);
 776 0;
 777
 778 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (apply (array_from, args (transpose (matrix (xx2, yy2))))), title = "points(array-2d), 2 columns"), 0);
 779 0;
 780
 781 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (matrix (xx2, yy2)), title = "points(matrix), 2 rows"), 0);
 782 0;
 783
 784 execute_test (draw2d (xlabel = printf (false, "x = ~a", sanitize_nonfinite (xx2)), ylabel = printf (false, "y = ~a", sanitize_nonfinite (yy2)), terminal = 'png, point_type = 7, points_joined = true, points (xx - 0.1, yy - 0.1), color = red, points (transpose (matrix (xx2, yy2))), title = "points(matrix), 2 columns"), 0);
 785 0;
 786
 787 /* SF bug #4424: "draw2d doesnt accept fill_density in order to create opaque shapes" */
 788
 789 execute_test (draw2d (title = "fill\\_density works!", proportional_axes = 'xy, grid = true, xrange = [-4, 0], yrange = [-3, 3], xlabel = "Re(h λ)", ylabel = "Im(h λ)", key = "stability region", transparent = false, color = blue, line_width = 1, fill_color = light_pink, fill_density = 0.3, nticks = 80, ellipse(-1, 0, 1, 1, 0, 360), terminal = 'png), 0);
 790 0;
 791
 792 execute_test (draw2d(fill_color = red, filled_func = true, fill_density = 0.5, explicit(-sin(x),x,0,%pi), terminal = 'png), 0);
 793 0;
 794
 795 block ([L: flatten (rest (arrayinfo (draw_tests), 2)), linel: 1000],
 796        with_stdout (sconcat (maxima_tempdir, "/draw-tests-summary.txt"),
 797            for f in L do print (f, "pertains to", string (draw_tests[f]))),
 798        0);
 799 0;