A curve's trail (see the module documentation and set_trail).
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | public | :: | color(4,2) | = | 1.0_wp |
each part's color (if |
|
| integer, | public | :: | factor(2) | = | 1 |
each part's dash pattern |
|
| real(kind=wp), | public | :: | fade | = | 0.25_wp |
of each part's window, faded toward its cutoff (0 to 1) |
|
| real(kind=wp), | public | :: | future | = | 0.0_wp |
the window (s before and after the current time; huge: no limit) |
|
| logical, | public | :: | on | = | .false. | ||
| real(kind=wp), | public | :: | opacity(2) | = | 1.0_wp |
each part's alpha multiplied by it |
|
| real(kind=wp), | public | :: | past | = | 0.0_wp |
the window (s before and after the current time; huge: no limit) |
|
| integer, | public | :: | pattern(2) | = | int(z'FFFF') |
each part's dash pattern |
|
| logical, | public | :: | replace(2) | = | .false. |
each part in its own color (else the line's) |
type :: TrailStyle logical :: on = .false. real(wp) :: past = 0.0_wp, future = 0.0_wp !! the window (s before and after the current time; huge: no limit) real(wp) :: fade = 0.25_wp !! of each part's window, faded toward its cutoff (0 to 1) real(wp) :: color(4, 2) = 1.0_wp !! each part's color (if `replace`) [r, g, b, a] logical :: replace(2) = .false. !! each part in its own color (else the line's) real(wp) :: opacity(2) = 1.0_wp !! each part's alpha multiplied by it integer :: factor(2) = 1, pattern(2) = int(z'FFFF') !! each part's dash pattern end type TrailStyle