test_predefined_objects.jl

using Revise, Javis, Animations
function ground(args...)
    background("white")
    sethue("black")
end

video = Video(800, 800)
Background(1:70, ground)


myline = Object(Javis.JLine(Point(100, -250)))

mycircle = Object(Javis.JCircle(45,action=:fill))

mycircle1 = Object(Javis.JCircle(100, action=:stroke))

mybox = Object(Javis.JBox(Point(-200, 150), Point(10, -150), color="red", action=:stroke))

mybox1 = Object(Javis.JBox([Point(20, -150), Point(100, 250)], color="blue"))
mybox2 = Object(Javis.JBox(Point(-250, -100), 200, 200, color="yellow", action=:fill))
mybox3 = Object(Javis.JBox(150, 150, 15, 40, color="orange", action=:stroke))

myrect = Object(Javis.JRect(250, 15, 30, 55, color="orange", action=:fill))
myrect1 = Object(Javis.JRect(Point(250, -150), 30, 55, color="orange", action=:fill))

myellipse = Object(Javis.JEllipse(-50, 15, 40, 25, color="blue"))
myellipse0 = Object(Javis.JEllipse(Point(-50, 15), 45, 30, color="blue"))
myellipse1 = Object(Javis.JEllipse(Point(-50, 15), Point(150, -50), 70, color="red", action=:stroke))
myellipse2 = Object(Javis.JEllipse(Point(-50, 15), Point(50, -50), Point(-100, 290), color="red", action=:stroke))

mystar = Object(Javis.JStar(Point(-50, 15), 30, color="red", action=:stroke))
mystar1 = Object(Javis.JStar(50, -105, 45, color="red", action=:fill))

mypoly = Object(Javis.JPoly(ngon(O, 150, 3, -π/2, vertices=true)))
mypoly1 = Object(Javis.JPoly(ngon(O, 250, 4, π/2, vertices=true)), action=:fill)

somepath = Object( Javis.@JShape begin
                                    sethue("blue")
                                    circle.(ngon(O, 150, 3, -π/2, vertices=true), 20, :fill)
                                end )
somepath1 = Object( Javis.@JShape  begin
                                    sethue(color)
                                    circle.(ngon(O, 150, 8, 5, vertices=true), radius, action)
                                  end  action = :fill color ="blue" radius = 5)

act!([myline, mycircle, mycircle1, mybox, mybox1, mybox2, mybox3, myrect, myrect1, myellipse, myellipse0, myellipse1, myellipse2, mystar, mystar1, mypoly, mypoly1], Action(20:30, anim_translate(Point(-150, 150))))


act!([mycircle], Action(1:50, change(:radius, 45 => 10)))
act!([myline, mycircle, mycircle1, mybox, mybox1, mybox2, mybox3, myrect, myrect1, myellipse, myellipse0, myellipse1, myellipse2, mystar, mystar1, mypoly, mypoly1], Action(40:51, change(:color, "blue")))

render(video, pathname="ease_pos_test.gif")