tests/testbench_draw_manual.wxm

   1 /* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
   2 /* [ Created with wxMaxima version 17.10.x.unofficial ] */
   3 /* [wxMaxima: title   start ]
   4 A simple manual testbench for draw
   5    [wxMaxima: title   end   ] */
   6
   7
   8 /* [wxMaxima: section start ]
   9 The concept
  10    [wxMaxima: section end   ] */
  11
  12
  13 /* [wxMaxima: comment start ]
  14 We don't have an automatic testbench for gnuplot. But we can at least run all gnuplot examples and accompy every image with the information what to check for manually.
  15    [wxMaxima: comment end   ] */
  16
  17
  18 /* [wxMaxima: input   start ] */
  19 if wxplot_size = 'wxplot_size then
  20     (
  21         print("Maxima will now try to display draw scenes and tell what they should contain."),
  22         print("The test if this is actually true has to be done manually, though.")
  23     )$
  24 /* [wxMaxima: input   end   ] */
  25
  26
  27 /* [wxMaxima: section start ]
  28 The test cases for things that can be embedded/displayed on the screen.
  29    [wxMaxima: section end   ] */
  30
  31
  32 /* [wxMaxima: input   start ] */
  33 print("A 3D graph without axis")$
  34 load("../doc/info/figures/draw_axis3d.mac")$
  35 /* [wxMaxima: input   end   ] */
  36
  37
  38 /* [wxMaxima: input   start ] */
  39 print("A diagram without a bottom axis")$
  40 load("../doc/info/figures/draw_axis_bottom.mac")$
  41 /* [wxMaxima: input   end   ] */
  42
  43
  44 /* [wxMaxima: input   start ] */
  45 print("Bars, Group B has a dashed border, if gnuplot is using pngcairo as terminal")$
  46 load("../doc/info/figures/draw_bars.mac")$
  47 /* [wxMaxima: input   end   ] */
  48
  49
  50 /* [wxMaxima: input   start ] */
  51 print("Two triangles, the right one without border")$
  52 load("../doc/info/figures/draw_border.mac")$
  53 /* [wxMaxima: input   end   ] */
  54
  55
  56 /* [wxMaxima: input   start ] */
  57 print("A colorful 3D plot with a legend telling which color means which Z coordinate")$
  58 load("../doc/info/figures/draw_cbrange.mac")$
  59 /* [wxMaxima: input   end   ] */
  60
  61
  62 /* [wxMaxima: input   start ] */
  63 print("The same as above, but the color range ranges from \"Low\" over \"Medium\" to \"High\"")$
  64 load("../doc/info/figures/draw_cbtics.mac")$
  65 /* [wxMaxima: input   end   ] */
  66
  67
  68 /* [wxMaxima: input   start ] */
  69 print("One centered label and curves with different colors")$
  70 load("../doc/info/figures/draw_color.mac")$
  71 /* [wxMaxima: input   end   ] */
  72
  73
  74 /* [wxMaxima: input   start ] */
  75 print("Two clored boxes, the upper one with a legend sorting the colors from black (0) to yellow (200)")$
  76 load("../doc/info/figures/draw_colorbox.mac")$
  77 /* [wxMaxima: input   end   ] */
  78
  79
  80 /* [wxMaxima: input   start ] */
  81 print("A colorful 3D diagram with the legend called \"Magnitude\"")$
  82 load("../doc/info/figures/draw_colorbox2.mac")$
  83 /* [wxMaxima: input   end   ] */
  84
  85
  86 /* [wxMaxima: input   start ] */
  87 print("A plot with an ellipse (left) and a plot with a triangle (right)")$
  88 load("../doc/info/figures/draw_columns.mac")$
  89 /* [wxMaxima: input   end   ] */
  90
  91
  92 /* [wxMaxima: input   start ] */
  93 print("A contour plot with height lines")$
  94 load("../doc/info/figures/draw_contour.mac")$
  95 /* [wxMaxima: input   end   ] */
  96
  97
  98 /* [wxMaxima: input   start ] */
  99 print("Only the height lines seen from above")$
 100 load("../doc/info/figures/draw_contour2.mac")$
 101 /* [wxMaxima: input   end   ] */
 102
 103
 104 /* [wxMaxima: input   start ] */
 105 print("A 3d cylinder")$
 106 load("../doc/info/figures/draw_cylindrical.mac")$
 107 /* [wxMaxima: input   end   ] */
 108
 109
 110 /* [wxMaxima: input   start ] */
 111 print("A 3D mesh with random 3D pixels")$
 112 load("../doc/info/figures/draw_elevation_grid.mac")$
 113 /* [wxMaxima: input   end   ] */
 114
 115
 116 /* [wxMaxima: input   start ] */
 117 print("A filled 3/4 circle and a quarter of a non-filled circle")$
 118 load("../doc/info/figures/draw_ellipse.mac")$
 119 /* [wxMaxima: input   end   ] */
 120
 121
 122 /* [wxMaxima: input   start ] */
 123 print("A 3d diagram in grayscale; The color equals the x coordinate; black is left")$
 124 load("../doc/info/figures/draw_enhanced3d.mac")$
 125 /* [wxMaxima: input   end   ] */
 126
 127
 128 /* [wxMaxima: input   start ] */
 129 print("Colorful big points in a 3D space, blue means: x=0, yellow means: x=1")$
 130 load("../doc/info/figures/draw_enhanced3d10.mac")$
 131 /* [wxMaxima: input   end   ] */
 132
 133
 134 /* [wxMaxima: input   start ] */
 135 print("Colored dots, more or less chaotic colors and a color scale.")$
 136 load("../doc/info/figures/draw_enhanced3d11.mac")$
 137 /* [wxMaxima: input   end   ] */
 138
 139
 140 /* [wxMaxima: input   start ] */
 141 print("A colored surface, the colors show 1/x isoclines.")$
 142 load("../doc/info/figures/draw_enhanced3d2.mac")$
 143 /* [wxMaxima: input   end   ] */
 144
 145
 146 /* [wxMaxima: input   start ] */
 147 print("Parabolae in a3d space. One side of the line is black, the other yellow.")$
 148 load("../doc/info/figures/draw_enhanced3d3.mac")$
 149 /* [wxMaxima: input   end   ] */
 150
 151
 152 /* [wxMaxima: input   start ] */
 153 print("A colored curve.")$
 154 load("../doc/info/figures/draw_enhanced3d4.mac")$
 155 /* [wxMaxima: input   end   ] */
 156
 157
 158 /* [wxMaxima: input   start ] */
 159 print("A surface with a 1/(x*y) color pattern")$
 160 load("../doc/info/figures/draw_enhanced3d5.mac")$
 161 /* [wxMaxima: input   end   ] */
 162
 163
 164 /* [wxMaxima: input   start ] */
 165 print("A gray 3d tube")$
 166 load("../doc/info/figures/draw_enhanced3d6.mac")$
 167 /* [wxMaxima: input   end   ] */
 168
 169
 170 /* [wxMaxima: input   start ] */
 171 print(" colored 3d tube.")$
 172 load("../doc/info/figures/draw_enhanced3d7.mac")$
 173 /* [wxMaxima: input   end   ] */
 174
 175
 176 /* [wxMaxima: input   start ] */
 177 print("A 3d tube with one closed end")$
 178 load("../doc/info/figures/draw_enhanced3d8.mac")$
 179 /* [wxMaxima: input   end   ] */
 180
 181
 182 /* [wxMaxima: input   start ] */
 183 print("Two colored easter eggs.")$
 184 load("../doc/info/figures/draw_enhanced3d9.mac")$
 185 /* [wxMaxima: input   end   ] */
 186
 187
 188 /* [wxMaxima: input   start ] */
 189 print("A 3d surface")$
 190 load("../doc/info/figures/draw_equiv.mac")$
 191 /* [wxMaxima: input   end   ] */
 192
 193
 194 /* [wxMaxima: input   start ] */
 195 print("Two error lines with markers in the end and one marker in the middle each.")$
 196 load("../doc/info/figures/draw_errors.mac")$
 197 /* [wxMaxima: input   end   ] */
 198
 199
 200 /* [wxMaxima: input   start ] */
 201 print("Two error crosses where the centers of the crosses being connected")$
 202 load("../doc/info/figures/draw_errors2.mac")$
 203 /* [wxMaxima: input   end   ] */
 204
 205
 206 /* [wxMaxima: input   start ] */
 207 print("A wide parabola")$
 208 load("../doc/info/figures/draw_explicit.mac")$
 209 /* [wxMaxima: input   end   ] */
 210
 211
 212 /* [wxMaxima: input   start ] */
 213 print("A filled area below a parabola")$
 214 load("../doc/info/figures/draw_explicit2.mac")$
 215 /* [wxMaxima: input   end   ] */
 216
 217
 218 /* [wxMaxima: input   start ] */
 219 print("A 3d parabola and a plane that intersect each other.")$
 220 load("../doc/info/figures/draw_explicit3.mac")$
 221 /* [wxMaxima: input   end   ] */
 222
 223
 224 /* [wxMaxima: input   start ] */
 225 print("The area below a sinus filled with red")$
 226 load("../doc/info/figures/draw_filledfunc.mac")$
 227 /* [wxMaxima: input   end   ] */
 228
 229
 230 /* [wxMaxima: input   start ] */
 231 print("The area between two curves.")$
 232 load("../doc/info/figures/draw_filledfunc2.mac")$
 233 /* [wxMaxima: input   end   ] */
 234
 235
 236 /* [wxMaxima: input   start ] */
 237 print("A plot with a background grid.")$
 238 load("../doc/info/figures/draw_grid.mac")$
 239 /* [wxMaxima: input   end   ] */
 240
 241
 242 /* [wxMaxima: input   start ] */
 243 print("A plot with a fine background grid")$
 244 load("../doc/info/figures/draw_grid2.mac")$
 245 /* [wxMaxima: input   end   ] */
 246
 247
 248 /* [wxMaxima: input   start ] */
 249 print("Vertical arrows with one head each")$
 250 load("../doc/info/figures/draw_head_angle.mac")$
 251 /* [wxMaxima: input   end   ] */
 252
 253
 254 /* [wxMaxima: input   start ] */
 255 print("A double- and a single-headed arrow.")$
 256 load("../doc/info/figures/draw_head_both.mac")$
 257 /* [wxMaxima: input   end   ] */
 258
 259
 260 /* [wxMaxima: input   start ] */
 261 print("Arrows with differently-sized heads")$
 262 load("../doc/info/figures/draw_head_length.mac")$
 263 /* [wxMaxima: input   end   ] */
 264
 265
 266 /* [wxMaxima: input   start ] */
 267 print("Arrows with three head types")$
 268 load("../doc/info/figures/draw_head_type.mac")$
 269 /* [wxMaxima: input   end   ] */
 270
 271
 272 /* [wxMaxima: input   start ] */
 273 print("A random bitmap and a color scale")$
 274 load("../doc/info/figures/draw_image.mac")$
 275 /* [wxMaxima: input   end   ] */
 276
 277
 278 /* [wxMaxima: input   start ] */
 279 print("The same bitmap with a black-and-white palette")$
 280 load("../doc/info/figures/draw_image2.mac")$
 281 /* [wxMaxima: input   end   ] */
 282
 283
 284 /* [wxMaxima: input   start ] */
 285 print("A different palette")$
 286 load("../doc/info/figures/draw_image3.mac")$
 287 /* [wxMaxima: input   end   ] */
 288
 289
 290 /* [wxMaxima: input   start ] */
 291 print("Another palette")$
 292 load("../doc/info/figures/draw_image4.mac")$
 293 /* [wxMaxima: input   end   ] */
 294
 295
 296 /* [wxMaxima: input   start ] */
 297 print("a 6-pixel image in color")$
 298 load("../doc/info/figures/draw_image5.mac")$
 299 /* [wxMaxima: input   end   ] */
 300
 301
 302 /* [wxMaxima: input   start ] */
 303 print("And the same with a black-and-white palette")$
 304 load("../doc/info/figures/draw_image6.mac")$
 305 /* [wxMaxima: input   end   ] */
 306
 307
 308 /* [wxMaxima: input   start ] */
 309 print("A typical implicit plot")$
 310 load("../doc/info/figures/draw_implicit.mac")$
 311 /* [wxMaxima: input   end   ] */
 312
 313
 314 /* [wxMaxima: input   start ] */
 315 print("Two 3D easter eggs as implicit plot")$
 316 load("../doc/info/figures/draw_implicit2.mac")$
 317 /* [wxMaxima: input   end   ] */
 318
 319
 320 /* [wxMaxima: input   start ] */
 321 print("A sinus and a cosinus with grid, two line styles and colors")$
 322 load("../doc/info/figures/draw_intro.mac")$
 323 /* [wxMaxima: input   end   ] */
 324
 325
 326 /* [wxMaxima: input   start ] */
 327 print("A diagram with a circle and a diagram with a triangle next to each other")$
 328 load("../doc/info/figures/draw_intro2.mac")$
 329 /* [wxMaxima: input   end   ] */
 330
 331
 332 /* [wxMaxima: input   start ] */
 333 print("A diagram with a sinus above a diagram with a cosinus ")$
 334 load("../doc/info/figures/draw_intro3.mac")$
 335 /* [wxMaxima: input   end   ] */
 336
 337
 338 /* [wxMaxima: input   start ] */
 339 print("A 3d plot with each mesh rectangle being filled with a solid color")$
 340 load("../doc/info/figures/draw_interpolate_color.mac")$
 341 /* [wxMaxima: input   end   ] */
 342
 343
 344 /* [wxMaxima: input   start ] */
 345 print("A 3d plot with smooth colors")$
 346 load("../doc/info/figures/draw_interpolate_color2.mac")$
 347 /* [wxMaxima: input   end   ] */
 348
 349
 350 /* [wxMaxima: input   start ] */
 351 print("A 3d Plot with colors only smoothed in z direction.")$
 352 load("../doc/info/figures/draw_interpolate_color3.mac")$
 353 /* [wxMaxima: input   end   ] */
 354
 355
 356 /* [wxMaxima: input   start ] */
 357 print("A irregular mesh with each rectangle filled with a solid color")$
 358 load("../doc/info/figures/draw_interpolate_color4.mac")$
 359 /* [wxMaxima: input   end   ] */
 360
 361
 362 /* [wxMaxima: input   start ] */
 363 print("A irregular mesh with interpolated colors as an ugly example")$
 364 load("../doc/info/figures/draw_interpolate_color5.mac")$
 365 /* [wxMaxima: input   end   ] */
 366
 367
 368 /* [wxMaxima: input   start ] */
 369 print("An even more ugly example of this mesh")$
 370 load("../doc/info/figures/draw_interpolate_color6.mac")$
 371 /* [wxMaxima: input   end   ] */
 372
 373
 374 /* [wxMaxima: input   start ] */
 375 print("A plot with a  key")$
 376 load("../doc/info/figures/draw_key.mac")$
 377 /* [wxMaxima: input   end   ] */
 378
 379
 380 /* [wxMaxima: input   start ] */
 381 print("A key at the top left")$
 382 load("../doc/info/figures/draw_key_pos.mac")$
 383 /* [wxMaxima: input   end   ] */
 384
 385
 386 /* [wxMaxima: input   start ] */
 387 print("Two transparent grids")$
 388 load("../doc/info/figures/draw_key_pos2.mac")$
 389 /* [wxMaxima: input   end   ] */
 390
 391
 392 /* [wxMaxima: input   start ] */
 393 print("4 horizontally centered Labels")$
 394 load("../doc/info/figures/draw_label.mac")$
 395 /* [wxMaxima: input   end   ] */
 396
 397
 398 /* [wxMaxima: input   start ] */
 399 print("Labels around a 3d surface")$
 400 load("../doc/info/figures/draw_label2.mac")$
 401 /* [wxMaxima: input   end   ] */
 402
 403
 404 /* [wxMaxima: input   start ] */
 405 print("Aligned labels")$
 406 load("../doc/info/figures/draw_label_alignment.mac")$
 407 /* [wxMaxima: input   end   ] */
 408
 409
 410 /* [wxMaxima: input   start ] */
 411 print("Rotation of labels")$
 412 load("../doc/info/figures/draw_label_orientation.mac")$
 413 /* [wxMaxima: input   end   ] */
 414
 415
 416 /* [wxMaxima: input   start ] */
 417 print("Two line types")$
 418 load("../doc/info/figures/draw_line_type.mac")$
 419 /* [wxMaxima: input   end   ] */
 420
 421
 422 /* [wxMaxima: input   start ] */
 423 print("Three line widths")$
 424 load("../doc/info/figures/draw_line_width.mac")$
 425 /* [wxMaxima: input   end   ] */
 426
 427
 428 /* [wxMaxima: input   start ] */
 429 print("3d plot with logarithmic color key")$
 430 load("../doc/info/figures/draw_logcb.mac")$
 431 /* [wxMaxima: input   end   ] */
 432
 433
 434 /* [wxMaxima: input   start ] */
 435 print("linear x, logarighmic secondary x axis")$
 436 load("../doc/info/figures/draw_logx_secondary.mac")$
 437 /* [wxMaxima: input   end   ] */
 438
 439
 440 /* [wxMaxima: input   start ] */
 441 print("A transparent 3d mesh")$
 442 load("../doc/info/figures/draw_mesh.mac")$
 443 /* [wxMaxima: input   end   ] */
 444
 445
 446 /* [wxMaxima: input   start ] */
 447 print("A 3d triangle (transparent)")$
 448 load("../doc/info/figures/draw_mesh2.mac")$
 449 /* [wxMaxima: input   end   ] */
 450
 451
 452 /* [wxMaxima: input   start ] */
 453 print("Two 4-point-polygons, filled with white")$
 454 load("../doc/info/figures/draw_mesh3.mac")$
 455 /* [wxMaxima: input   end   ] */
 456
 457
 458 /* [wxMaxima: input   start ] */
 459 print("A curve, half smooth, half polygon")$
 460 load("../doc/info/figures/draw_nticks.mac")$
 461 /* [wxMaxima: input   end   ] */
 462
 463
 464 /* [wxMaxima: input   start ] */
 465 print("Two intersecting planes in weird colors")$
 466 load("../doc/info/figures/draw_palette.mac")$
 467 /* [wxMaxima: input   end   ] */
 468
 469
 470 /* [wxMaxima: input   start ] */
 471 print("Random dots, palette #1")$
 472 load("../doc/info/figures/draw_palette2.mac")$
 473 /* [wxMaxima: input   end   ] */
 474
 475
 476 /* [wxMaxima: input   start ] */
 477 print("Random dots, palette #2")$
 478 load("../doc/info/figures/draw_palette3.mac")$
 479 /* [wxMaxima: input   end   ] */
 480
 481
 482 /* [wxMaxima: input   start ] */
 483 print("Random dots, palette #3")$
 484 load("../doc/info/figures/draw_palette4.mac")$
 485 /* [wxMaxima: input   end   ] */
 486
 487
 488 /* [wxMaxima: input   start ] */
 489 print("A 3d surface with a nonstandard palette")$
 490 load("../doc/info/figures/draw_palette5.mac")$
 491 /* [wxMaxima: input   end   ] */
 492
 493
 494 /* [wxMaxima: input   start ] */
 495 print("A parametric and a normal curve")$
 496 load("../doc/info/figures/draw_parametric.mac")$
 497 /* [wxMaxima: input   end   ] */
 498
 499
 500 /* [wxMaxima: input   start ] */
 501 print("A 3d surface, filled with white")$
 502 load("../doc/info/figures/draw_parametric2.mac")$
 503 /* [wxMaxima: input   end   ] */
 504
 505
 506 /* [wxMaxima: input   start ] */
 507 print("A 3d slug, filled with white")$
 508 load("../doc/info/figures/draw_parametric3.mac")$
 509 /* [wxMaxima: input   end   ] */
 510
 511
 512 /* [wxMaxima: input   start ] */
 513 print("Points of two sizes")$
 514 load("../doc/info/figures/draw_point_size.mac")$
 515 /* [wxMaxima: input   end   ] */
 516
 517
 518 /* [wxMaxima: input   start ] */
 519 print("Point types")$
 520 load("../doc/info/figures/draw_point_type.mac")$
 521 /* [wxMaxima: input   end   ] */
 522
 523
 524 /* [wxMaxima: input   start ] */
 525 print("Different point types, sometypes connected with lines")$
 526 load("../doc/info/figures/draw_points.mac")$
 527 /* [wxMaxima: input   end   ] */
 528
 529
 530 /* [wxMaxima: input   start ] */
 531 print("Vertical lines of different lengths")$
 532 load("../doc/info/figures/draw_points2.mac")$
 533 /* [wxMaxima: input   end   ] */
 534
 535
 536 /* [wxMaxima: input   start ] */
 537 print("Random points")$
 538 load("../doc/info/figures/draw_points3.mac")$
 539 /* [wxMaxima: input   end   ] */
 540
 541
 542 /* [wxMaxima: input   start ] */
 543 print("Points at discrete y coordinates")$
 544 load("../doc/info/figures/draw_points4.mac")$
 545 /* [wxMaxima: input   end   ] */
 546
 547
 548 /* [wxMaxima: input   start ] */
 549 print("Points at discrete y coordinates")$
 550 load("../doc/info/figures/draw_points5.mac")$
 551 /* [wxMaxima: input   end   ] */
 552
 553
 554 /* [wxMaxima: input   start ] */
 555 print("Random points in a 3d space")$
 556 load("../doc/info/figures/draw_points6.mac")$
 557 /* [wxMaxima: input   end   ] */
 558
 559
 560 /* [wxMaxima: input   start ] */
 561 print("Connected random points in a 3d space + a color key")$
 562 load("../doc/info/figures/draw_points7.mac")$
 563 /* [wxMaxima: input   end   ] */
 564
 565
 566 /* [wxMaxima: input   start ] */
 567 print("Colored dots on a curve")$
 568 load("../doc/info/figures/draw_points8.mac")$
 569 /* [wxMaxima: input   end   ] */
 570
 571
 572 /* [wxMaxima: input   start ] */
 573 print("Points joined by lines with different line styles")$
 574 load("../doc/info/figures/draw_points_joined.mac")$
 575 /* [wxMaxima: input   end   ] */
 576
 577
 578 /* [wxMaxima: input   start ] */
 579 print("A hyperbolic spiral")$
 580 load("../doc/info/figures/draw_polar.mac")$
 581 /* [wxMaxima: input   end   ] */
 582
 583
 584 /* [wxMaxima: input   start ] */
 585 print("Two polygons, one with border")$
 586 load("../doc/info/figures/draw_polygon.mac")$
 587 /* [wxMaxima: input   end   ] */
 588
 589
 590 /* [wxMaxima: input   start ] */
 591 load("../doc/info/figures/draw_proportional_axis.mac")$
 592 /* [wxMaxima: input   end   ] */
 593
 594
 595 /* [wxMaxima: input   start ] */
 596 print("Three plots, the first two having the x axis scaled in the same scale as the y axis.")$
 597 load("../doc/info/figures/draw_proportional_axis2.mac")$
 598 /* [wxMaxima: input   end   ] */
 599
 600
 601 /* [wxMaxima: input   start ] */
 602 print("A 4-point polygon")$
 603 load("../doc/info/figures/draw_quadrilateral.mac")$
 604 /* [wxMaxima: input   end   ] */
 605
 606
 607 /* [wxMaxima: input   start ] */
 608 print("One filled and a non-filled rectangles, different border styles")$
 609 load("../doc/info/figures/draw_rectangle.mac")$
 610 /* [wxMaxima: input   end   ] */
 611
 612
 613 /* [wxMaxima: input   start ] */
 614 load("../doc/info/figures/draw_region.mac")$
 615 /* [wxMaxima: input   end   ] */
 616
 617
 618 /* [wxMaxima: input   start ] */
 619 load("../doc/info/figures/draw_scene.mac")$
 620 /* [wxMaxima: input   end   ] */
 621
 622
 623 /* [wxMaxima: input   start ] */
 624 load("../doc/info/figures/draw_spherical.mac")$
 625 /* [wxMaxima: input   end   ] */
 626
 627
 628 /* [wxMaxima: input   start ] */
 629 load("../doc/info/figures/draw_surface_hide.mac")$
 630 /* [wxMaxima: input   end   ] */
 631
 632
 633 /* [wxMaxima: input   start ] */
 634 print("A plot with a title")$
 635 load("../doc/info/figures/draw_title.mac")$
 636 /* [wxMaxima: input   end   ] */
 637
 638
 639 /* [wxMaxima: input   start ] */
 640 load("../doc/info/figures/draw_transform.mac")$
 641 /* [wxMaxima: input   end   ] */
 642
 643
 644 /* [wxMaxima: input   start ] */
 645 load("../doc/info/figures/draw_transform2.mac")$
 646 /* [wxMaxima: input   end   ] */
 647
 648
 649 /* [wxMaxima: input   start ] */
 650 print("Two triangles, one filled with transparency")$
 651 load("../doc/info/figures/draw_transparent.mac")$
 652 /* [wxMaxima: input   end   ] */
 653
 654
 655 /* [wxMaxima: input   start ] */
 656 print("One triangle")$
 657 load("../doc/info/figures/draw_triangle.mac")$
 658 /* [wxMaxima: input   end   ] */
 659
 660
 661 /* [wxMaxima: input   start ] */
 662 load("../doc/info/figures/draw_tube.mac")$
 663 /* [wxMaxima: input   end   ] */
 664
 665
 666 /* [wxMaxima: input   start ] */
 667 load("../doc/info/figures/draw_tube_extremes.mac")$
 668 /* [wxMaxima: input   end   ] */
 669
 670
 671 /* [wxMaxima: input   start ] */
 672 print("A few lines with heads")$
 673 load("../doc/info/figures/draw_unit_vectors.mac")$
 674 /* [wxMaxima: input   end   ] */
 675
 676
 677 /* [wxMaxima: input   start ] */
 678 print("A japonese flag")$
 679 load("../doc/info/figures/draw_user_preamble.mac")$
 680 /* [wxMaxima: input   end   ] */
 681
 682
 683 /* [wxMaxima: input   start ] */
 684 load("../doc/info/figures/draw_user_preamble2.mac")$
 685 /* [wxMaxima: input   end   ] */
 686
 687
 688 /* [wxMaxima: input   start ] */
 689 print("Vectors with different head and line styles")$
 690 load("../doc/info/figures/draw_vector.mac")$
 691 /* [wxMaxima: input   end   ] */
 692
 693
 694 /* [wxMaxima: input   start ] */
 695 print("3D Vectors with wide but short heads")$
 696 load("../doc/info/figures/draw_vector2.mac")$
 697 /* [wxMaxima: input   end   ] */
 698
 699
 700 /* [wxMaxima: input   start ] */
 701 load("../doc/info/figures/draw_view.mac")$
 702 /* [wxMaxima: input   end   ] */
 703
 704
 705 /* [wxMaxima: input   start ] */
 706 load("../doc/info/figures/draw_view2.mac")$
 707 /* [wxMaxima: input   end   ] */
 708
 709
 710 /* [wxMaxima: input   start ] */
 711 load("../doc/info/figures/draw_wired_surface.mac")$
 712 /* [wxMaxima: input   end   ] */
 713
 714
 715 /* [wxMaxima: input   start ] */
 716 load("../doc/info/figures/draw_xaxis.mac")$
 717 /* [wxMaxima: input   end   ] */
 718
 719
 720 /* [wxMaxima: input   start ] */
 721 load("../doc/info/figures/draw_xaxis_secondary.mac")$
 722 /* [wxMaxima: input   end   ] */
 723
 724
 725 /* [wxMaxima: input   start ] */
 726 load("../doc/info/figures/worldmap_make_poly_continent.mac")$
 727 /* [wxMaxima: input   end   ] */
 728
 729
 730 /* [wxMaxima: input   start ] */
 731 load("../doc/info/figures/worldmap_make_poly_continent2.mac")$
 732 /* [wxMaxima: input   end   ] */
 733
 734
 735 /* [wxMaxima: input   start ] */
 736 load("../doc/info/figures/worldmap_make_poly_country.mac")$
 737 /* [wxMaxima: input   end   ] */
 738
 739
 740 /* [wxMaxima: input   start ] */
 741 load("../doc/info/figures/worldmap_make_polygon.mac")$
 742 /* [wxMaxima: input   end   ] */
 743
 744
 745 /* [wxMaxima: input   start ] */
 746 load("../doc/info/figures/worldmap_region_boundaries.mac")$
 747 /* [wxMaxima: input   end   ] */
 748
 749
 750 /* [wxMaxima: input   start ] */
 751 load("../doc/info/figures/worldmap_region_boundaries_plus.mac")$
 752 /* [wxMaxima: input   end   ] */
 753
 754
 755 /* [wxMaxima: input   start ] */
 756 load("../doc/info/figures/draw_allocation.mac")$
 757 /* [wxMaxima: input   end   ] */
 758
 759
 760 /* [wxMaxima: input   start ] */
 761 load("../doc/info/figures/draw_allocation2.mac")$
 762 /* [wxMaxima: input   end   ] */
 763
 764
 765 /* [wxMaxima: input   start ] */
 766 load("../doc/info/figures/draw_color2.mac")$
 767 /* [wxMaxima: input   end   ] */
 768
 769
 770 /* [wxMaxima: input   start ] */
 771 load("../doc/info/figures/draw_xugrid.mac")$
 772 /* [wxMaxima: input   end   ] */
 773
 774
 775 /* [wxMaxima: input   start ] */
 776 print("A plot with primary and secondary y axis including axis titles.")$
 777 load("../doc/info/figures/draw_ylabel_secondary.mac")$
 778 /* [wxMaxima: input   end   ] */
 779
 780
 781 /* [wxMaxima: section start ]
 782 Test cases for file output
 783    [wxMaxima: section end   ] */
 784
 785
 786 /* [wxMaxima: input   start ] */
 787 print("an animated gif named animated_gif.gif");
 788 draw(
 789         delay     = 100,
 790         file_name = "animated_gif",
 791         terminal  = 'animated_gif,
 792         gr2d(explicit(x^2,x,-1,1)),
 793         gr2d(explicit(x^3,x,-1,1)),
 794         gr2d(explicit(x^4,x,-1,1)));
 795 /* [wxMaxima: input   end   ] */
 796
 797
 798 /* [wxMaxima: input   start ] */
 799 print("300.png and 600.png are 300x300 or 600x600 pixel png files");
 800 draw2d(
 801         dimensions = [300,300],
 802         file_name="300",
 803         terminal   = 'png,
 804         explicit(x^4,x,-1,1)) $
 805 draw2d(
 806         dimensions = [600,600],
 807         file_name="600",
 808         terminal   = 'png,
 809         explicit(x^4,x,-1,1)) $
 810 /* [wxMaxima: input   end   ] */
 811
 812
 813 /* [wxMaxima: input   start ] */
 814 print("An a4 portrait file named a4portrait.eps");
 815 A4portrait: 100*[21, 29.7]$
 816 draw3d(
 817         file_name="a4portrait",
 818         dimensions = A4portrait,
 819         terminal   = 'eps,
 820         explicit(x^2-y^2,x,-2,2,y,-2,2)) $
 821 /* [wxMaxima: input   end   ] */
 822
 823
 824 /* [wxMaxima: input   start ] */
 825 print("multipage.eps contains a multipage eps file");
 826 draw(
 827         file_name = "multipage",
 828         terminal  = multipage_eps,
 829         dimensions = 100*[10,10],
 830         gr2d(explicit(x^2,x,-1,1)),
 831         gr3d(explicit(x^2+y^2,x,-1,1,y,-1,1))) $
 832 /* [wxMaxima: input   end   ] */
 833
 834
 835 /* [wxMaxima: input   start ] */
 836 print("A solid sine and a dashed cosine");
 837 docdraw2d("numericLineType",
 838     line_type=1,
 839     explicit(sin(x),x,0,10),
 840     line_type=2,
 841     explicit(cos(x),x,0,10)
 842 );
 843 /* [wxMaxima: input   end   ] */
 844
 845 /* SF Bug: 3715 draw3d with variables x[1], x[2] not working */
 846
 847 docdraw2d(
 848   "An annulus (using subscripted variables)",
 849   x_voxel = 30,
 850   y_voxel = 30,
 851   region(x[1]^2+x[2]^2<1 and x[1]^2+x[2]^2 > 1/2,
 852     x[1], -1.5, 1.5, x[2], -1.5, 1.5));
 853
 854 docdraw2d(
 855   "Two implicit functions (using subscripted variables)",
 856   grid      = true,
 857   line_type = solid,
 858   key       = "x[2]^2=x[1]^3-2*x[1]+1",
 859   implicit(x[2]^2=x[1]^3-2*x[1]+1, x[1], -4,4, x[2], -4,4),
 860   line_type = dots,
 861   key       = "x[1]^3+x[2]^3 = 3*x[1]*x[2]^2-x[1]-1",
 862   implicit(x[1]^3+x[2]^3 = 3*x[1]*x[2]^2-x[1]-1, x[1],-4,4, x[2],-4,4),
 863   title     = "Two implicit functions" )$
 864
 865 docdraw3d(
 866   "An implicit surface (using subscripted variables)",
 867   color=blue,
 868   implicit((x[1]^2+x[2]^2+x[3]^2-1)*(x[1]^2+(x[2]-1.5)^2+x[3]^2-0.5)=0.015,
 869     x[1],-1,1,x[2],-1.2,2.3,x[3],-1,1),
 870   surface_hide=true);
 871
 872 docdraw3d(
 873   "Two explicit surfaces (using subscripted variables)",
 874   key   = "Gauss",
 875   color = "#a02c00",
 876   explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3),
 877   yv_grid     = 10,
 878   color = blue,
 879   key   = "Plane",
 880   explicit(x+y,x,-5,5,y,-5,5),
 881   surface_hide = true)$
 882
 883 docdraw2d(
 884   "An implicit & explicit curve (using subscripted variables)",
 885   explicit(exp(x[1]),x[1],-1,3),
 886   color = red,
 887   key   = "This is the parametric one!!",
 888   nticks = 100,
 889   parametric(2*cos(rrr[1]),rrr[1]^2,rrr[1],0,2*%pi))$
 890
 891 docdraw3d(
 892   "An explicit surface and two parametric curves (using subscripted variables)",
 893   explicit(exp(sin(x[1])+cos(x[1]^2)),x[1],-3,3,y[1],-3,3),
 894   nticks = 100,
 895   color = royalblue,
 896   parametric(cos(5*u[1])^2,sin(7*u[1]),u[1]-2,u[1],0,2),
 897   color      = turquoise,
 898   line_width = 2,
 899   parametric(t[1]^2,sin(t[1]),2+t[1],t[1],0,2),
 900   surface_hide = true,
 901   title = "Surface & curves" )$
 902
 903 docdraw3d(
 904   "A parametric surface (using subscripted variables)",
 905   title          = "Sea shell",
 906   xu_grid        = 100,
 907   yv_grid        = 25,
 908   view           = [100,20],
 909   surface_hide   = true,
 910   parametric_surface(0.5*u[1]*cos(u[1])*(cos(v[1])+1),0.5*u[1]*sin(u[1])*(cos(v[1])+1),u[1]*sin(v[1]) - ((u[1]+3)/8*%pi)^2 - 20,
 911     u[1], 0, 13*%pi, v[1], -%pi, %pi) )$
 912
 913 docdraw3d(
 914   "A tube (using subscripted variables)",
 915   enhanced3d = true,
 916   xu_grid = 50,
 917   tube(cos(a[1]), a[1], 0, cos(a[1]/10)^2, a[1], 0, 4*%pi) )$
 918
 919 /* VTK tests are missing */
 920
 921 'done$