acc.jl

### A Pluto.jl notebook ###
# v0.19.37

using Markdown
using InteractiveUtils

# ╔═╡ 77da0af3-13b8-46ba-bd6a-9ed938474c59
accesibility_def = md"""
!!! warning "Definition"
	Let's define the **Accessibility** of a package/software as: 

	How easily can non-traditional users get value out of the software? Are different needs and backgrounds taken into account?
"""

# ╔═╡ 8178d382-5742-40a3-bfc2-9dc36e355778
md"""
# Accessibility in software
"""

# ╔═╡ 71da43ea-f2a2-4007-be97-e279f8c5b194
accesibility_def

# ╔═╡ 518a806b-a27e-4a66-a324-e1aa4ac9695e
md"""

## Screen readers in web browsers

Make the web accessible to people with a visual impairment.

![](https://github.com/fonsp/Pluto.jl/assets/6933510/1457e7c8-e2b6-4c0d-b0f2-513bda1aee42)
"""

# ╔═╡ cd052623-9955-47e1-bbc5-7c71c63a1632
md"""

## Julia Documentation: *differences from MATLAB*

Make the Julia language accessible to people with a MATLAB **background**.

![image](https://github.com/fonsp/Pluto.jl/assets/6933510/37e98e04-7fab-4403-86d5-5bac96bb2d7e)

"""

# ╔═╡ 4dede3f7-baec-434f-9002-82fd5856e28f
md"""
## Hedy: learning Python step-by-step

Make **textual programming** accessible to people with **no prior programming experience**. 

![image](https://github.com/fonsp/Pluto.jl/assets/6933510/472d34ad-97ad-4233-a9ee-16b358900a7e)


"""

# ╔═╡ 5ddc6c7f-7320-4de5-ac11-647ad7c26683
md"""
## Hedy: learning Python step-by-step

Make **textual programming** accessible to people with **no prior programming experience**, in your **native language**. 

![image](https://github.com/fonsp/Pluto.jl/assets/6933510/1d84078e-a1b4-477f-bd3a-35872327eb8e)



"""

# ╔═╡ 30d3c90b-b3c1-4e40-8ae8-b1fd4dfffb07
md"""
## Neighbor question!

!!! hint "Question"
	Is scientific computing **accessible**?
"""

# ╔═╡ 74e37644-f8b6-4cdf-b550-935f4372d7f0
accesibility_def

# ╔═╡ 7150301a-9c6b-4c68-844d-86c55aa34494
md"""
## Neighbor question!

This question is about packages (like Plots.jl, Flux.jl, Julia) and their (volunteer) developers.

!!! hint "Question"
	What are the **benefits** to a developer of making a package more accessible? What are downsides?
"""

# ╔═╡ ba11e9ff-0aa5-48fd-abf4-b3bc93850626
md"""
## Neighbor question!

Choose a package/software that you **contribute to**, or that you **often use**.\
*(Examples: Julia, numpy, Plots.jl, Excel)*

!!! hint "Question"
	What can we do to make it **more accessible**?
"""

# ╔═╡ Cell order:
# ╟─77da0af3-13b8-46ba-bd6a-9ed938474c59
# ╟─8178d382-5742-40a3-bfc2-9dc36e355778
# ╟─71da43ea-f2a2-4007-be97-e279f8c5b194
# ╟─518a806b-a27e-4a66-a324-e1aa4ac9695e
# ╟─cd052623-9955-47e1-bbc5-7c71c63a1632
# ╟─4dede3f7-baec-434f-9002-82fd5856e28f
# ╟─5ddc6c7f-7320-4de5-ac11-647ad7c26683
# ╟─30d3c90b-b3c1-4e40-8ae8-b1fd4dfffb07
# ╟─74e37644-f8b6-4cdf-b550-935f4372d7f0
# ╟─7150301a-9c6b-4c68-844d-86c55aa34494
# ╟─ba11e9ff-0aa5-48fd-abf4-b3bc93850626

turtl.jl

### A Pluto.jl notebook ###
# v0.19.37

#> [frontmatter]
#> image = "https://github.com/JuliaRegistries/General/assets/6933510/9a925232-6a75-47e7-9ab9-f384bc389602"
#> title = "Painting with Turtles"
#> date = "2024-01-23"
#> tags = ["krat", "turtle", "basic"]
#> description = "🐢 Use simple Julia code to make a painting!  of kratje"

using Markdown
using InteractiveUtils

# This Pluto notebook uses @bind for interactivity. When running this notebook outside of Pluto, the following 'mock version' of @bind gives bound variables a default value (instead of an error).
macro bind(def, element)
    quote
        local iv = try Base.loaded_modules[Base.PkgId(Base.UUID("6e696c72-6542-2067-7265-42206c756150"), "AbstractPlutoDingetjes")].Bonds.initial_value catch; b -> missing; end
        local el = $(esc(element))
        global $(esc(def)) = Core.applicable(Base.get, el) ? Base.get(el) : iv(el)
        el
    end
end

# ╔═╡ e814a124-f038-11ea-3b22-f109c99dbe03
using PlutoUI

# ╔═╡ 1cca3d6d-a40a-455c-84d3-dec04f0b496a
using AbstractPlutoDingetjes

# ╔═╡ 0786bcb6-d782-4d45-abc1-fdf8cb064ca7
using HypertextLiteral

# ╔═╡ 27d2fe04-a582-48f7-8d21-e2db7775f2c2
md"""
# Turtle drawing!

This notebook lets you make drawings with a **Turtle** 🐢! You can use **simple Julia code** to make pretty drawings, so this is a great way to practice some Julia.

## Moving around
Every drawing looks like this:

```julia
turtle_drawing() do t

	# your code here!

end
```

This code creates an empty drawing, with a turtle `t` in the middle.

Let's make our first drawing. 
"""

# ╔═╡ 1ac7cee2-4aa7-497e-befe-8135d1d27d8d
md"""
!!! info "🙋 Does this make sense?"
	Take a look at the code above. Can you see how the **code corresponds to the picture**? Which step does what?
"""

# ╔═╡ 46eebe4b-340b-468c-97c7-a4b5627b7163
md"""
### Let's make a square!

Your turn! Edit the code below to draw a square. 🟥
"""

# ╔═╡ 04b3d54b-4e0b-46ad-bc92-f94ddfa890ef
md"""
!!! warning "Bonus exercise!"
	Did you manage to make a square? Can you also make a triangle? 🔺
"""

# ╔═╡ 6eb9225b-dc7b-4fdb-acca-8d1d1d3bcc32
md"""
wat vormpjes die je kan maken met forward left
"""

# ╔═╡ d3d14186-4182-4187-9670-95b8b886bb74
md"""
TODO: need to explain that you move, and that you leave a trace

TODO: which commands are there?
"""

# ╔═╡ 7269e18f-8a63-4763-8114-d6f177d114fe
md"""
TODO: exercise, maybe fix some code?
"""

# ╔═╡ 0b3f4554-1a09-4b6b-b859-28ffbf393cef
md"""
TODO: button to start animation again
"""

# ╔═╡ 634309bc-64e7-47ef-888b-a083a485e105
md"""
## Using the `for` loop

Let's make a zig-zag line!
"""

# ╔═╡ 2b245c13-82d7-40f6-b26b-d702962b37f3
md"""
You see that we make a zig-zag by doing one up-down motion, and repeating this. But if we want to make the drawing very long, **our code will become very long**.

This is why `for`-loops are useful: you can repeat the same block of code multiple times.
"""

# ╔═╡ 42f262dd-4208-4a84-bd2d-5f4be5c78964
md"""
Try it yourself! Write code in the `for` loop to make it repeat 10 times.
"""

# ╔═╡ d742acd5-ad8d-4ee6-bab0-e54ab9313e0d
md"""
### The iterator `i`

Inside the `for` loop, you can use the variable `i`, which goes from `1` to `10`. In the playground above, write `forward!(t, i)` somewhere inside the `for` loop. This means: *"move the turtle `t` forward by `i` steps"*. 

Do you understand what happens?
"""

# ╔═╡ 15ba0e67-e1a8-43c7-a433-8e7e6d877376
md"""
## Understanding code with Logging

Sometimes you want to the value of a variable 

TODO
"""

# ╔═╡ 71bb4346-7067-4db4-9a70-ab232e7c2ebc
md"""
## Adding color

You can use `color!` to set the color of the turtle. This will determine the color of all future lines that you draw!
"""

# ╔═╡ 14c803ff-268b-48bc-90c9-faa88010f5fe
md"""
TODO: which colors can you use?
"""

# ╔═╡ 01b73386-ce68-4ad7-92af-17d91930f8f5
md"""
## Using global variables

In a code cell, you can also create a **variable**, and use the value multiple times. For example:
"""

# ╔═╡ aa3d15c6-f6c2-49cd-9a77-7d9951157897
example_step = 2

# ╔═╡ f3ced552-1b2e-47a1-be8a-6a0c20561ae1
md"""
You can use this variable in other cells:
"""

# ╔═╡ 93fc3d23-9d7d-42ac-83fe-1cd568624a87
example_step + example_step

# ╔═╡ 160a5b22-6f1e-446d-861a-747cfe25bfda
md"""
We can also use variables in our drawings! Do you see where `example_step` is used in the example below? 
"""

# ╔═╡ 468eb41d-fa5a-46cd-a5ef-2708c74e5ee0
md"""
Now, go to [the definition of `example_step`](#example_step) and change the value from `1.5` to another number. 

Do you see the drawing change?
"""

# ╔═╡ e523c524-8043-47f8-aeb3-69fad38aa272
md"""
TODO: step by step execution from PlutoTest? to show how variable substitution works?
"""

# ╔═╡ 0b8e61ca-4938-4a5f-85c5-248579716562


# ╔═╡ 5a32b0d4-6a72-4b11-96ab-b6c8374153ba
md"""
## Interactivity with PlutoUI

Let's do something fun! In the example above, you saw how you can change variables to control the image. In this section, we will use interactive elements from the package PlutoUI to **control Julia variables**. Let's try it!
"""

# ╔═╡ 925a66b2-3564-480c-be12-0e626b01362f
@bind fun_angle Slider(0:180)

# ╔═╡ c347a8ad-c859-4eb2-8fdc-bb7f04c7f70e
@bind second_color ColorStringPicker()

# ╔═╡ fac4f50a-ce65-4f22-af23-0fc73af936f2
fun_angle, second_color

# ╔═╡ 9a900923-e407-44a0-823a-f911a22a5ada
html"""
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
"""

# ╔═╡ 553d0488-f03b-11ea-2997-3d82493cd4d7
md"# Some famous artwork"

# ╔═╡ 25dc5690-f03a-11ea-3c59-35ae694b03b5
md"""## "_The Starry Night_" 
Vincent van Gogh (1889)"""

# ╔═╡ 5d345ae8-f03a-11ea-1c2d-03f66115b590
md"""## "_Tableau I_"
Piet Mondriaan (1913)"""

# ╔═╡ b3f5877c-b3e9-11ea-03fe-3f3233ee2e1b
@bind GO_mondriaan CounterButton("Another one!")

# ╔═╡ a255402c-d719-41fc-babc-7988a9aa5421
md"""
It's like 3D printing!!
"""

# ╔═╡ cd442606-f03a-11ea-3d53-57e83c8cdb1f
md"""## "_Een Boom_"
Luka van der Plas (2020)"""

# ╔═╡ 4c1bcc58-b3ec-11ea-32d1-7f4cd113e43d
@bind fractal_angle Slider(0:90; default=49)

# ╔═╡ a7e725d8-b3ee-11ea-0b84-8d252979e4ef
@bind fractal_tilt Slider(0:90; default=36)

# ╔═╡ 49ce3f9c-b3ee-11ea-0bb5-ed348475ea0b
@bind fractal_base Slider(0:0.01:2; default=1)

# ╔═╡ f132f376-f03a-11ea-33e2-775fc026faca
md"""## "_Een coole spiraal_" 
fonsi (2020)"""

# ╔═╡ 70160fec-b0c7-11ea-0c2a-35418346592e
@bind angle Slider(0:90; default=20)

# ╔═╡ ab083f08-b0c0-11ea-0c23-315c14607f1f
md"# 🐢 definition"

# ╔═╡ 310a0c52-b0bf-11ea-3e32-69d685f2f45e
Drawing = Vector{String}

# ╔═╡ 6bbb674c-b0ba-11ea-2ff7-ebcde6573d5b
begin
	Base.@kwdef mutable struct Turtle
		pos::Tuple{Float64, Float64}
		initial_pos::Tuple{Float64, Float64}
		heading::Float64
		initial_heading::Float64
		pen_down::Bool = true
		color::String = "black"
		history_svg::Drawing = String[]
		history_actions::Vector{Tuple{UInt8,Any}} = Tuple{UInt8,Any}[]
	end
	
	Turtle(pos::Tuple{Number, Number}, heading::Number; kwargs...) = Turtle(;
		pos, heading,
		initial_pos=pos,
		initial_heading=heading,
		kwargs...
	)
end

# ╔═╡ 5560ed36-b0c0-11ea-0104-49c31d171422
md"## Turtle commands"

# ╔═╡ d6b0e49b-3144-4230-9c5a-9cc6f90ab0c9
warn_too_many_actions(🐢::Turtle) = if length(🐢.history_actions) > 20000
		error("Drawing too big! The turtle took too many steps to make this drawing.")
	end

# ╔═╡ e6c7e5be-b0bf-11ea-1f7e-73b9aae14382
function forward!(🐢::Turtle, distance::Number)
	warn_too_many_actions(🐢)
	old_pos = 🐢.pos
	new_pos = 🐢.pos = old_pos .+ (10distance .* (cos(🐢.heading), sin(🐢.heading)))
	push!(🐢.history_actions, (UInt8(0), Int64.(floor.(new_pos))))
	if 🐢.pen_down
		push!(🐢.history_svg, """<line x1="$(old_pos[1])" y1="$(old_pos[2])" x2="$(new_pos[1])" y2="$(new_pos[2])" stroke="$(🐢.color)" stroke-width="4" />""")
	end
	🐢
end

# ╔═╡ 573c11b4-b0be-11ea-0416-31de4e217320
backward!(🐢::Turtle, by::Number) = forward!(🐢, -by)

# ╔═╡ fc44503a-b0bf-11ea-0f28-510784847241
function right!(🐢::Turtle, angle_degrees::Number)
	warn_too_many_actions(🐢)
	🐢.heading += angle_degrees * pi / 180
	push!(🐢.history_actions, (UInt8(1), Int64(floor(🐢.heading * 180 / pi))))
	🐢
end

# ╔═╡ d88440c2-b3dc-11ea-1944-0ba4a566d7c1
function draw_star(turtle, points, size)
	for i in 1:points
		right!(turtle, 360 / points)
		forward!(turtle, size)
		backward!(turtle, size)
	end
end

# ╔═╡ 47907302-b0c0-11ea-0b27-b5cd2b4720d8
left!(🐢::Turtle, angle::Number) = right!(🐢, -angle)

# ╔═╡ 8f7af43c-13fc-4a65-8cd6-ede6bbbbf80d
function register_line_number!(🐢::Turtle, lnn::Some{LineNumberNode})
	warn_too_many_actions(🐢)
	push!(🐢.history_actions, (UInt8(20), something(lnn).line))
end

# ╔═╡ 4c173318-b3de-11ea-2d4c-49dab9fa3877
function pendown!(🐢::Turtle, value::Bool=true)
	warn_too_many_actions(🐢)
	🐢.pen_down = value
	push!(🐢.history_actions, (UInt8(2), value))
	🐢
end

# ╔═╡ 1fb880a8-b3de-11ea-3181-478755ad354e
penup!(🐢::Turtle, value::Bool=true) = pendown!(🐢, !value)

# ╔═╡ 2e7c8462-b3e2-11ea-1e41-a7085e012bb2
function color!(🐢::Turtle, color::AbstractString="black")
	warn_too_many_actions(🐢)
	🐢.color = color
	push!(🐢.history_actions, (UInt8(3), color))
	🐢
end

# ╔═╡ 678850cc-b3e4-11ea-3cf0-a3445a3ac15a
function draw_mondriaan(turtle, width, height)
	#propbability that we make a mondriaan split
	p = if width * height < 8
		0
	else
		((width * height) / 900) ^ 0.5
	end
		
	if rand() < p
		#split into halves
		
		split = rand(width * 0.1 : width * 0.9)

		#draw split
		forward!(turtle, split)
		right!(turtle, 90)
		color!(turtle, "black")
		pendown!(turtle)
		forward!(turtle, height)
		penup!(turtle)

		#fill in left of split
		right!(turtle, 90)
		forward!(turtle, split)
		right!(turtle, 90)
		draw_mondriaan(turtle, height, split)
		
		#fill in right of split
		forward!(turtle, height)
		right!(turtle, 90)
		forward!(turtle, width)
		right!(turtle, 90)
		draw_mondriaan(turtle, height, width - split)
		
		#walk back
		right!(turtle, 90)
		forward!(turtle, width)
		right!(turtle, 180)
		
	else
		#draw a colored square
		square_color = rand(["white", "white", "white", "red", "yellow", "blue"])
		color!(turtle, square_color)
		for x in (.4:.4:width - .4) ∪ [width - .4]
			forward!(turtle, x)
			right!(turtle, 90)
			forward!(turtle, .2)
			pendown!(turtle)
			forward!(turtle, height - .4)
			penup!(turtle)
			right!(turtle, 180)
			forward!(turtle, height - .2)
			right!(turtle, 90)
			backward!(turtle, x)
		end
	end
end

# ╔═╡ d1ae2696-b3eb-11ea-2fcc-07b842217994
function lindenmayer(turtle, depth, angle, tilt, base)
	if depth < 10
		old_pos = turtle.pos
		old_heading = turtle.heading

		size = base * .5 ^ (depth * 0.5)

		pendown!(turtle)
		color!(turtle, "hsl($(depth * 30), 80%, 50%)")
		forward!(turtle, size * 8)
		right!(turtle, tilt / 2)
		lindenmayer(turtle, depth + 1, angle, tilt, base)
		left!(turtle, angle)
		lindenmayer(turtle, depth + 1, angle, tilt, base)


		turtle.pos = old_pos
		turtle.heading = old_heading
	end
end

# ╔═╡ 358cb837-a2d1-4b67-a1d4-aa6f62126c89
map([1,2,3,4,5,100,5000]) do i
	d = 1.0 / sqrt(i)
	l=d*i
	(;i,d,l )
end

# ╔═╡ 5aea06d4-b0c0-11ea-19f5-054b02e17675
md"## Function to make turtle drawings with"

# ╔═╡ 5030944f-efec-4226-9511-95ae3a4c179d
make_svg(🐢::Turtle; background="white") = """<svg version="1.1"
     baseProfile="full"
     width="300" height="300"
     xmlns="http://www.w3.org/2000/svg">
  <rect width="300" height="300" rx="10" fill="$(background)" />$(
	join(🐢.history_svg))</svg>"""

# ╔═╡ 6dbce38e-b0bc-11ea-1126-a13e0d575339
function turtle_drawing_fast(f::Function; background="white")
	🐢 = Turtle((150, 150), pi*3/2)
	
	f(🐢)
	
	return PlutoUI.Show(MIME"image/svg+xml"(), make_svg(🐢; background))
end

# ╔═╡ 9dc072fe-b3db-11ea-1568-857a664ce4d2
starry_night = turtle_drawing_fast(background = "#000088") do t
	star_count = 100
	
	color!(t, "yellow")
	
	for i in 1:star_count
		#move
		penup!(t)
		random_angle = rand() * 360
		right!(t, random_angle)
		random_distance = rand(1:8)
		forward!(t, random_distance)
		
		#draw star
		pendown!(t)
		
		draw_star(t, 5, 1)
	end
end

# ╔═╡ e04a9296-b3e3-11ea-01b5-8ff7dc0ced56
mondriaan = turtle_drawing_fast() do t	
	GO_mondriaan
	size = 30
	
	#go to top left corner
	penup!(t)
	forward!(t, size / 2)
	left!(t, 90)
	forward!(t, size / 2)
	right!(t, 180)
		
	#draw painting
	draw_mondriaan(t, size, size)
	
	#white border around painting
	color!(t, "white")
	pendown!(t)
	for i in 1:4
		forward!(t, size)
		right!(t, 90)
	end
end

# ╔═╡ 60b52a52-b3eb-11ea-2e3c-9d185f4fbc2b
fractal = turtle_drawing_fast() do t
	penup!(t)
	backward!(t, 15)
	pendown!(t)
	lindenmayer(t, 0, fractal_angle, fractal_tilt, fractal_base)
end

# ╔═╡ 329138a4-4f37-4ccc-a5f0-f4bbfbd17a89
function turtle_drawing(f::Function; background="white")
	🐢 = Turtle((150, 150), pi*3/2)
	
	f(🐢)

	step_delay = 1.0 / sqrt(length(🐢.history_actions))
	
	PlutoUI.ExperimentalLayout.Div([
		PlutoUI.Show(MIME"image/svg+xml"(), make_svg(🐢; background)),
		@htl("""
		<script>
		const _x = $(rand())
		const step_delay = $(step_delay)
		const history = $(identity(🐢.history_actions))
		const wrapper = currentScript.closest(".turtle-wrapper")
		const img = wrapper.firstElementChild

		const div = document.createElement("div")
		div.style.cssText = `
			position: absolute; 
			left: 0; 
			top: 0;
		`
		const turtle_image = document.createElement("pl-turtle-image")
		turtle_image.innerText = `🐢`
		turtle_image.style.cssText = `
			display: block; 
			transform: translate(-50%, -50%) rotate(.5turn);
		`

		const turtle = document.createElement("pl-turtle")
		turtle.style.cssText = `
			display: block; 
			opacity: 0;
			transition: 
				transform \${step_delay}s ease-in-out,
				opacity \${step_delay}s ease-in-out; 
			transform-origin: top left;
		`
		
		turtle.appendChild(turtle_image)
		div.appendChild(turtle)

		const line_highlighter = document.createElement("style")
		div.appendChild(line_highlighter)
		

		let svg_data = null
		const stop_promise = invalidation.then(_x => null)
		let current_blob_url = null
		const blur_future_steps = (current_line_index) => {
			setTimeout(() => {
				Promise.race([stop_promise, svg_data]).then(txt => {
					if(txt != null) {
						let i = 0
						let new_img = txt.replaceAll(`<line`, () =>  
							i++ <= current_line_index ? `<line` : `<line opacity=".2"`
						)
						let old_url = current_blob_url
						current_blob_url = URL.createObjectURL(new Blob([new_img], { type: `image/svg+xml` }))
						img.src = current_blob_url
						if(old_url != null) 
							URL.revokeObjectURL(old_url)
					}
				})
			}, step_delay * 1000 / 2)
		}
		invalidation.then(() => {
			if(current_blob_url != null) 
						URL.revokeObjectURL(current_blob_url)
		})

		let current_pos = $(🐢.initial_pos)
		let current_heading = $(🐢.initial_heading * 180 / pi)
		
		let set_turtle_pos = (pos, heading) => {
			current_pos = pos
			current_heading = heading
			turtle.style.transform = `translate(\${pos[0]}px, \${pos[1]}px) rotate(\${heading}deg)`
		}

		set_turtle_pos($(🐢.initial_pos), $(🐢.initial_heading * 180 / pi))

		const running = {current: true}
		invalidation.then(() => {
			running.current = false
		})

		
		const highlight_line = (line) => {
			delayed(() => {
				line_highlighter.innerText = `pluto-cell#\${currentScript.closest("pluto-cell").id} pluto-input .cm-editor .cm-line:nth-child(\${line}) {
					background: #a0b1ff45;
				}`
			}, step_delay * 2)
		}


		let current_num_lines = -1
		let current_pendown = true
		let take_step = (action, arg) => {
			if(action === 0) {
				if(current_pendown) {
					current_num_lines += 1
					blur_future_steps(current_num_lines)
				}
				set_turtle_pos(arg, current_heading)
			} else if(action === 1) {
				set_turtle_pos(current_pos, arg)
			} else if(action === 2) {
				current_pendown = arg
			} else if(action === 20) {
				highlight_line(arg)
			}
		}

		let current_step = -1
		let step = () => {
			current_step += 1
			if(current_step < history.length && running.current) {
				take_step(...history[current_step])
				setTimeout(step, 1000 * $(step_delay))
			}
		}

		const delayed = (f, delay) => {
			const ref = setTimeout(f, delay)
			invalidation.then(() => clearTimeout(ref))
		}

		delayed(() => {
			svg_data = fetch(img.src).then(r => r.text())

			turtle.style.opacity = "1"
			blur_future_steps(-1)
			delayed(step, 800)
		}, 800)

		return div
		</script>
		""")
	]; class="turtle-wrapper", style="position: relative;")
end

# ╔═╡ e18d7225-5a06-4fbc-b836-17798c0eb198
turtle_drawing() do t

	# take 5 steps
	forward!(t, 5)

	# turn left, 90 degrees
	left!(t, 90)

	# take 10 steps
	forward!(t, 10)

end

# ╔═╡ 90b40abf-caa3-4274-b164-e8c6d2f5b920
turtle_drawing() do t

	forward!(t, 5)

	left!(t, 90)

	forward!(t, 5)

	# what's next?

end

# ╔═╡ 5f0a4d6a-2545-4610-b827-6adc50204136
turtle_drawing() do t

	for i in 1:10
		# repeat something 10 times
		# write your code here! for example:
		forward!(t, 2)

	end
	
end

# ╔═╡ 448dc68d-cd0a-4491-82ad-0e7cc00782ad
turtle_drawing() do t

	color!(t, "red")
	forward!(t, 5)

	right!(t, 90)

	color!(t, "pink")
	forward!(t, 10)

end

# ╔═╡ 31847740-bb0b-41cc-9d4f-a42ee33bbc62
turtle_drawing() do t

	for i in 1:10
		color!(t, "black")
		forward!(t, example_step)

		color!(t, "red")
		forward!(t, example_step)
	end
	
end

# ╔═╡ d30c8f2a-b0bf-11ea-0557-19bb61118644
turtle_drawing() do t
	
	for i in 0:.1:10
		right!(t, angle)
		forward!(t, i)
	end
	
end

# ╔═╡ fbcf4e5b-e748-4e26-b334-5c7b25e2cf72
with_lnn_registrations(x; turtle_name::Symbol) = x

# ╔═╡ e11da6c1-6336-4f34-9ab3-4531b136daad
:(x(z)) |> dump

# ╔═╡ 87aa1a40-afb0-4e56-b3f0-7c7e13c04ce8


# ╔═╡ 32a78ca2-7a1b-40a5-9158-911b576139db
function with_lnn_registrations(ex::Expr; turtle_name::Symbol)
	Expr(
		ex.head,
		Iterators.flatten(
			if a isa LineNumberNode
				if ex.head ∈ (:block, :for)
					(a,:($(register_line_number!)($turtle_name, $(Some(a)))))
				else
					(a,)
				end
			else
				(with_lnn_registrations(a; turtle_name),)
			end for a in ex.args
		)...
	)
end

# ╔═╡ 1e7dd491-2f09-4104-8a5d-512593da83f1
macro turtle_drawing(x)
	@assert Meta.isexpr(x, Symbol("->"))
	turtle_name = x.args[1].args[1]
	turtle_drawing
	with_lnn_registrations

	quote
		$(turtle_drawing)($(esc(with_lnn_registrations(x; turtle_name))))
	end
end

# ╔═╡ 19abbdeb-efe3-4a26-85c9-011ae5939c8e
@turtle_drawing() do t

	forward!(t, 5)
	right!(t, 160) # turn right, 160 degrees (almost a 180 degree half turn)
	forward!(t, 5)
	left!(t, 160) # turn back
	

	### REPEAT
	forward!(t, 5)
	right!(t, 160)
	forward!(t, 5)
	left!(t, 160)
	
	### REPEAT
	forward!(t, 5)
	right!(t, 160)
	forward!(t, 5)
	left!(t, 160)
	
	### REPEAT
	forward!(t, 5)
	right!(t, 160)
	forward!(t, 5)
	left!(t, 160)
	
end

# ╔═╡ a84af845-7f7a-45eb-b1d4-dde8047cb8e8
@turtle_drawing() do t

	for i in 1:10
		forward!(t, 5)
		right!(t, 160)
		forward!(t, 5)
		left!(t, 160)
	end
	
end

# ╔═╡ aa724bc5-563f-4421-a55c-84ebd766f364
@turtle_drawing() do t

	for i in 1:10
		color!(t, "black")
		forward!(t, 3)

		right!(t, fun_angle)

		color!(t, second_color)
		forward!(t, 3)
	end
	
end

# ╔═╡ fc08d52f-91fb-47d4-9122-d45a287c0e7f
@turtle_drawing() do t

	# take 5 steps
	forward!(t, 5)
	forward!(t, 5)

	# turn right, 90 degrees
	right!(t, 90)
	right!(t, 90)
	right!(t, 90)

	# take 10 steps
	forward!(t, 10)

	penup!(t)

	
	right!(t, 120)
	forward!(t, 5)

	pendown!(t)

	right!(t, 60)
	forward!(t, 5)

	right!(t, 60)
	forward!(t, 5)
end

# ╔═╡ 2722c8d8-58e0-4a3b-abdb-b810604384bf
# ╠═╡ disabled = true
#=╠═╡
cellid_from_fname(s) = try
	Base.UUID(split(String(s), "#==#")[2])
catch
	nothing
end
  ╠═╡ =#

# ╔═╡ e0e86411-62cb-4af1-b91f-9069a5a20508
#=╠═╡
function from_which_cell()
	this_cell = cellid_from_fname(@__FILE__)

	cellids = (cellid_from_fname(stack.file) for stack in stacktrace(backtrace()))

	Iterators.filter(x -> x ∉ (nothing, this_cell), cellids) |> collect
end
  ╠═╡ =#

# ╔═╡ 03c983b3-42f2-418d-89c2-fdfe74a4032a
#=╠═╡
x()
  ╠═╡ =#

# ╔═╡ a3727d0a-3096-493c-a4fc-19e5a43cd683
#=╠═╡
x() = from_which_cell()
  ╠═╡ =#

# ╔═╡ 00000000-0000-0000-0000-000000000001
PLUTO_PROJECT_TOML_CONTENTS = """
[deps]
AbstractPlutoDingetjes = "6e696c72-6542-2067-7265-42206c756150"
HypertextLiteral = "ac1192a8-f4b3-4bfe-ba22-af5b92cd3ab2"
PlutoUI = "7f904dfe-b85e-4ff6-b463-dae2292396a8"

[compat]
AbstractPlutoDingetjes = "~1.2.3"
HypertextLiteral = "~0.9.5"
PlutoUI = "~0.7.55"
"""

# ╔═╡ 00000000-0000-0000-0000-000000000002
PLUTO_MANIFEST_TOML_CONTENTS = """
# This file is machine-generated - editing it directly is not advised

julia_version = "1.10.0"
manifest_format = "2.0"
project_hash = "b36394a07f173aec47b6b925bd0067c5776e6b1c"

[[deps.AbstractPlutoDingetjes]]
deps = ["Pkg"]
git-tree-sha1 = "c278dfab760520b8bb7e9511b968bf4ba38b7acc"
uuid = "6e696c72-6542-2067-7265-42206c756150"
version = "1.2.3"

[[deps.ArgTools]]
uuid = "0dad84c5-d112-42e6-8d28-ef12dabb789f"
version = "1.1.1"

[[deps.Artifacts]]
uuid = "56f22d72-fd6d-98f1-02f0-08ddc0907c33"

[[deps.Base64]]
uuid = "2a0f44e3-6c83-55bd-87e4-b1978d98bd5f"

[[deps.ColorTypes]]
deps = ["FixedPointNumbers", "Random"]
git-tree-sha1 = "eb7f0f8307f71fac7c606984ea5fb2817275d6e4"
uuid = "3da002f7-5984-5a60-b8a6-cbb66c0b333f"
version = "0.11.4"

[[deps.CompilerSupportLibraries_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "e66e0078-7015-5450-92f7-15fbd957f2ae"
version = "1.0.5+1"

[[deps.Dates]]
deps = ["Printf"]
uuid = "ade2ca70-3891-5945-98fb-dc099432e06a"

[[deps.Downloads]]
deps = ["ArgTools", "FileWatching", "LibCURL", "NetworkOptions"]
uuid = "f43a241f-c20a-4ad4-852c-f6b1247861c6"
version = "1.6.0"

[[deps.FileWatching]]
uuid = "7b1f6079-737a-58dc-b8bc-7a2ca5c1b5ee"

[[deps.FixedPointNumbers]]
deps = ["Statistics"]
git-tree-sha1 = "335bfdceacc84c5cdf16aadc768aa5ddfc5383cc"
uuid = "53c48c17-4a7d-5ca2-90c5-79b7896eea93"
version = "0.8.4"

[[deps.Hyperscript]]
deps = ["Test"]
git-tree-sha1 = "179267cfa5e712760cd43dcae385d7ea90cc25a4"
uuid = "47d2ed2b-36de-50cf-bf87-49c2cf4b8b91"
version = "0.0.5"

[[deps.HypertextLiteral]]
deps = ["Tricks"]
git-tree-sha1 = "7134810b1afce04bbc1045ca1985fbe81ce17653"
uuid = "ac1192a8-f4b3-4bfe-ba22-af5b92cd3ab2"
version = "0.9.5"

[[deps.IOCapture]]
deps = ["Logging", "Random"]
git-tree-sha1 = "8b72179abc660bfab5e28472e019392b97d0985c"
uuid = "b5f81e59-6552-4d32-b1f0-c071b021bf89"
version = "0.2.4"

[[deps.InteractiveUtils]]
deps = ["Markdown"]
uuid = "b77e0a4c-d291-57a0-90e8-8db25a27a240"

[[deps.JSON]]
deps = ["Dates", "Mmap", "Parsers", "Unicode"]
git-tree-sha1 = "31e996f0a15c7b280ba9f76636b3ff9e2ae58c9a"
uuid = "682c06a0-de6a-54ab-a142-c8b1cf79cde6"
version = "0.21.4"

[[deps.LibCURL]]
deps = ["LibCURL_jll", "MozillaCACerts_jll"]
uuid = "b27032c2-a3e7-50c8-80cd-2d36dbcbfd21"
version = "0.6.4"

[[deps.LibCURL_jll]]
deps = ["Artifacts", "LibSSH2_jll", "Libdl", "MbedTLS_jll", "Zlib_jll", "nghttp2_jll"]
uuid = "deac9b47-8bc7-5906-a0fe-35ac56dc84c0"
version = "8.4.0+0"

[[deps.LibGit2]]
deps = ["Base64", "LibGit2_jll", "NetworkOptions", "Printf", "SHA"]
uuid = "76f85450-5226-5b5a-8eaa-529ad045b433"

[[deps.LibGit2_jll]]
deps = ["Artifacts", "LibSSH2_jll", "Libdl", "MbedTLS_jll"]
uuid = "e37daf67-58a4-590a-8e99-b0245dd2ffc5"
version = "1.6.4+0"

[[deps.LibSSH2_jll]]
deps = ["Artifacts", "Libdl", "MbedTLS_jll"]
uuid = "29816b5a-b9ab-546f-933c-edad1886dfa8"
version = "1.11.0+1"

[[deps.Libdl]]
uuid = "8f399da3-3557-5675-b5ff-fb832c97cbdb"

[[deps.LinearAlgebra]]
deps = ["Libdl", "OpenBLAS_jll", "libblastrampoline_jll"]
uuid = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"

[[deps.Logging]]
uuid = "56ddb016-857b-54e1-b83d-db4d58db5568"

[[deps.MIMEs]]
git-tree-sha1 = "65f28ad4b594aebe22157d6fac869786a255b7eb"
uuid = "6c6e2e6c-3030-632d-7369-2d6c69616d65"
version = "0.1.4"

[[deps.Markdown]]
deps = ["Base64"]
uuid = "d6f4376e-aef5-505a-96c1-9c027394607a"

[[deps.MbedTLS_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "c8ffd9c3-330d-5841-b78e-0817d7145fa1"
version = "2.28.2+1"

[[deps.Mmap]]
uuid = "a63ad114-7e13-5084-954f-fe012c677804"

[[deps.MozillaCACerts_jll]]
uuid = "14a3606d-f60d-562e-9121-12d972cd8159"
version = "2023.1.10"

[[deps.NetworkOptions]]
uuid = "ca575930-c2e3-43a9-ace4-1e988b2c1908"
version = "1.2.0"

[[deps.OpenBLAS_jll]]
deps = ["Artifacts", "CompilerSupportLibraries_jll", "Libdl"]
uuid = "4536629a-c528-5b80-bd46-f80d51c5b363"
version = "0.3.23+2"

[[deps.Parsers]]
deps = ["Dates", "PrecompileTools", "UUIDs"]
git-tree-sha1 = "8489905bcdbcfac64d1daa51ca07c0d8f0283821"
uuid = "69de0a69-1ddd-5017-9359-2bf0b02dc9f0"
version = "2.8.1"

[[deps.Pkg]]
deps = ["Artifacts", "Dates", "Downloads", "FileWatching", "LibGit2", "Libdl", "Logging", "Markdown", "Printf", "REPL", "Random", "SHA", "Serialization", "TOML", "Tar", "UUIDs", "p7zip_jll"]
uuid = "44cfe95a-1eb2-52ea-b672-e2afdf69b78f"
version = "1.10.0"

[[deps.PlutoUI]]
deps = ["AbstractPlutoDingetjes", "Base64", "ColorTypes", "Dates", "FixedPointNumbers", "Hyperscript", "HypertextLiteral", "IOCapture", "InteractiveUtils", "JSON", "Logging", "MIMEs", "Markdown", "Random", "Reexport", "URIs", "UUIDs"]
git-tree-sha1 = "68723afdb616445c6caaef6255067a8339f91325"
uuid = "7f904dfe-b85e-4ff6-b463-dae2292396a8"
version = "0.7.55"

[[deps.PrecompileTools]]
deps = ["Preferences"]
git-tree-sha1 = "03b4c25b43cb84cee5c90aa9b5ea0a78fd848d2f"
uuid = "aea7be01-6a6a-4083-8856-8a6e6704d82a"
version = "1.2.0"

[[deps.Preferences]]
deps = ["TOML"]
git-tree-sha1 = "00805cd429dcb4870060ff49ef443486c262e38e"
uuid = "21216c6a-2e73-6563-6e65-726566657250"
version = "1.4.1"

[[deps.Printf]]
deps = ["Unicode"]
uuid = "de0858da-6303-5e67-8744-51eddeeeb8d7"

[[deps.REPL]]
deps = ["InteractiveUtils", "Markdown", "Sockets", "Unicode"]
uuid = "3fa0cd96-eef1-5676-8a61-b3b8758bbffb"

[[deps.Random]]
deps = ["SHA"]
uuid = "9a3f8284-a2c9-5f02-9a11-845980a1fd5c"

[[deps.Reexport]]
git-tree-sha1 = "45e428421666073eab6f2da5c9d310d99bb12f9b"
uuid = "189a3867-3050-52da-a836-e630ba90ab69"
version = "1.2.2"

[[deps.SHA]]
uuid = "ea8e919c-243c-51af-8825-aaa63cd721ce"
version = "0.7.0"

[[deps.Serialization]]
uuid = "9e88b42a-f829-5b0c-bbe9-9e923198166b"

[[deps.Sockets]]
uuid = "6462fe0b-24de-5631-8697-dd941f90decc"

[[deps.SparseArrays]]
deps = ["Libdl", "LinearAlgebra", "Random", "Serialization", "SuiteSparse_jll"]
uuid = "2f01184e-e22b-5df5-ae63-d93ebab69eaf"
version = "1.10.0"

[[deps.Statistics]]
deps = ["LinearAlgebra", "SparseArrays"]
uuid = "10745b16-79ce-11e8-11f9-7d13ad32a3b2"
version = "1.10.0"

[[deps.SuiteSparse_jll]]
deps = ["Artifacts", "Libdl", "libblastrampoline_jll"]
uuid = "bea87d4a-7f5b-5778-9afe-8cc45184846c"
version = "7.2.1+1"

[[deps.TOML]]
deps = ["Dates"]
uuid = "fa267f1f-6049-4f14-aa54-33bafae1ed76"
version = "1.0.3"

[[deps.Tar]]
deps = ["ArgTools", "SHA"]
uuid = "a4e569a6-e804-4fa4-b0f3-eef7a1d5b13e"
version = "1.10.0"

[[deps.Test]]
deps = ["InteractiveUtils", "Logging", "Random", "Serialization"]
uuid = "8dfed614-e22c-5e08-85e1-65c5234f0b40"

[[deps.Tricks]]
git-tree-sha1 = "eae1bb484cd63b36999ee58be2de6c178105112f"
uuid = "410a4b4d-49e4-4fbc-ab6d-cb71b17b3775"
version = "0.1.8"

[[deps.URIs]]
git-tree-sha1 = "67db6cc7b3821e19ebe75791a9dd19c9b1188f2b"
uuid = "5c2747f8-b7ea-4ff2-ba2e-563bfd36b1d4"
version = "1.5.1"

[[deps.UUIDs]]
deps = ["Random", "SHA"]
uuid = "cf7118a7-6976-5b1a-9a39-7adc72f591a4"

[[deps.Unicode]]
uuid = "4ec0a83e-493e-50e2-b9ac-8f72acf5a8f5"

[[deps.Zlib_jll]]
deps = ["Libdl"]
uuid = "83775a58-1f1d-513f-b197-d71354ab007a"
version = "1.2.13+1"

[[deps.libblastrampoline_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "8e850b90-86db-534c-a0d3-1478176c7d93"
version = "5.8.0+1"

[[deps.nghttp2_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "8e850ede-7688-5339-a07c-302acd2aaf8d"
version = "1.52.0+1"

[[deps.p7zip_jll]]
deps = ["Artifacts", "Libdl"]
uuid = "3f19e933-33d8-53b3-aaab-bd5110c3b7a0"
version = "17.4.0+2"
"""

# ╔═╡ Cell order:
# ╟─27d2fe04-a582-48f7-8d21-e2db7775f2c2
# ╠═e18d7225-5a06-4fbc-b836-17798c0eb198
# ╟─1ac7cee2-4aa7-497e-befe-8135d1d27d8d
# ╟─46eebe4b-340b-468c-97c7-a4b5627b7163
# ╠═90b40abf-caa3-4274-b164-e8c6d2f5b920
# ╟─04b3d54b-4e0b-46ad-bc92-f94ddfa890ef
# ╠═6eb9225b-dc7b-4fdb-acca-8d1d1d3bcc32
# ╟─d3d14186-4182-4187-9670-95b8b886bb74
# ╟─7269e18f-8a63-4763-8114-d6f177d114fe
# ╟─0b3f4554-1a09-4b6b-b859-28ffbf393cef
# ╟─634309bc-64e7-47ef-888b-a083a485e105
# ╠═19abbdeb-efe3-4a26-85c9-011ae5939c8e
# ╟─2b245c13-82d7-40f6-b26b-d702962b37f3
# ╠═a84af845-7f7a-45eb-b1d4-dde8047cb8e8
# ╟─42f262dd-4208-4a84-bd2d-5f4be5c78964
# ╠═5f0a4d6a-2545-4610-b827-6adc50204136
# ╟─d742acd5-ad8d-4ee6-bab0-e54ab9313e0d
# ╟─15ba0e67-e1a8-43c7-a433-8e7e6d877376
# ╟─71bb4346-7067-4db4-9a70-ab232e7c2ebc
# ╠═448dc68d-cd0a-4491-82ad-0e7cc00782ad
# ╟─14c803ff-268b-48bc-90c9-faa88010f5fe
# ╟─01b73386-ce68-4ad7-92af-17d91930f8f5
# ╠═aa3d15c6-f6c2-49cd-9a77-7d9951157897
# ╟─f3ced552-1b2e-47a1-be8a-6a0c20561ae1
# ╠═93fc3d23-9d7d-42ac-83fe-1cd568624a87
# ╟─160a5b22-6f1e-446d-861a-747cfe25bfda
# ╠═31847740-bb0b-41cc-9d4f-a42ee33bbc62
# ╟─468eb41d-fa5a-46cd-a5ef-2708c74e5ee0
# ╟─e523c524-8043-47f8-aeb3-69fad38aa272
# ╠═0b8e61ca-4938-4a5f-85c5-248579716562
# ╟─5a32b0d4-6a72-4b11-96ab-b6c8374153ba
# ╠═e814a124-f038-11ea-3b22-f109c99dbe03
# ╠═925a66b2-3564-480c-be12-0e626b01362f
# ╠═c347a8ad-c859-4eb2-8fdc-bb7f04c7f70e
# ╠═fac4f50a-ce65-4f22-af23-0fc73af936f2
# ╠═aa724bc5-563f-4421-a55c-84ebd766f364
# ╟─9a900923-e407-44a0-823a-f911a22a5ada
# ╟─553d0488-f03b-11ea-2997-3d82493cd4d7
# ╟─25dc5690-f03a-11ea-3c59-35ae694b03b5
# ╟─9dc072fe-b3db-11ea-1568-857a664ce4d2
# ╟─d88440c2-b3dc-11ea-1944-0ba4a566d7c1
# ╟─5d345ae8-f03a-11ea-1c2d-03f66115b590
# ╟─b3f5877c-b3e9-11ea-03fe-3f3233ee2e1b
# ╠═e04a9296-b3e3-11ea-01b5-8ff7dc0ced56
# ╟─a255402c-d719-41fc-babc-7988a9aa5421
# ╟─678850cc-b3e4-11ea-3cf0-a3445a3ac15a
# ╟─cd442606-f03a-11ea-3d53-57e83c8cdb1f
# ╟─4c1bcc58-b3ec-11ea-32d1-7f4cd113e43d
# ╟─a7e725d8-b3ee-11ea-0b84-8d252979e4ef
# ╟─49ce3f9c-b3ee-11ea-0bb5-ed348475ea0b
# ╟─60b52a52-b3eb-11ea-2e3c-9d185f4fbc2b
# ╟─d1ae2696-b3eb-11ea-2fcc-07b842217994
# ╟─f132f376-f03a-11ea-33e2-775fc026faca
# ╟─70160fec-b0c7-11ea-0c2a-35418346592e
# ╟─d30c8f2a-b0bf-11ea-0557-19bb61118644
# ╟─ab083f08-b0c0-11ea-0c23-315c14607f1f
# ╠═6bbb674c-b0ba-11ea-2ff7-ebcde6573d5b
# ╠═310a0c52-b0bf-11ea-3e32-69d685f2f45e
# ╟─5560ed36-b0c0-11ea-0104-49c31d171422
# ╠═e6c7e5be-b0bf-11ea-1f7e-73b9aae14382
# ╠═d6b0e49b-3144-4230-9c5a-9cc6f90ab0c9
# ╠═573c11b4-b0be-11ea-0416-31de4e217320
# ╠═fc44503a-b0bf-11ea-0f28-510784847241
# ╠═47907302-b0c0-11ea-0b27-b5cd2b4720d8
# ╠═8f7af43c-13fc-4a65-8cd6-ede6bbbbf80d
# ╠═1fb880a8-b3de-11ea-3181-478755ad354e
# ╠═4c173318-b3de-11ea-2d4c-49dab9fa3877
# ╠═2e7c8462-b3e2-11ea-1e41-a7085e012bb2
# ╠═358cb837-a2d1-4b67-a1d4-aa6f62126c89
# ╟─5aea06d4-b0c0-11ea-19f5-054b02e17675
# ╟─6dbce38e-b0bc-11ea-1126-a13e0d575339
# ╠═329138a4-4f37-4ccc-a5f0-f4bbfbd17a89
# ╠═fc08d52f-91fb-47d4-9122-d45a287c0e7f
# ╟─5030944f-efec-4226-9511-95ae3a4c179d
# ╠═1cca3d6d-a40a-455c-84d3-dec04f0b496a
# ╠═0786bcb6-d782-4d45-abc1-fdf8cb064ca7
# ╠═fbcf4e5b-e748-4e26-b334-5c7b25e2cf72
# ╠═e11da6c1-6336-4f34-9ab3-4531b136daad
# ╠═87aa1a40-afb0-4e56-b3f0-7c7e13c04ce8
# ╠═32a78ca2-7a1b-40a5-9158-911b576139db
# ╠═1e7dd491-2f09-4104-8a5d-512593da83f1
# ╟─2722c8d8-58e0-4a3b-abdb-b810604384bf
# ╟─e0e86411-62cb-4af1-b91f-9069a5a20508
# ╟─03c983b3-42f2-418d-89c2-fdfe74a4032a
# ╟─a3727d0a-3096-493c-a4fc-19e5a43cd683
# ╟─00000000-0000-0000-0000-000000000001
# ╟─00000000-0000-0000-0000-000000000002