1+ program test_missing_markers_986
2+ ! ! Test to demonstrate missing markers issue #986
3+ ! ! This test creates scatter plots with markers that should appear in both PNG and PDF
4+ ! ! but markers may be missing in PDF output
5+
6+ use iso_fortran_env, only: wp = > real64
7+ use fortplot_figure, only: figure_t
8+ implicit none
9+
10+ type (figure_t) :: fig
11+ real (wp), parameter :: x_data(6 ) = [1.0_wp , 2.0_wp , 3.0_wp , 4.0_wp , 5.0_wp , 6.0_wp ]
12+ real (wp), parameter :: y_data(6 ) = [2.0_wp , 4.0_wp , 3.0_wp , 6.0_wp , 5.0_wp , 7.0_wp ]
13+
14+ ! Create figure
15+ call fig% initialize(800 , 600 )
16+
17+ ! Add scatter plot with different marker styles
18+ call fig% scatter(x_data(1 :2 ), y_data(1 :2 ), marker= ' o' , label= ' Circle markers' )
19+ call fig% scatter(x_data(3 :4 ), y_data(3 :4 ), marker= ' s' , label= ' Square markers' )
20+ call fig% scatter(x_data(5 :6 ), y_data(5 :6 ), marker= ' ^' , label= ' Triangle markers' )
21+
22+ call fig% set_title(" Missing Markers Test - Issue #986" )
23+ call fig% set_xlabel(" X values" )
24+ call fig% set_ylabel(" Y values" )
25+ call fig% legend()
26+
27+ ! Save both formats for comparison
28+ call fig% save (" test_missing_markers_986.pdf" ) ! May have missing markers
29+ call fig% save (" test_missing_markers_986.png" ) ! Should show markers correctly
30+
31+ print * , " Generated marker test files:"
32+ print * , " test_missing_markers_986.pdf (check for missing markers)"
33+ print * , " test_missing_markers_986.png (reference with markers)"
34+ print * , " Compare to identify if markers are missing in PDF output"
35+
36+ end program test_missing_markers_986
0 commit comments