Today’s example is short but sweet. It creates a design made out of a bunch of qtip-like ‘sticks’ with balls on the ends.
It is a design made out of ‘almost squares’ (four sides each at an 85 degree angle to each other). The turtle then turns right 5 degrees, and slides left 20 before continuing to the next almost-square.
Each side of the almost-square is coloured based on its iteration in the almost-square loop, and the fill colour of the balls is set to match. Also, each iteration is raised an amount relative to its iteration, creating a pleasing 3D effect.
TO qtips hideturtle clearscreen repeat 24 [ repeat 4 [ penup setz repcount * 3 ;raise up the turtle based on the loop count pendown setpencolor 10 + repcount ;set the pen color based on the loop count setfillcolor pencolor ;for the spheres icosphere 2 rope 100 ;a rope is a cylinder-based line icosphere 2 right 85 ] right 5 penup slideleft 20 pendown ] END