PasteRack.org
Paste #
7146
2014-09-02 14:44:27
Forked from paste #
5791
.
Fork
as a new paste.
Paste viewed 2 times.
Tweet
Embed:
<link type="text/css" rel="stylesheet" href="http://pasterack.org/scribble.css"/><link type="text/css" rel="stylesheet" href="http://pasterack.org/racket.css"/><link type="text/css" rel="stylesheet" href="http://fonts.googleapis.com/css?family=Droid+Sans+Mono"/><div style="font-family:'Droid Sans Mono',monospace;background-color:transparent"><ol start="0" style="font-size:70%;color:#A0A0A0"><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta">#lang</span><span class="hspace"> </span><span class="RktMeta"></span><a class="RktModLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/index.html"><span class="RktSym">racket</span></a><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/require.html#%28form._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._require%29%29">require</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym">slideshow/pict</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"> </span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktStxLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/for.html#%28form._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._for%2Flist%29%29">for/list</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym">i</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">25</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/pict/Basic_Pict_Constructors.html#%28def._%28%28lib._pict%2Fmain..rkt%29._frame%29%29">frame</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/pict/Pict_Drawing_Adjusters.html#%28def._%28%28lib._pict%2Fmain..rkt%29._rotate%29%29">rotate</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/pict/Pict_Drawing_Adjusters.html#%28def._%28%28lib._pict%2Fmain..rkt%29._scale%29%29">scale</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/pict/Basic_Pict_Constructors.html#%28def._%28%28lib._pict%2Fmain..rkt%29._arrow%29%29">arrow</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">50</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">0</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">2</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">1</span><span class="RktPn">)</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/generic-numbers.html#%28def._%28%28quote._~23~25kernel%29._%2A%29%29">*</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/generic-numbers.html#%28def._%28%28lib._racket%2Fmath..rkt%29._pi%29%29">pi</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">(</span><span class="RktSym"><a class="RktValLink" data-pltdoc="x" href="http://docs.racket-lang.org/reference/generic-numbers.html#%28def._%28%28quote._~23~25kernel%29._%2F%29%29">/</a></span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktSym">i</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">12</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:segment</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">5</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:color</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">"blue"</span><span class="RktMeta"></span></span></li><li><span style="font-family:'Droid Sans Mono',monospace;font-size:125%"><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktPn">#:line-width</span><span class="RktMeta"></span><span class="hspace"> </span><span class="RktMeta"></span><span class="RktVal">1</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktMeta"></span></span></li></ol><p>=></p><blockquote><table style="font-size:90%;table-layout:fixed;width:100%;word-wrap:break-word"><tr><td><p><span class="RktRes">'(</span><img alt="image" height="50.0" src="http://pasterack.org/7146.png" style="" width="100.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="75.0" src="http://pasterack.org/7146_2.png" style="" width="110.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="94.0" src="http://pasterack.org/7146_3.png" style="" width="112.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="107.0" src="http://pasterack.org/7146_4.png" style="" width="107.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="112.0" src="http://pasterack.org/7146_5.png" style="" width="94.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="110.0" src="http://pasterack.org/7146_6.png" style="" width="75.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="100.0" src="http://pasterack.org/7146_7.png" style="" width="51.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="110.0" src="http://pasterack.org/7146_8.png" style="" width="75.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="112.0" src="http://pasterack.org/7146_9.png" style="" width="94.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="107.0" src="http://pasterack.org/7146_10.png" style="" width="107.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="94.0" src="http://pasterack.org/7146_11.png" style="" width="112.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="75.0" src="http://pasterack.org/7146_12.png" style="" width="110.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="51.0" src="http://pasterack.org/7146_13.png" style="" width="100.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="75.0" src="http://pasterack.org/7146_14.png" style="" width="110.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="94.0" src="http://pasterack.org/7146_15.png" style="" width="112.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="107.0" src="http://pasterack.org/7146_16.png" style="" width="107.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="112.0" src="http://pasterack.org/7146_17.png" style="" width="94.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="110.0" src="http://pasterack.org/7146_18.png" style="" width="75.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="101.0" src="http://pasterack.org/7146_19.png" style="" width="51.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="110.0" src="http://pasterack.org/7146_20.png" style="" width="75.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="112.0" src="http://pasterack.org/7146_21.png" style="" width="94.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="107.0" src="http://pasterack.org/7146_22.png" style="" width="107.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="94.0" src="http://pasterack.org/7146_23.png" style="" width="112.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="75.0" src="http://pasterack.org/7146_24.png" style="" width="110.0"/><span class="RktRes"></span><span class="hspace"> </span><span class="RktRes"></span><img alt="image" height="51.0" src="http://pasterack.org/7146_25.png" style="" width="101.0"/><span class="RktRes">)</span></p></td></tr></table></blockquote></div>
rotating a length-scaled arrow
#lang
racket
(
require
slideshow/pict
)
(
for/list
[
(
i
25
)
]
(
frame
(
rotate
(
scale
(
arrow
50
0
)
2
1
)
(
*
pi
(
/
i
12
)
)
)
#:segment
5
#:color
"blue"
#:line-width
1
)
)
=>
'(
)
