FGrose: moved Activities/TurtleArt/Logo to Activities/Turtle Art/Logo: deCamelCase

2012-07-23T15:37:20Z

moved Activities/TurtleArt/Logo to Activities/Turtle Art/Logo: deCamelCase

← Older revision	Revision as of 11:37, 23 July 2012
(No difference)

Walter: /* Exporting to Berkeley Logo */

2012-01-30T13:22:16Z

Exporting to Berkeley Logo

← Older revision		Revision as of 09:22, 30 January 2012
Line 8:		Line 8:
	<div class="visualClear"></div>		<div class="visualClear"></div>

	Logo code generated from your project is viewable in the View Source panel.		Logo code generated from your project is viewable in the View Source panel in some versions of Turtle Art, but as of v100, the Turtle Art project itself is shown instead.
	<gallery>		<gallery>
	File:TA-to-square.png\|Turtle Art code		File:TA-to-square.png\|Turtle Art code

Walter: /* Exporting to Berkeley Logo */

2012-01-30T13:19:48Z

Exporting to Berkeley Logo

← Older revision		Revision as of 09:19, 30 January 2012
Line 1:		Line 1:
	==Exporting to Berkeley Logo==		==Exporting to Berkeley Logo==
	Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [[#Project Toolbar\|Project Toolbar]])		Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [[#Project Toolbar\|Project Toolbar]]) You can download the [http://wiki.laptop.org/go/Berkeley_Logo Berkeley Logo activity here].

	<gallery>		<gallery>

Walter: Created page with "==Exporting to Berkeley Logo== Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [..."

2011-02-28T00:20:05Z

Created page with "==Exporting to Berkeley Logo== Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [..."

New page

==Exporting to Berkeley Logo==
Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [[#Project Toolbar|Project Toolbar]])

<gallery>
File:Taspin.png|A Turtle Art project
File:UCB-Logo.png|The UCB Logo version (see "Internals" below)
</gallery>
<div class="visualClear"></div>

Logo code generated from your project is viewable in the View Source panel.
<gallery>
File:TA-to-square.png|Turtle Art code
File:TA-view-source.png|View Source menu
File:TA-view-logo-code.png|Logo code
</gallery>

'''Note:''' The Save-as-Logo button saves to the Journal as "logosession.lg". UCB Logo does not yet access the Journal directly, so it is necessary to copy the project out of the Journal using the "copy-from-journal" command in the Terminal Activity and then accessing the project using the File menu within the UCB Logo Activity.

copy-from-journal logosession.lg

Alternatively, you can open the logosession in 'Write', copy the Logo code to the clipboard, and then paste it into the UCB Logo Activity.

===Internals, how a Turtle Art project is converted to Logo===
Shown here is the Logo code generated from the Turtle Art project shown above.

Firstly the Logo code contains procedures for setting up the palette and the shade functionality:

to tasetpalette :i :r :g :b :myshade
make "s ((:myshade - 50) / 50)
ifelse lessp :s 0 [
make "s (1 + (:s *0.8))
make "r (:r * :s)
make "g (:g * :s)
make "b (:b * :s)
] [
make "s (:s * 0.9)
make "r (:r + ((100-:r) * :s))
make "g (:g + ((100-:g) * :s))
make "b (:b + ((100-:b) * :s))
]
setpalette :i (list :r :g :b)
end

to rgb :myi :mycolors :myshade
make "myr first :mycolors
make "mycolors butfirst :mycolors
make "myg first :mycolors
make "mycolors butfirst :mycolors
make "myb first :mycolors
make "mycolors butfirst :mycolors
tasetpalette :myi :myr :myg :myb :myshade
output :mycolors
end

to processcolor :mycolors :myshade
if emptyp :mycolors [stop]
make "i :i + 1
processcolor (rgb :i :mycolors :myshade) :myshade
end

to tasetshade :shade
make "myshade modulo :shade 200
if greaterp :myshade 99 [make "myshade (199-:myshade)]
make "i 7
make "mycolors :colors
processcolor :mycolors :myshade
end

to tasetpencolor :c
make "color modulo round :c 100
setpencolor :color + 8
end

make "colors [
100 0 0 100 5 0 100 10 0 100 15 0 100 20 0 100 25 0 100 30 0 100 35 0 100 40 0 100 45 0
100 50 0 100 55 0 100 60 0 100 65 0 100 70 0 100 75 0 100 80 0 100 85 0 100 90 0 100 95 0
100 100 0 90 100 0 80 100 0 70 100 0 60 100 0 50 100 0 40 100 0 30 100 0 20 100 0 10 100 0
0 100 0 0 100 5 0 100 10 0 100 15 0 100 20 0 100 25 0 100 30 0 100 35 0 100 40 0 100 45
0 100 50 0 100 55 0 100 60 0 100 65 0 100 70 0 100 75 0 100 80 0 100 85 0 100 90 0 100 95
0 100 100 0 95 100 0 90 100 0 85 100 0 80 100 0 75 100 0 70 100 0 65 100 0 60 100 0 55 100
0 50 100 0 45 100 0 40 100 0 35 100 0 30 100 0 25 100 0 20 100 0 15 100 0 10 100 0 5 100
0 0 100 5 0 100 10 0 100 15 0 100 20 0 100 25 0 100 30 0 100 35 0 100 40 0 100 45 0 100
50 0 100 55 0 100 60 0 100 65 0 100 70 0 100 75 0 100 80 0 100 85 0 100 90 0 100 95 0 100
100 0 100 100 0 90 100 0 80 100 0 70 100 0 60 100 0 50 100 0 40 100 0 30 100 0 20 100 0 10]
make "shade 50
tasetshade :shade

to tasetbackground :color :shade
tasetshade :shade
setbackground :color + 8
end

Then the Logo code contains the project:

to ta
clearscreen tasetbackground 21 100 setpensize 25.0 make "box1 0.0
repeat 300.0 [ tasetpencolor xcor / 6.0 tasetshade heading forward :box1 right 91.0 make "box1 :box1 + 1.0 ]
end

ta

Activities/Turtle Art/Logo - Revision history

FGrose: moved Activities/TurtleArt/Logo to Activities/Turtle Art/Logo: deCamelCase

Walter: /* Exporting to Berkeley Logo */

Walter: /* Exporting to Berkeley Logo */

Walter: Created page with "==Exporting to Berkeley Logo== Turtle Art can export its projects to [http://www.cs.berkeley.edu/~bh/ Berkeley Logo] (using either View Source or the Save as Logo button on the [..."