Spielerei mit AbapTurtle

Turtle-Grafik ist eine Bildbeschreibungssprache die vor allem im schulischen Bereich stattfindet. Das Prinzip ist relativ einfach. Man kann sich eine Schildkröte auf einem Blatt vorstellen, die verschiedene Kommandos ausführen kann und dabei einen Stift hält.

Das Ganze habe ich letztens zufällig entdeckt als ich über AbapTurtle gestolpert bin ein OpenSource-Projekt um Turtle-Grafiken in Abap zu visualisieren.

It's turtles all the way down
https://github.com/FreHu/abap-turtle-graphics
11 forks.
32 stars.
11 open issues.

Recent commits:

• Try setting up github actions (#32)* Try setting up github actions* update deps* adjust nested method calls* Add transpiler config* the transpiler requires "definitions_top": true* deps* fix transpile config* try make a test fail* unit script should run downport* fix test again* use round* update to latest transpiler* Undo rounding, update depsCo-authored-by: Lars Hvam <larshp@hotmail.com>, GitHub
• ignore output folder (#33), GitHub
• rename few variables (#31)to avoid name clash during downportI'm lazy today… on long term the downport will rename in case of clashes, GitHub
• downport, also skip apack (#30), GitHub
• replace usage of stringtab, Frederik Hudak

Beitrag ansehen

Das Projekt ist auch sehr gut dokumentiert und vor allem mit einigen Beispielen abgerundet.
Ich habe es dann auch mal ausprobiert… 🙂

REPORT ZR_TURTLE_SASCHADEV.

    data(lo_turtle) = zcl_turtle=>create(
      height = 800
      width  = 800
      title  = |sascha-dev.de| background_color = '#000000' ).

    lo_turtle->goto( x = 300 y = 500 ).
    lo_turtle->set_pen( value #(
            stroke_color = `#FF00FF`
            stroke_width = 2 ) ).

    lo_turtle->forward( how_far = 100 ).
    lo_turtle->left( degrees = 90 ).
    lo_turtle->forward( how_far = 100 ).
    lo_turtle->left( degrees = 90 ).
    lo_turtle->forward( how_far = 100 ).
    lo_turtle->right( degrees = 90 ).
    lo_turtle->forward( how_far = 100 ).
    lo_turtle->right( degrees = 90 ).
    lo_turtle->forward( how_far = 100 ).
    lo_turtle->right( degrees = 90 ).

    zcl_turtle_output=>show( lo_turtle ).