It looks like my 3D library
no, this code is from my Flash days and was ported to B4A in 2012 already (and screenshot should exist on this forum from back then)
I'll post a project file after supper
It looks like my 3D library
The turtle moves to the other side of the canvas so it probably breaks the algorithm.if you reduce the depth value a bit and it draws outside the visible canvas everything seems to stop.
I find better, so I can quickly jump to a page without searching in the video for this one place.BTW, what do you think about presentations as a documentation tool? It is easier for me to create, compared to video tutorials.
Although not always, often if something is easier to do it is less "powerful".BTW, what do you think about presentations as a documentation tool? It is easier for me to create, compared to video tutorials.
Nothing against it, but, there has to be a balance of detail in the presentation. Most presentations end up as "helicopter" views used as a background to a lecture or speech. So, from those sessions one takes the presentation away, but, then, a month later its very difficult to understand because most often we don't take notes of the lecture or speech. So, the presentation becomes a bit meaningless. In other words its not a good way to "jog" the memory.think about presentations as a documentation tool?
the turtle is turning right, but if i look around my room and focus again on the turtle she moves left! Is it only me? Watch it few minutes and You'll notice it. Btw, great examplehere you go...
to stick to the turtle theme the dolphin has morphed into a turtle
View attachment 94761
Turtle.SetX(Turtle.Width/2)
Turtle.SetY(Turtle.Height/2)
Turtle.TurtleMode
Dim colors() As Int= Array As Int(xui.Color_Red, xui.Color_Cyan, xui.Color_Blue, xui.Color_Green, xui.Color_Magenta, xui.Color_Yellow)
For x = 0 To 360
Turtle.SetPenColor(colors(x Mod 6))
Turtle.SetPenSize(x/100 + 1)
Turtle.moveforward(x)
Turtle.turnleft(59)
Next
Sub Turtle_Start
Turtle.SetX(Turtle.Width/2)
Turtle.SetY(Turtle.Height/2)
Turtle.TurtleMode
Turtle.SetPenColor(xui.Color_Cyan)
Turtle.SetPenSize(0.5)
For i = 1 To 100
drawCircle(i)
Turtle.TurnLeft(4)
Next
Turtle.SetTurtleVisible(False)
End Sub
Sub drawCircle (r As Int)
For i = 0 To 360
Turtle.MoveForward(r * 2 * cPI/360)
Turtle.TurnLeft(1)
Next
End Sub