User:Walter

Walter Bender

I was at OLPC for several years and now I am a volunteer on the project. My home page can be found here: [1]

Email: walter AT sugarlabs DOT org

To do

• get Frame test set up in Peru/Uruguay/Paraguay</srike>
• New Activity templates

Much of the information that is consistent across activities can be held in activities.s.o. (dfarning 22:28, 16 June 2008 (UTC))

• Follow-up with Linux Foundation
• Draft membership agreement for Sugar Labs
• rebase Turtle Art on SVG
• ask SFC for pointers to lawyers in SA
• start writing NSF/USAID proposal

Done

• New Getting Started Guide (See The Sugar FLOSS Manual)
• Add ParserFunctions to Sugar Labs mediawiki
• Draft rules of governance for Sugar Labs
• Start Community-News Sugar Weekly Digest list
• CoSN proposal
• rebase Gmail on new Browse
• Finalize arrangements with SFC
  • Incorporate Sugar Labs

Recent writing about Sugar and learning

• Confessions of a fundamentalist (Part 1)
• Confessions of a fundamentalist (Part 2)
• A page from the Hilbert playbook
• Media, Mathematics, and Mallard Fillmore

(I also blog the weekly Sugar Digest.)

The slides from a talk I gave about Sugar at the Women2Woman conference are here and here.

Sandbox

• User:Walter/sandbox
• User:Walter/favoriteslayout.py
• User:Walter/favoritesview.py
• User:Walter/View-mylayout.svg
• Patching Turtle Art

Spiral Home View

Fermat Spiral

Modifying TurtleArt

Floss Manual

<img src=""/> <style>

@import url("http://en.flossmanuals.net/bookstore/bookstore.css");

</style>

<script src="http://en.flossmanuals.net/bookstore/bookstore.js" type="text/javascript"></script>
<script type="text/javascript">
 FM.init({"paging":true,"preferred":["OLPC LAPTOP USERS GUIDE","SUGAR USERS GUIDE"]});
</script>

Portfolio

I am making a "TurtleArt: inspired portfolio tool.

first sketch of the portfolio tool

another sketch of the portfolio tool

Turtle Art → Logo

I added a "view source" for Turtle Art that exports Logo.

a Turtle Art project

the UCB Logo version

Some 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 :color
setpencolor (modulo (round :color) 100) + 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

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

HBS-style analysis

• our points of difference
• our points of parity
• their points of difference