data-raw/test_data.R

In BastiHz/fractalplotr: Plot Beautiful Fractals with R

# Copyright (C) 2020 Sebastian Henz
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see https://www.gnu.org/licenses/.


# code to prepare data for tests goes here


# L-system plant
test_l_plant <- l_system(
    axiom = "X",
    rules = list(
        `X` = "F+[[X]-X]-F[-FX]+X",
        `F` = "FF"
    ),
    n = 7,
    angle = pi * 0.15,
    initial_angle = pi * 0.45
)


# L-system dragon curve
test_l_dragon <- l_system(
    axiom = "FX",
    rules = list(
        `X` = "X+YF+",
        `Y` = "-FX-Y"
    ),
    n = 12,
    angle = pi / 2
)


# L-system sierpinski triangle
test_l_triangle <- l_system(
    axiom = "F-G-G",
    rules = list(
        `F` = "F-G+F+G-F",
        `G` = "GG"
    ),
    n = 6,
    angle = 2 * pi / 3,
    initial_angle = pi / 3
)


# L-system with changing line length and flipping angle
test_l_line_length_angle_flip <- l_system(
    axiom = "X",
    rules = list(`X` = "F[+@.7X]F![-@.6X]F"),
    n = 9,
    angle = pi * 0.125
)


# mandelbrot set
test_mandelbrot <- mandelbrot(
    width = 150,
    height = 100,
    re_width = 3,
    max_iterations = 128,
    threshold = 2,
    return_colors = FALSE
)


# sandpile
test_sandpile <- sandpile(10000, NULL)


usethis::use_data(
    test_l_plant,
    test_l_dragon,
    test_l_triangle,
    test_l_line_length_angle_flip,
    test_mandelbrot,
    test_sandpile,
    internal = TRUE,
    overwrite = TRUE
)