/usr/share/doc/racket/unstable-gui/pict.html is in racket-doc 6.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"/><title>3 Pict Utilities</title><link rel="stylesheet" type="text/css" href="../scribble.css" title="default"/><link rel="stylesheet" type="text/css" href="../racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-style.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../manual-racket.css" title="default"/><link rel="stylesheet" type="text/css" href="../doc-site.css" title="default"/><script type="text/javascript" src="../scribble-common.js"></script><script type="text/javascript" src="../manual-racket.js"></script><script type="text/javascript" src="../manual-racket.js"></script><script type="text/javascript" src="../doc-site.js"></script><script type="text/javascript" src="../local-redirect/local-redirect.js"></script><script type="text/javascript" src="../local-redirect/local-user-redirect.js"></script><!--[if IE 6]><style type="text/css">.SIEHidden { overflow: hidden; }</style><![endif]--></head><body id="doc-racket-lang-org"><div class="tocset"><div class="tocview"><div class="tocviewlist tocviewlisttopspace"><div class="tocviewtitle"><table cellspacing="0" cellpadding="0"><tr><td style="width: 1em;"><a href="javascript:void(0);" title="Expand/Collapse" class="tocviewtoggle" onclick="TocviewToggle(this,"tocview_0");">▼</a></td><td></td><td><a href="index.html" class="tocviewlink" data-pltdoc="x">Unstable GUI:<span class="mywbr"> </span> May Change Without Warning</a></td></tr></table></div><div class="tocviewsublisttop" style="display: block;" id="tocview_0"><table cellspacing="0" cellpadding="0"><tr><td align="right">1 </td><td><a href="gui-notify.html" class="tocviewlink" data-pltdoc="x">Notify-<wbr></wbr>boxes</a></td></tr><tr><td align="right">2 </td><td><a href="gui-prefs.html" class="tocviewlink" data-pltdoc="x">Preferences</a></td></tr><tr><td align="right">3 </td><td><a href="" class="tocviewselflink" data-pltdoc="x">Pict Utilities</a></td></tr><tr><td align="right">4 </td><td><a href="Slideshow_Presentations.html" class="tocviewlink" data-pltdoc="x">Slideshow Presentations</a></td></tr><tr><td align="right">5 </td><td><a href="ppict.html" class="tocviewlink" data-pltdoc="x">Progressive Picts and Slides</a></td></tr><tr><td align="right">6 </td><td><a href="snip.html" class="tocviewlink" data-pltdoc="x">Snip Utilities</a></td></tr><tr><td align="right">7 </td><td><a href="Scribble_Utilities.html" class="tocviewlink" data-pltdoc="x">Scribble Utilities</a></td></tr></table></div></div><div class="tocviewlist"><table cellspacing="0" cellpadding="0"><tr><td style="width: 1em;"><a href="javascript:void(0);" title="Expand/Collapse" class="tocviewtoggle" onclick="TocviewToggle(this,"tocview_1");">►</a></td><td>3 </td><td><a href="" class="tocviewselflink" data-pltdoc="x">Pict Utilities</a></td></tr></table><div class="tocviewsublistbottom" style="display: none;" id="tocview_1"><table cellspacing="0" cellpadding="0"><tr><td align="right">3.1 </td><td><a href="#%28part._.Pict_.Colors%29" class="tocviewlink" data-pltdoc="x">Pict Colors</a></td></tr><tr><td align="right">3.2 </td><td><a href="#%28part._.Pict_.Manipulation%29" class="tocviewlink" data-pltdoc="x">Pict Manipulation</a></td></tr><tr><td align="right">3.3 </td><td><a href="#%28part._.Shapes_with_.Borders%29" class="tocviewlink" data-pltdoc="x">Shapes with Borders</a></td></tr><tr><td align="right">3.4 </td><td><a href="#%28part._.Lines_with_.Labels%29" class="tocviewlink" data-pltdoc="x">Lines with Labels</a></td></tr><tr><td align="right">3.5 </td><td><a href="#%28part._.Blur%29" class="tocviewlink" data-pltdoc="x">Blur</a></td></tr><tr><td align="right">3.6 </td><td><a href="#%28part._.Shadow_.Frames%29" class="tocviewlink" data-pltdoc="x">Shadow Frames</a></td></tr><tr><td align="right">3.7 </td><td><a href="#%28part._.Drawing%29" class="tocviewlink" data-pltdoc="x">Drawing</a></td></tr><tr><td align="right">3.8 </td><td><a href="#%28part._.Additional_combinators%29" class="tocviewlink" data-pltdoc="x">Additional combinators</a></td></tr><tr><td align="right">3.9 </td><td><a href="#%28part._.Alignment%29" class="tocviewlink" data-pltdoc="x">Alignment</a></td></tr><tr><td align="right">3.10 </td><td><a href="#%28part._.P.L.T_.Logos%29" class="tocviewlink" data-pltdoc="x">PLT Logos</a></td></tr></table></div></div></div><div class="tocsub"><div class="tocsubtitle">On this page:</div><table class="tocsublist" cellspacing="0"><tr><td><span class="tocsublinknumber">3.1<tt> </tt></span><a href="#%28part._.Pict_.Colors%29" class="tocsubseclink" data-pltdoc="x">Pict Colors</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">color</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">red</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._orange%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">orange</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._yellow%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">yellow</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._green%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">green</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blue%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">blue</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._purple%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">purple</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._black%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">black</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._brown%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">brown</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._gray%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">gray</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._white%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">white</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cyan%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">cyan</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._magenta%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">magenta</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._light%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">light</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._dark%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">dark</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">color/<span class="mywbr"> </span>c</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.2<tt> </tt></span><a href="#%28part._.Pict_.Manipulation%29" class="tocsubseclink" data-pltdoc="x">Pict Manipulation</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._fill%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">fill</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._scale-to%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">scale-<wbr></wbr>to</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.2.1<tt> </tt></span><a href="#%28part._.Conditional_.Manipulations%29" class="tocsubseclink" data-pltdoc="x">Conditional Manipulations</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._show%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">show</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._hide%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">hide</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._strike%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">strike</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shade%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">shade</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.2.2<tt> </tt></span><a href="#%28part._.Conditional_.Combinations%29" class="tocsubseclink" data-pltdoc="x">Conditional Combinations</a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-if%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">pict-<wbr></wbr>if</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-cond%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">pict-<wbr></wbr>cond</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-case%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">pict-<wbr></wbr>case</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-match%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">pict-<wbr></wbr>match</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">pict-<wbr></wbr>combine</span></span></a></td></tr><tr><td><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._with-pict-combine%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktStxLink">with-<wbr></wbr>pict-<wbr></wbr>combine</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.3<tt> </tt></span><a href="#%28part._.Shapes_with_.Borders%29" class="tocsubseclink" data-pltdoc="x">Shapes with Borders</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._ellipse%2Fborder%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">ellipse/<span class="mywbr"> </span>border</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._circle%2Fborder%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">circle/<span class="mywbr"> </span>border</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rectangle%2Fborder%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">rectangle/<span class="mywbr"> </span>border</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rounded-rectangle%2Fborder%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">rounded-<wbr></wbr>rectangle/<span class="mywbr"> </span>border</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.4<tt> </tt></span><a href="#%28part._.Lines_with_.Labels%29" class="tocsubseclink" data-pltdoc="x">Lines with Labels</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-label-line%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">pin-<wbr></wbr>label-<wbr></wbr>line</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-arrow-label-line%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">pin-<wbr></wbr>arrow-<wbr></wbr>label-<wbr></wbr>line</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-arrows-label-line%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">pin-<wbr></wbr>arrows-<wbr></wbr>label-<wbr></wbr>line</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.5<tt> </tt></span><a href="#%28part._.Blur%29" class="tocsubseclink" data-pltdoc="x">Blur</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">blur</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">shadow</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur-bitmap%21%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">blur-<wbr></wbr>bitmap!</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.5.1<tt> </tt></span><a href="#%28part._.Tagged_.Picts%29" class="tocsubseclink" data-pltdoc="x">Tagged Picts</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">tag-<wbr></wbr>pict</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">find-<wbr></wbr>tag</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%2A%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">find-<wbr></wbr>tag*</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-path~3f%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">tag-<wbr></wbr>path?</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.6<tt> </tt></span><a href="#%28part._.Shadow_.Frames%29" class="tocsubseclink" data-pltdoc="x">Shadow Frames</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow-frame%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">shadow-<wbr></wbr>frame</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._arch%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">arch</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.7<tt> </tt></span><a href="#%28part._.Drawing%29" class="tocsubseclink" data-pltdoc="x">Drawing</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._draw-pict-centered%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">draw-<wbr></wbr>pict-<wbr></wbr>centered</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.8<tt> </tt></span><a href="#%28part._.Additional_combinators%29" class="tocsubseclink" data-pltdoc="x">Additional combinators</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._backdrop%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">backdrop</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cross-out%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">cross-<wbr></wbr>out</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.9<tt> </tt></span><a href="#%28part._.Alignment%29" class="tocsubseclink" data-pltdoc="x">Alignment</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align%2Fc%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">align/<span class="mywbr"> </span>c</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">halign/<span class="mywbr"> </span>c</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">valign/<span class="mywbr"> </span>c</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3eh%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">align-<wbr></wbr>>h</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3ev%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">align-<wbr></wbr>>v</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3efrac%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">align-<wbr></wbr>>frac</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign-~3evcompose%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">halign-<wbr></wbr>>vcompose</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign-~3ehcompose%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">valign-<wbr></wbr>>hcompose</span></span></a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._pin-over%2Falign%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">pin-<wbr></wbr>over/<span class="mywbr"> </span>align</span></span></a></td></tr><tr><td><span class="tocsublinknumber">3.10<tt> </tt></span><a href="#%28part._.P.L.T_.Logos%29" class="tocsubseclink" data-pltdoc="x">PLT Logos</a></td></tr><tr><td><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Fplt-logo..rkt%29._make-plt-title-background%29%29" class="tocsubnonseclink" data-pltdoc="x"><span class="RktSym"><span class="RktValLink">make-<wbr></wbr>plt-<wbr></wbr>title-<wbr></wbr>background</span></span></a></td></tr></table></div></div><div class="maincolumn"><div class="main"><div class="versionbox"><span class="version">6.1</span></div><div class="navsettop"><span class="navleft"><form class="searchform"><input class="searchbox" style="color: #888;" type="text" value="...search manuals..." title="Enter a search string to search the manuals" onkeypress="return DoSearchKey(event, this, "6.1", "../");" onfocus="this.style.color="black"; this.style.textAlign="left"; if (this.value == "...search manuals...") this.value="";" onblur="if (this.value.match(/^ *$/)) { this.style.color="#888"; this.style.textAlign="center"; this.value="...search manuals..."; }"/></form> <a href="../index.html" title="up to the documentation top" data-pltdoc="x" onclick="return GotoPLTRoot("6.1");">top</a></span><span class="navright"> <a href="gui-prefs.html" title="backward to "2 Preferences"" data-pltdoc="x">← prev</a> <a href="index.html" title="up to "Unstable GUI: May Change Without Warning"" data-pltdoc="x">up</a> <a href="Slideshow_Presentations.html" title="forward to "4 Slideshow Presentations"" data-pltdoc="x">next →</a></span> </div><h3 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""pict"">3<tt> </tt><a name="(part._pict)"></a><a name="(mod-path._unstable/gui/pict)"></a>Pict Utilities</h3><div class="SAuthorListBox"><span class="SAuthorList"><p class="author">Carl Eastlund <<a href="mailto:cce@racket-lang.org">cce@racket-lang.org</a>></p></span></div><p><div class="SIntrapara"></div><div class="SIntrapara">This library is <span style="font-style: italic">unstable</span>;
compatibility will not be maintained.
See <a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=unstable&rel=index.html&version=6.1" class="Sq" data-pltdoc="x">Unstable: May Change Without Warning</a>
for more information.</div></p><p><table cellspacing="0" cellpadding="0" class="defmodule"><tr><td align="left"><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=require.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._require%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">require</a></span><span class="stt"> </span><a href="" class="RktModLink" data-pltdoc="x"><span class="RktSym">unstable/gui/pict</span></a><span class="RktPn">)</span></td><td align="right"><span class="RpackageSpec"><span class="Smaller"> package:</span> <span class="stt">unstable-lib</span></span></td></tr></table></p><p>The functions and macros exported by this module are also exported by
<a href="Slideshow_Presentations.html" class="RktModLink" data-pltdoc="x"><span class="RktSym">unstable/gui/slideshow</span></a>.</p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Pict_Colors"">3.1<tt> </tt><a name="(part._.Pict_.Colors)"></a>Pict Colors</h4><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._color))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%29%29" class="RktValDef RktValLink" data-pltdoc="x">color</a></span></span><span class="hspace"> </span><span class="RktVar">c</span><span class="hspace"> </span><span class="RktVar">p</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">c</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Applies color <span class="RktVar">c</span> to picture <span class="RktVar">p</span>. Equivalent to <span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="stt"> </span><span class="RktVar">p</span><span class="stt"> </span><span class="RktVar">c</span><span class="RktPn">)</span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%29%29" class="RktValLink" data-pltdoc="x">color</a></span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict.png" alt="image" width="26" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._red))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="RktValDef RktValLink" data-pltdoc="x">red</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._orange))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._orange%29%29" class="RktValDef RktValLink" data-pltdoc="x">orange</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._yellow))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._yellow%29%29" class="RktValDef RktValLink" data-pltdoc="x">yellow</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._green))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._green%29%29" class="RktValDef RktValLink" data-pltdoc="x">green</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._blue))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blue%29%29" class="RktValDef RktValLink" data-pltdoc="x">blue</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._purple))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._purple%29%29" class="RktValDef RktValLink" data-pltdoc="x">purple</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._black))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._black%29%29" class="RktValDef RktValLink" data-pltdoc="x">black</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._brown))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._brown%29%29" class="RktValDef RktValLink" data-pltdoc="x">brown</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._gray))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._gray%29%29" class="RktValDef RktValLink" data-pltdoc="x">gray</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._white))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._white%29%29" class="RktValDef RktValLink" data-pltdoc="x">white</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._cyan))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cyan%29%29" class="RktValDef RktValLink" data-pltdoc="x">cyan</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._magenta))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._magenta%29%29" class="RktValDef RktValLink" data-pltdoc="x">magenta</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">These functions apply appropriate colors to picture <span class="RktSym">p</span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="RktValLink" data-pltdoc="x">red</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_2.png" alt="image" width="26" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._light))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._light%29%29" class="RktValDef RktValLink" data-pltdoc="x">light</a></span></span><span class="hspace"> </span><span class="RktVar">color</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._dark))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._dark%29%29" class="RktValDef RktValLink" data-pltdoc="x">dark</a></span></span><span class="hspace"> </span><span class="RktVar">color</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">These functions produce ligher or darker versions of a color.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._dark%29%29" class="RktValLink" data-pltdoc="x">dark</a></span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._light%29%29" class="RktValLink" data-pltdoc="x">light</a></span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_3.png" alt="image" width="66" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>value</p></div></div><p class="RForeground"><a name="(def._((lib._unstable/gui/pict..rkt)._color/c))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValDef RktValLink" data-pltdoc="x">color/c</a></span></span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=contract-utilities.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._flat-contract%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">flat-contract?</a></span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">This contract recognizes color strings, <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span> instances, and RGB color
lists.</div></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Pict_Manipulation"">3.2<tt> </tt><a name="(part._.Pict_.Manipulation)"></a>Pict Manipulation</h4><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._fill))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._fill%29%29" class="RktValDef RktValLink" data-pltdoc="x">fill</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span><span class="RktVar">width</span><span class="hspace"> </span><span class="RktVar">height</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">height</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span></td></tr></table></blockquote></div><div class="SIntrapara">Extends <span class="RktVar">pict</span>’s bounding box to a minimum <span class="RktVar">width</span> and/or
<span class="RktVar">height</span>, placing the original picture in the middle of the space.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._fill%29%29" class="RktValLink" data-pltdoc="x">fill</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_4.png" alt="image" width="46" height="46"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._scale-to))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._scale-to%29%29" class="RktValDef RktValLink" data-pltdoc="x">scale-to</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span><span class="RktVar">width</span><span class="hspace"> </span><span class="RktVar">height</span><span class="hspace"> </span>[<span class="RktPn">#:mode</span><span class="hspace"> </span><span class="RktVar">mode</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">height</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">mode</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">preserve</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">inset</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">distort</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">preserve</span></td></tr></table></blockquote></div><div class="SIntrapara">Scales <span class="RktVar">pict</span> so that its width and height are at most
<span class="RktVar">width</span> and <span class="RktVar">height</span>, respectively. If <span class="RktVar">mode</span> is
<span class="RktVal">'</span><span class="RktVal">preserve</span>, the width and height are scaled by the same factor
so <span class="RktVar">pict</span>’s aspect ratio is preserved; the result’s bounding
box may be smaller than <span class="RktVar">width</span> by <span class="RktVar">height</span>. If
<span class="RktVar">mode</span> is <span class="RktVal">'</span><span class="RktVal">inset</span>, the aspect ratio is preserved as
with <span class="RktVal">'</span><span class="RktVal">preserve</span>, but the resulting pict is centered in a
bounding box of exactly <span class="RktVar">width</span> by <span class="RktVar">height</span>. If
<span class="RktVar">mode</span> is <span class="RktVal">'</span><span class="RktVal">distort</span>, the width and height are scaled
separately.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._scale-to%29%29" class="RktValLink" data-pltdoc="x">scale-to</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_5.png" alt="image" width="26" height="26"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._scale-to%29%29" class="RktValLink" data-pltdoc="x">scale-to</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktPn">#:mode</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">inset</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_6.png" alt="image" width="46" height="26"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._scale-to%29%29" class="RktValLink" data-pltdoc="x">scale-to</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktPn">#:mode</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">distort</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_7.png" alt="image" width="46" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><h5 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Conditional_Manipulations"">3.2.1<tt> </tt><a name="(part._.Conditional_.Manipulations)"></a>Conditional Manipulations</h5><p>These pict transformers all take boolean arguments that determine whether to
transform the pict or leave it unchanged. These transformations can be useful
for staged slides, as the resulting pict always has the same size and shape, and
its contents always appear at the same position, but changing the boolean
argument between slides can control when the transformation occurs.</p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._show))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._show%29%29" class="RktValDef RktValLink" data-pltdoc="x">show</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>[<span class="RktVar">show?</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">show?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=unstable&rel=contract.html%23%2528def._%2528%2528lib._unstable%252Fcontract..rkt%2529._truth%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">truth/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._hide))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._hide%29%29" class="RktValDef RktValLink" data-pltdoc="x">hide</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>[<span class="RktVar">hide?</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">hide?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=unstable&rel=contract.html%23%2528def._%2528%2528lib._unstable%252Fcontract..rkt%2529._truth%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">truth/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">These functions conditionally show or hide an image, essentially choosing
between <span class="RktVar">pict</span> and <span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._ghost%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">ghost</a></span><span class="stt"> </span><span class="RktVar">pict</span><span class="RktPn">)</span>. The only difference between
the two is the default behavior and the opposite meaning of the <span class="RktVar">show?</span>
and <span class="RktVar">hide?</span> booleans. Both functions are provided for mnemonic purposes.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._strike))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._strike%29%29" class="RktValDef RktValLink" data-pltdoc="x">strike</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>[<span class="RktVar">strike?</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">strike?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=unstable&rel=contract.html%23%2528def._%2528%2528lib._unstable%252Fcontract..rkt%2529._truth%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">truth/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr></table></blockquote></div><div class="SIntrapara">Displays a strikethrough image by putting a line through the middle of
<span class="RktVar">pict</span> if <span class="RktVar">strike?</span> is true; produces <span class="RktVar">pict</span> unchanged
otherwise.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._strike%29%29" class="RktValLink" data-pltdoc="x">strike</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">"yellow"</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_8.png" alt="image" width="26" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._shade))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shade%29%29" class="RktValDef RktValLink" data-pltdoc="x">shade</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>[<span class="RktVar">shade?</span><span class="hspace"> </span><span class="RktPn">#:ratio</span><span class="hspace"> </span><span class="RktVar">ratio</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shade?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=unstable&rel=contract.html%23%2528def._%2528%2528lib._unstable%252Fcontract..rkt%2529._truth%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">truth/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">ratio</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._real-in%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real-in</a></span><span class="hspace"> </span><span class="RktVal">0</span><span class="hspace"> </span><span class="RktVal">1</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/2</span></td></tr></table></blockquote></div><div class="SIntrapara">Shades <span class="RktVar">pict</span> to show with <span class="RktVar">ratio</span> of its normal opacity; if
<span class="RktVar">ratio</span> is <span class="RktVal">1</span> or <span class="RktVar">shade?</span> is <span class="RktVal">#f</span>, shows
<span class="RktVar">pict</span> unchanged.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shade%29%29" class="RktValLink" data-pltdoc="x">shade</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_9.png" alt="image" width="26" height="26"/></p></td></tr></table></blockquote></td></tr></table></p><h5 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Conditional_Combinations"">3.2.2<tt> </tt><a name="(part._.Conditional_.Combinations)"></a>Conditional Combinations</h5><p>These pict control flow operators decide which pict of several to use. All
branches are evaluated; the resulting pict is a combination of the pict chosen
by normal conditional flow with <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._ghost%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">ghost</a></span> applied to all the other picts.
The result is a picture large enough to accommodate each alternative, but showing
only the chosen one. This is useful for staged slides, as the pict chosen may
change with each slide but its size and position will not.</p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/gui/pict..rkt)._pict-if))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-if%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">pict-if</a></span></span><span class="hspace"> </span><span class="RktVar">maybe-combine</span><span class="hspace"> </span><span class="RktVar">test-expr</span><span class="hspace"> </span><span class="RktVar">then-expr</span><span class="hspace"> </span><span class="RktVar">else-expr</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="stt"> </span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="specgrammar"><tr><td align="right" valign="baseline"><span class="RktVar">maybe-combine</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:combine</span><span class="hspace"> </span><span class="RktVar">combine-expr</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">Chooses either <span class="RktVar">then-expr</span> or <span class="RktVar">else-expr</span> based on
<span class="RktVar">test-expr</span>, similarly to <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=if.html%23%2528form._%2528%2528quote._%7E23%7E25kernel%2529._if%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">if</a></span>. Combines the chosen, visible
image with the other, invisible image using <span class="RktVar">combine-expr</span>, defaulting to
<span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxLink" data-pltdoc="x">pict-combine</a></span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">x</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-if%29%29" class="RktStxLink" data-pltdoc="x">pict-if</a></span><span class="hspace"> </span><span class="RktSym">x</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">#t</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_10.png" alt="image" width="96" height="46"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/gui/pict..rkt)._pict-cond))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-cond%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">pict-cond</a></span></span><span class="hspace"> </span><span class="RktVar">maybe-combine</span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktVar">test-expr</span><span class="hspace"> </span><span class="RktVar">pict-expr</span><span class="RktPn">]</span><span class="hspace"> </span><span class="RktMeta">...</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="stt"> </span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="specgrammar"><tr><td align="right" valign="baseline"><span class="RktVar">maybe-combine</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:combine</span><span class="hspace"> </span><span class="RktVar">combine-expr</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">Chooses a <span class="RktVar">pict-expr</span> based on the first successful <span class="RktVar">test-expr</span>,
similarly to <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=if.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._cond%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">cond</a></span>. Combines the chosen, visible image with the other,
invisible images using <span class="RktVar">combine-expr</span>, defaulting to
<span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxLink" data-pltdoc="x">pict-combine</a></span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">x</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-cond%29%29" class="RktStxLink" data-pltdoc="x">pict-cond</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._eq%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">eq?</a></span><span class="hspace"> </span><span class="RktSym">x</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">circle</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._eq%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">eq?</a></span><span class="hspace"> </span><span class="RktSym">x</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">disk</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._eq%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">eq?</a></span><span class="hspace"> </span><span class="RktSym">x</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">text</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"ok"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">circle</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">disk</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">text</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: -4.716796875px; margin: -3px -3px -3px -3px;" src="pict_11.png" alt="image" width="146.0" height="50.716796875"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/gui/pict..rkt)._pict-case))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-case%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">pict-case</a></span></span><span class="hspace"> </span><span class="RktVar">test-expr</span><span class="hspace"> </span><span class="RktVar">maybe-combine</span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktVar">literals</span><span class="hspace"> </span><span class="RktVar">pict-expr</span><span class="RktPn">]</span><span class="hspace"> </span><span class="RktMeta">...</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="stt"> </span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="specgrammar"><tr><td align="right" valign="baseline"><span class="RktVar">maybe-combine</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:combine</span><span class="hspace"> </span><span class="RktVar">combine-expr</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">Chooses a <span class="RktVar">pict-expr</span> based on <span class="RktVar">test-expr</span> and each list of
<span class="RktVar">literals</span>, similarly to <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=case.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fmore-scheme..rkt%2529._case%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">case</a></span>. Combines the chosen, visible
image with the other, invisible images using <span class="RktVar">combine-expr</span>, defaulting
to <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxLink" data-pltdoc="x">pict-combine</a></span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">x</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-case%29%29" class="RktStxLink" data-pltdoc="x">pict-case</a></span><span class="hspace"> </span><span class="RktSym">x</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"ok"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">circle</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">disk</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">text</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: -4.716796875px; margin: -3px -3px -3px -3px;" src="pict_12.png" alt="image" width="146.0" height="50.716796875"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/gui/pict..rkt)._pict-match))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-match%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">pict-match</a></span></span><span class="hspace"> </span><span class="RktVar">test-expr</span><span class="hspace"> </span><span class="RktVar">maybe-combine</span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktVar">pattern</span><span class="hspace"> </span><span class="RktVar">pict-expr</span><span class="RktPn">]</span><span class="hspace"> </span><span class="RktMeta">...</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="stt"> </span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="specgrammar"><tr><td align="right" valign="baseline"><span class="RktVar">maybe-combine</span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">=</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td></td></tr></table></td></tr><tr><td align="right" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="center" valign="baseline">|</td><td align="left" valign="baseline"><span class="stt"> </span></td><td align="left" valign="baseline"><span class="RktPn">#:combine</span><span class="hspace"> </span><span class="RktVar">combine-expr</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">Chooses a <span class="RktVar">pict-expr</span> based on <span class="RktVar">test-expr</span> and each
<span class="RktVar">pattern</span>, similarly to <span class="RktSym">match</span>. Combines the chosen, visible
image with the other, invisible images using <span class="RktVar">combine-expr</span>, defaulting
to <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxLink" data-pltdoc="x">pict-combine</a></span>.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><a name="(form._((lib._unstable/gui/pict..rkt)._pict-combine))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">pict-combine</a></span></span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">This syntax parameter determines the default pict combining form used by the
above macros. It defaults to <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._lbl-superimpose%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">lbl-superimpose</a></span>.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>syntax</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(form._((lib._unstable/gui/pict..rkt)._with-pict-combine))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._with-pict-combine%29%29" class="RktStxDef RktStxLink" data-pltdoc="x">with-pict-combine</a></span></span><span class="hspace"> </span><span class="RktVar">combine-id</span><span class="hspace"> </span><span class="RktVar">body</span><span class="hspace"> </span><span class="RktMeta">...</span><span class="RktPn">)</span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">Sets <span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-combine%29%29" class="RktStxLink" data-pltdoc="x">pict-combine</a></span> to refer to <span class="RktVar">combine-id</span> within each of the
<span class="RktVar">body</span> terms, which are spliced into the containing context.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">x</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._with-pict-combine%29%29" class="RktStxLink" data-pltdoc="x">with-pict-combine</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._cc-superimpose%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">cc-superimpose</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28form._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pict-case%29%29" class="RktStxLink" data-pltdoc="x">pict-case</a></span><span class="hspace"> </span><span class="RktSym">x</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"ok"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">circle</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">disk</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._frame%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">f</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">text</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: -0.0px; margin: -3px -3px -3px -3px;" src="pict_13.png" alt="image" width="146.0" height="46.0"/></p></td></tr></table></blockquote></td></tr></table></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Shapes_with_Borders"">3.3<tt> </tt><a name="(part._.Shapes_with_.Borders)"></a>Shapes with Borders</h4><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Vincent St-Amour.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._ellipse/border))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._ellipse%2Fborder%29%29" class="RktValDef RktValLink" data-pltdoc="x">ellipse/border</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">w</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">h</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVar">border-color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVar">border-width</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"black"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">2</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._circle/border))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._circle%2Fborder%29%29" class="RktValDef RktValLink" data-pltdoc="x">circle/border</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">diameter</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVar">border-color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVar">border-width</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">diameter</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"black"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">2</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._rectangle/border))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rectangle%2Fborder%29%29" class="RktValDef RktValLink" data-pltdoc="x">rectangle/border</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">w</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">h</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVar">border-color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVar">border-width</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"black"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">2</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._rounded-rectangle/border))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rounded-rectangle%2Fborder%29%29" class="RktValDef RktValLink" data-pltdoc="x">rounded-rectangle/border</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">w</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">h</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVar">border-color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVar">border-width</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:corner-radius</span><span class="hspace"> </span><span class="RktVar">corner-radius</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:angle</span><span class="hspace"> </span><span class="RktVar">angle</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"black"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">border-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">2</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">corner-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal"><span class="nobreak">-0</span>.25</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">These functions create shapes with border of the given color and width.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._ellipse%2Fborder%29%29" class="RktValLink" data-pltdoc="x">ellipse/border</a></span><span class="hspace"> </span><span class="RktVal">80</span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVal">"blue"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_14.png" alt="image" width="86.0" height="46.0"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rounded-rectangle%2Fborder%29%29" class="RktValLink" data-pltdoc="x">rounded-rectangle/border</a></span><span class="hspace"> </span><span class="RktVal">60</span><span class="hspace"> </span><span class="RktVal">60</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="hspace"> </span><span class="RktPn">#:angle</span><span class="hspace"> </span><span class="RktVal">1</span><span class="hspace"> </span><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVal">3</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_15.png" alt="image" width="81.64934997939957" height="81.64934997939956"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._circle%2Fborder%29%29" class="RktValLink" data-pltdoc="x">circle/border</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"green"</span><span class="hspace"> </span><span class="RktPn">#:border-color</span><span class="hspace"> </span><span class="RktVal">"purple"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_16.png" alt="image" width="46.0" height="46.0"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._rectangle%2Fborder%29%29" class="RktValLink" data-pltdoc="x">rectangle/border</a></span><span class="hspace"> </span><span class="RktVal">200</span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktPn">#:border-width</span><span class="hspace"> </span><span class="RktVal">5</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_17.png" alt="image" width="206.0" height="26.0"/></p></td></tr></table></blockquote></td></tr></table></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Lines_with_Labels"">3.4<tt> </tt><a name="(part._.Lines_with_.Labels)"></a>Lines with Labels</h4><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Scott Owens.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._pin-label-line))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-label-line%29%29" class="RktValDef RktValLink" data-pltdoc="x">pin-label-line</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">label</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">pict</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-pict</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-coord-fn</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-pict</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-coord-fn</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:start-angle</span><span class="hspace"> </span><span class="RktVar">start-angle</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-angle</span><span class="hspace"> </span><span class="RktVar">end-angle</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:start-pull</span><span class="hspace"> </span><span class="RktVar">start-pull</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-pull</span><span class="hspace"> </span><span class="RktVar">end-pull</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:line-width</span><span class="hspace"> </span><span class="RktVar">line-width</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:alpha</span><span class="hspace"> </span><span class="RktVar">alpha</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:style</span><span class="hspace"> </span><span class="RktVar">style</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:under?</span><span class="hspace"> </span><span class="RktVar">under?</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:x-adjust</span><span class="hspace"> </span><span class="RktVar">x-adjust</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:y-adjust</span><span class="hspace"> </span><span class="RktVar">y-adjust</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">label</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">line-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">alpha</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._real-in%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real-in</a></span><span class="hspace"> </span><span class="RktVal">0</span><span class="hspace"> </span><span class="RktVal">1</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">style</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=Drawing_Contracts.html%23%2528def._%2528%2528lib._racket%252Fdraw..rkt%2529._pen-style%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pen-style/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">solid</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">under?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">x-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">y-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._pin-arrow-label-line))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-arrow-label-line%29%29" class="RktValDef RktValLink" data-pltdoc="x">pin-arrow-label-line</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">label</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">arrow-size</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-coord-fn</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-coord-fn</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:start-angle</span><span class="hspace"> </span><span class="RktVar">start-angle</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-angle</span><span class="hspace"> </span><span class="RktVar">end-angle</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:start-pull</span><span class="hspace"> </span><span class="RktVar">start-pull</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-pull</span><span class="hspace"> </span><span class="RktVar">end-pull</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:line-width</span><span class="hspace"> </span><span class="RktVar">line-width</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:alpha</span><span class="hspace"> </span><span class="RktVar">alpha</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:style</span><span class="hspace"> </span><span class="RktVar">style</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:solid?</span><span class="hspace"> </span><span class="RktVar">solid?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:under?</span><span class="hspace"> </span><span class="RktVar">under?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:hide-arrowhead?</span><span class="hspace"> </span><span class="RktVar">hide-arrowhead?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:x-adjust</span><span class="hspace"> </span><span class="RktVar">x-adjust</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:y-adjust</span><span class="hspace"> </span><span class="RktVar">y-adjust</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">label</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">arrow-size</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">line-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">alpha</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._real-in%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real-in</a></span><span class="hspace"> </span><span class="RktVal">0</span><span class="hspace"> </span><span class="RktVal">1</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">style</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=Drawing_Contracts.html%23%2528def._%2528%2528lib._racket%252Fdraw..rkt%2529._pen-style%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pen-style/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">solid</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">solid?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._boolean%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">boolean?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">under?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">hide-arrowhead?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">x-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">y-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr></table></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="together"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._pin-arrows-label-line))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-arrows-label-line%29%29" class="RktValDef RktValLink" data-pltdoc="x">pin-arrows-label-line</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">label</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">arrow-size</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">src-coord-fn</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dest-coord-fn</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:start-angle</span><span class="hspace"> </span><span class="RktVar">start-angle</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-angle</span><span class="hspace"> </span><span class="RktVar">end-angle</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:start-pull</span><span class="hspace"> </span><span class="RktVar">start-pull</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:end-pull</span><span class="hspace"> </span><span class="RktVar">end-pull</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:line-width</span><span class="hspace"> </span><span class="RktVar">line-width</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:alpha</span><span class="hspace"> </span><span class="RktVar">alpha</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:style</span><span class="hspace"> </span><span class="RktVar">style</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:solid?</span><span class="hspace"> </span><span class="RktVar">solid?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:under?</span><span class="hspace"> </span><span class="RktVar">under?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:hide-arrowhead?</span><span class="hspace"> </span><span class="RktVar">hide-arrowhead?</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:x-adjust</span><span class="hspace"> </span><span class="RktVar">x-adjust</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:y-adjust</span><span class="hspace"> </span><span class="RktVar">y-adjust</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">label</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">arrow-size</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">src-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dest-coord-fn</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=function-contracts.html%23%2528form._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._-%7E3e%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x"><span class="nobreak">-></span></a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=values.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._values%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">values</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-angle</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">start-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">end-pull</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">line-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">alpha</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._real-in%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real-in</a></span><span class="hspace"> </span><span class="RktVal">0</span><span class="hspace"> </span><span class="RktVal">1</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">style</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=Drawing_Contracts.html%23%2528def._%2528%2528lib._racket%252Fdraw..rkt%2529._pen-style%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pen-style/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">solid</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">solid?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._boolean%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">boolean?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#t</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">under?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">hide-arrowhead?</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">x-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">y-adjust</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr></table></td></tr></table></blockquote></div><div class="SIntrapara">These functions behave like <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pin-line%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pin-line</a></span>, <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pin-arrow-line%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pin-arrow-line</a></span>
and <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pin-arrows-line%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pin-arrows-line</a></span> with the addition of a label attached to
the line.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%252A%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let*</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="RktValLink" data-pltdoc="x">red</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">b</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blue%29%29" class="RktValLink" data-pltdoc="x">blue</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._filled-rectangle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">filled-rectangle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">p</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._vl-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">vl-append</a></span><span class="hspace"> </span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hb-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hb-append</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._blank%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">blank</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktSym">b</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._pin-arrow-label-line%29%29" class="RktValLink" data-pltdoc="x">pin-arrow-label-line</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._rotate%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">rotate</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"label"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=generic-numbers.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._%252F%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">/</a></span><span class="hspace"> </span><span class="RktSym">pi</span><span class="hspace"> </span><span class="RktVal"><span class="nobreak">-4</span></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktSym">p</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._rb-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">rb-find</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktSym">b</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._lt-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">lt-find</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_18.png" alt="image" width="126" height="126"/></p></td></tr></table></blockquote></td></tr></table></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Blur"">3.5<tt> </tt><a name="(part._.Blur)"></a>Blur</h4><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Ryan Culpepper.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._blur))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValDef RktValLink" data-pltdoc="x">blur</a></span></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">h-radius</span><span class="hspace"> </span>[<span class="RktVar">v-radius</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">v-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVar">h-radius</span></td></tr></table></blockquote></div><div class="SIntrapara">Blurs <span class="RktVar">p</span> using an iterated box blur that approximates a
gaussian blur. The <span class="RktVar">h-radius</span> and <span class="RktVar">v-radius</span> arguments
control the strength of the horizontal and vertical components of the
blur, respectively. They are given in terms of pict units, which may
not directly correspond to screen pixels.</div></p><p><div class="SIntrapara">The <span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span> function takes work proportional to
</div><div class="SIntrapara"><blockquote class="SCodeFlow"><p><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=generic-numbers.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._%252A%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">*</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-width%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-width</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-height%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-height</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="RktPn">)</span><span class="RktPn">)</span></p></blockquote></div><div class="SIntrapara">but it may be sped up by a factor of up to <span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=futures.html%23%2528def._%2528%2528lib._racket%252Ffuture..rkt%2529._processor-count%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">processor-count</a></span><span class="RktPn">)</span>
due to the use of <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=futures.html%23%2528def._%2528%2528lib._racket%252Ffuture..rkt%2529._future%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">future</a></span>s.</div></p><p><div class="SIntrapara"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"blur"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">5</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_19.png" alt="image" width="84.30078125" height="52.5625"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"more blur"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_20.png" alt="image" width="200.62890625" height="52.5625"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"much blur"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_21.png" alt="image" width="208.67578125" height="52.5625"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"horiz. blur"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktVal">0</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_22.png" alt="image" width="208.109375" height="52.5625"/></p></td></tr></table></blockquote></td></tr></table></div><div class="SIntrapara">The resulting pict has the same bounding box as <span class="RktVar">p</span>, so when
picts are automatically <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._clip%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">clip</a></span>ped (as in Scribble documents),
the pict should be <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Bounding_Box_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._inset%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">inset</a></span> by the blur radius.
</div><div class="SIntrapara"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Bounding_Box_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._inset%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">inset</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur%29%29" class="RktValLink" data-pltdoc="x">blur</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"more blur"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">40</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -10px; margin: -3px -3px -3px -3px;" src="pict_23.png" alt="image" width="220.62890625" height="72.5625"/></p></td></tr></table></blockquote></td></tr></table></div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._shadow))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow%29%29" class="RktValDef RktValLink" data-pltdoc="x">shadow</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">p</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">radius</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktVar">dx</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">dy</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-color</span><span class="hspace"> </span><span class="RktVar">shadow-color</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dx</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dy</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVar">dx</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">#f</span></td></tr></table></blockquote></div><div class="SIntrapara">Creates a shadow effect by superimposing <span class="RktVar">p</span> over a
blurred version of <span class="RktVar">p</span>. The shadow is offset from <span class="RktVar">p</span> by
(<span class="RktVar">dx</span>, <span class="RktVar">dy</span>) units.</div></p><p>If <span class="RktVar">color</span> is not <span class="RktVal">#f</span>, the foreground part is
<span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="stt"> </span><span class="RktVar">p</span><span class="stt"> </span><span class="RktVar">color</span><span class="RktPn">)</span>; otherwise it is just <span class="RktVar">p</span>. If
<span class="RktVar">shadow-color</span> is not <span class="RktVal">#f</span>, the shadow part is produced
by blurring <span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="stt"> </span><span class="RktVar">p</span><span class="stt"> </span><span class="RktVar">shadow-color</span><span class="RktPn">)</span>; otherwise it is
produced by blurring <span class="RktVar">p</span>.</p><p>The resulting pict has the same bounding box as <span class="RktVar">p</span>.</p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Bounding_Box_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._inset%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">inset</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow%29%29" class="RktValLink" data-pltdoc="x">shadow</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"shadow"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">50</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -21.7919921875px; margin: -3px -3px -3px -3px;" src="pict_24.png" alt="image" width="217.6015625" height="84.203125"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Bounding_Box_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._inset%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">inset</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow%29%29" class="RktValLink" data-pltdoc="x">shadow</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"shadow"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">50</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktVal">5</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -21.7919921875px; margin: -3px -3px -3px -3px;" src="pict_25.png" alt="image" width="217.6015625" height="84.203125"/></p></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Bounding_Box_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._inset%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">inset</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow%29%29" class="RktValLink" data-pltdoc="x">shadow</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"shadow"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">50</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktVal">5</span><span class="hspace"> </span><span class="RktVal">0</span><span class="hspace"> </span><span class="RktVal">2</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"white"</span><span class="hspace"> </span><span class="RktPn">#:shadow-color</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktVal">10</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: -21.7919921875px; margin: -3px -3px -3px -3px;" src="pict_26.png" alt="image" width="217.6015625" height="84.203125"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._blur-bitmap!))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blur-bitmap%21%29%29" class="RktValDef RktValLink" data-pltdoc="x">blur-bitmap!</a></span></span><span class="hspace"> </span><span class="RktVar">bitmap</span><span class="hspace"> </span><span class="RktVar">h-radius</span><span class="hspace"> </span>[<span class="RktVar">v-radius</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=void.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._void%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">void?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">bitmap</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=bitmap_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">bitmap%</a></span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">v-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVar">h-radius</span></td></tr></table></blockquote></div><div class="SIntrapara">Blurs <span class="RktVar">bitmap</span> using blur radii <span class="RktVar">h-radius</span> and
<span class="RktVar">v-radius</span>.</div></p><h5 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Tagged_Picts"">3.5.1<tt> </tt><a name="(part._.Tagged_.Picts)"></a>Tagged Picts</h5><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._tag-pict))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="RktValDef RktValLink" data-pltdoc="x">tag-pict</a></span></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">tag</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">tag</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=symbols.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._symbol%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">symbol?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Returns a pict like <span class="RktVar">p</span> that carries a symbolic tag. The tag
can be used with <span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="RktValLink" data-pltdoc="x">find-tag</a></span> to locate the pict.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._find-tag))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="RktValDef RktValLink" data-pltdoc="x">find-tag</a></span></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">find</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">find</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-path~3f%29%29" class="RktValLink" data-pltdoc="x">tag-path?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Locates a sub-pict of <span class="RktVar">p</span>. Returns a pict-path that can be used
with functions like <span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._lt-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">lt-find</a></span>, etc.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%252A%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let*</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="RktValLink" data-pltdoc="x">tag-pict</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="RktValLink" data-pltdoc="x">red</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">a</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">b</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="RktValLink" data-pltdoc="x">tag-pict</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blue%29%29" class="RktValLink" data-pltdoc="x">blue</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._filled-rectangle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">filled-rectangle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">b</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._vl-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">vl-append</a></span><span class="hspace"> </span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hb-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hb-append</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._blank%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">blank</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktSym">b</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pin-arrow-line%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pin-arrow-line</a></span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktVar">p</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="RktValLink" data-pltdoc="x">find-tag</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">a</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._rb-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">rb-find</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="RktValLink" data-pltdoc="x">find-tag</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">b</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._lt-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">lt-find</a></span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_27.png" alt="image" width="126" height="126"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._find-tag*))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%2A%29%29" class="RktValDef RktValLink" data-pltdoc="x">find-tag*</a></span></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">find</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._listof%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">listof</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict-path%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict-path?</a></span><span class="RktPn">)</span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">find</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-path~3f%29%29" class="RktValLink" data-pltdoc="x">tag-path?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Like <span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%29%29" class="RktValLink" data-pltdoc="x">find-tag</a></span>, but returns all pict-paths corresponding to
the given tag-path.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=let.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fletstx-scheme..rkt%2529._let%252A%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">let*</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">a</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="RktValLink" data-pltdoc="x">tag-pict</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._red%29%29" class="RktValLink" data-pltdoc="x">red</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._disk%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">disk</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">a</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">b</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=lambda.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._lambda%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">lambda</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-pict%29%29" class="RktValLink" data-pltdoc="x">tag-pict</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._blue%29%29" class="RktValLink" data-pltdoc="x">blue</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._filled-rectangle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">filled-rectangle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">b</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">as</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._vc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">vc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">a</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">a</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">a</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">bs</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._vc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">vc-append</a></span><span class="hspace"> </span><span class="RktVal">10</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">b</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">b</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym">b</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Combiners.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._hc-append%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">hc-append</a></span><span class="hspace"> </span><span class="RktSym">as</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._blank%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">blank</a></span><span class="hspace"> </span><span class="RktVal">60</span><span class="hspace"> </span><span class="RktVal">0</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktSym">bs</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=for.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._for%252A%252Ffold%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">for*/fold</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">p</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktPn">[</span><span class="RktSym">apath</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=sequences.html%23%2528def._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._in-list%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">in-list</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%2A%29%29" class="RktValLink" data-pltdoc="x">find-tag*</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">a</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">[</span><span class="RktSym">bpath</span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=sequences.html%23%2528def._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._in-list%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">in-list</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._find-tag%2A%29%29" class="RktValLink" data-pltdoc="x">find-tag*</a></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">b</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">]</span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pin-arrow-line%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pin-arrow-line</a></span><span class="hspace"> </span><span class="RktVal">4</span><span class="hspace"> </span><span class="RktVar">p</span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktSym">apath</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._rc-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">rc-find</a></span></td></tr><tr><td><span class="hspace"> </span><span class="hspace"> </span><span class="RktSym">bpath</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Finders.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._lc-find%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">lc-find</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr></table></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_28.png" alt="image" width="106" height="86"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._tag-path~3f))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._tag-path~3f%29%29" class="RktValDef RktValLink" data-pltdoc="x">tag-path?</a></span></span><span class="hspace"> </span><span class="RktVar">x</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=booleans.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._boolean%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">boolean?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">x</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._any%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">any/c</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Returns <span class="RktVal">#t</span> if <span class="RktVar">x</span> is a symbol or a non-empty list of
symbols, <span class="RktVal">#f</span> otherwise.</div></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Shadow_Frames"">3.6<tt> </tt><a name="(part._.Shadow_.Frames)"></a>Shadow Frames</h4><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._shadow-frame))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow-frame%29%29" class="RktValDef RktValLink" data-pltdoc="x">shadow-frame</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">pict</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktMeta">...</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:sep</span><span class="hspace"> </span><span class="RktVar">separation</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:margin</span><span class="hspace"> </span><span class="RktVar">margin</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:background-color</span><span class="hspace"> </span><span class="RktVar">bg-color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:frame-color</span><span class="hspace"> </span><span class="RktVar">frame-color</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:frame-line-width</span><span class="hspace"> </span><span class="RktVar">frame-line-width</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-side-length</span><span class="hspace"> </span><span class="RktVar">shadow-side-length</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-top-y-offset</span><span class="hspace"> </span><span class="RktVar">shadow-top-y-offset</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-bottom-y-offset</span><span class="hspace"> </span><span class="RktVar">shadow-bottom-y-offset</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-descent</span><span class="hspace"> </span><span class="RktVar">shadow-descent</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:shadow-alpha-factor</span><span class="hspace"> </span><span class="RktVar">shadow-alpha-factor</span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:blur</span><span class="hspace"> </span><span class="RktVar">blur-radius</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">separation</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">5</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">margin</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">20</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">bg-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">frame-color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=strings.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._string%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">string?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=color_.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">color%</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"gray"</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">frame-line-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktVal">#f</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">0</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-side-length</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-top-y-offset</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">10</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-bottom-y-offset</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-descent</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">40</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">shadow-alpha-factor</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">3/4</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">blur-radius</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._and%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">and/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._not%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">not/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._negative%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">negative?</a></span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">20</span></td></tr></table></blockquote></div><div class="SIntrapara">Surrounds the <span class="RktVar">pict</span>s with a rectangular frame that casts a
symmetric “curled paper” shadow.</div></p><p>The <span class="RktVar">pict</span>s are vertically appended with <span class="RktVar">separation</span>
space between them. They are placed on a rectangular background of
solid <span class="RktVar">bg-color</span> with <span class="RktVar">margin</span> space on all sides. A
frame of <span class="RktVar">frame-color</span> and <span class="RktVar">frame-line-width</span> is added
around the rectangle. The rectangle casts a shadow that extends
<span class="RktVar">shadow-side-length</span> to the left and right, starts
<span class="RktVar">shadow-top-y-offset</span> below the top of the rectangle and
extends to <span class="RktVar">shadow-bottom-y-offset</span> below the bottom of the
rectangle in the center and an additional <span class="RktVar">shadow-descent</span>
below that on the sides. The shadow is painted using a linear
gradient; <span class="RktVar">shadow-alpha-factor</span> determines its density at the
center. Finally, the shadow is blurred by <span class="RktVar">blur-radius</span>; all
previous measurements are pre-blur measurements.</p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._scale%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">scale</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._shadow-frame%29%29" class="RktValLink" data-pltdoc="x">shadow-frame</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"text in a nifty frame"</span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=pairs.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._null%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">null</a></span><span class="hspace"> </span><span class="RktVal">60</span><span class="RktPn">)</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">1/2</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -33.0px; margin: -3px -3px -3px -3px;" src="pict_29.png" alt="image" width="348.9453125" height="103.921875"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._arch))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._arch%29%29" class="RktValDef RktValLink" data-pltdoc="x">arch</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">outer-width</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">inner-width</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">solid-height</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktVar">leg-height</span><span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">outer-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">inner-width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">solid-height</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">leg-height</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Creates an arch.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Example:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Drawing_Adjusters.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._colorize%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">colorize</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._arch%29%29" class="RktValLink" data-pltdoc="x">arch</a></span><span class="hspace"> </span><span class="RktVal">100</span><span class="hspace"> </span><span class="RktVal">80</span><span class="hspace"> </span><span class="RktVal">20</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_30.png" alt="image" width="106" height="46"/></p></td></tr></table></blockquote></td></tr></table></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Drawing"">3.7<tt> </tt><a name="(part._.Drawing)"></a>Drawing</h4><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Jay McCarthy.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._draw-pict-centered))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._draw-pict-centered%29%29" class="RktValDef RktValLink" data-pltdoc="x">draw-pict-centered</a></span></span><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span><span class="RktVar">dc</span><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span><span class="RktVar">h</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=void.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._void%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">void?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">p</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">dc</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=Object_and_Class_Contracts.html%23%2528def._%2528%2528lib._racket%252Fclass..rkt%2529._is-a%7E3f%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">is-a?/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=draw&rel=dc___.html&version=6.1" class="RktValLink Sq" data-pltdoc="x">dc<%></a></span><span class="RktPn">)</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Draws the pict <span class="RktVar">p</span> on <span class="RktVar">dc</span> centered in a <span class="RktVar">w</span>x<span class="RktVar">h</span> rectangle.</div></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Additional_combinators"">3.8<tt> </tt><a name="(part._.Additional_combinators)"></a>Additional combinators</h4><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Asumu Takikawa.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._backdrop))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._backdrop%29%29" class="RktValDef RktValLink" data-pltdoc="x">backdrop</a></span></span><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>[<span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span>]<span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"white"</span></td></tr></table></blockquote></div><div class="SIntrapara">Adds a background highlighted with <span class="RktVar">color</span> to
<span class="RktVar">pict</span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._backdrop%29%29" class="RktValLink" data-pltdoc="x">backdrop</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"whitesmoke"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_31.png" alt="image" width="26" height="26"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._backdrop%29%29" class="RktValLink" data-pltdoc="x">backdrop</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"broccoli rabé"</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"PaleGreen"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -2.830078125px; margin: -3px -3px -3px -3px;" src="pict_32.png" alt="image" width="83.935546875" height="19.96875"/></p></td></tr></table></blockquote></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><table cellspacing="0" cellpadding="0" class="prototype RForeground"><tr><td><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict..rkt)._cross-out))"></a><span title="Provided from: unstable/gui/pict | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cross-out%29%29" class="RktValDef RktValLink" data-pltdoc="x">cross-out</a></span></span></td><td><span class="hspace"> </span></td><td><span class="RktVar">pict</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span>[</td><td><span class="RktPn">#:width</span><span class="hspace"> </span><span class="RktVar">width</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:style</span><span class="hspace"> </span><span class="RktVar">style</span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td></tr><tr><td><span class="hspace"> </span></td><td><span class="hspace"> </span></td><td><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVar">color</span>]<span class="RktPn">)</span></td><td><span class="hspace"> </span></td><td>→</td><td><span class="hspace"> </span></td><td><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">width</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">1</span></td></tr><tr><td><table cellspacing="0" cellpadding="0" class="argcontract"><tr><td><span class="hspace"> </span></td><td><span class="RktVar">style</span></td><td><span class="hspace"> </span></td><td>:</td><td><span class="hspace"> </span></td><td><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">transparent</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">solid</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">xor</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">hilite</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">dot</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">long-dash</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">short-dash</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">dot-dash</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">xor-dot</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">xor-long-dash</span></td></tr><tr><td><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">xor-short-dash</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">xor-dot-dash</span><span class="RktPn">)</span></td></tr></table></td><td><span class="hspace"> </span></td><td>=</td><td><span class="hspace"> </span></td><td><span class="RktVal">'</span><span class="RktVal">solid</span></td></tr></table></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">color</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._color%2Fc%29%29" class="RktValLink" data-pltdoc="x">color/c</a></span><span class="hspace"> </span>=<span class="hspace"> </span><span class="RktVal">"black"</span></td></tr></table></blockquote></div><div class="SIntrapara">Crosses out <span class="RktVar">pict</span> with two diagonal lines drawn with
the given line <span class="RktVar">width</span> and with the line <span class="RktVar">style</span>.
The lines are colored with <span class="RktVar">color</span>.</div></p><p><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><p>Examples:</p></td></tr><tr><td><blockquote class="SCodeFlow"><table cellspacing="0" cellpadding="0" class="RktBlk"><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cross-out%29%29" class="RktValLink" data-pltdoc="x">cross-out</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._circle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">circle</a></span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_33.png" alt="image" width="26" height="26"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cross-out%29%29" class="RktValLink" data-pltdoc="x">cross-out</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._rectangle%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">rectangle</a></span><span class="hspace"> </span><span class="RktVal">30</span><span class="hspace"> </span><span class="RktVal">20</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">#:width</span><span class="hspace"> </span><span class="RktVal">2</span><span class="hspace"> </span><span class="RktPn">#:style</span><span class="hspace"> </span><span class="RktVal">'</span><span class="RktVal">long-dash</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: 0px; margin: -3px -3px -3px -3px;" src="pict_34.png" alt="image" width="36" height="26"/></p></td></tr><tr><td><span class="stt">> </span><span class="RktPn">(</span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict..rkt%29._cross-out%29%29" class="RktValLink" data-pltdoc="x">cross-out</a></span><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Basic_Pict_Constructors.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._text%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">text</a></span><span class="hspace"> </span><span class="RktVal">"rapini"</span><span class="RktPn">)</span><span class="hspace"> </span><span class="RktPn">#:width</span><span class="hspace"> </span><span class="RktVal">3</span><span class="hspace"> </span><span class="RktPn">#:color</span><span class="hspace"> </span><span class="RktVal">"red"</span><span class="RktPn">)</span></td></tr><tr><td><p><img style="vertical-align: -0.0px; margin: -3px -3px -3px -3px;" src="pict_35.png" alt="image" width="40.177734375" height="19.96875"/></p></td></tr></table></blockquote></td></tr></table></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""Alignment"">3.9<tt> </tt><a name="(part._.Alignment)"></a><a name="(mod-path._unstable/gui/pict/align)"></a>Alignment</h4><p><table cellspacing="0" cellpadding="0" class="defmodule"><tr><td align="left"><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=require.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._require%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">require</a></span><span class="stt"> </span><a href="#%28mod-path._unstable%2Fgui%2Fpict%2Falign%29" class="RktModLink" data-pltdoc="x"><span class="RktSym">unstable/gui/pict/align</span></a><span class="RktPn">)</span></td><td align="right"><span class="RpackageSpec"><span class="Smaller"> package:</span> <span class="stt">unstable-lib</span></span></td></tr></table></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>value</p></div></div><p class="RForeground"><a name="(def._((lib._unstable/gui/pict/align..rkt)._align/c))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align%2Fc%29%29" class="RktValDef RktValLink" data-pltdoc="x">align/c</a></span></span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=contract-utilities.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._contract%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">contract?</a></span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">A contract for the values <span class="RktVal">'</span><span class="RktVal">(</span><span class="RktVal">lt</span><span class="stt"> </span><span class="RktVal">ct</span><span class="stt"> </span><span class="RktVal">rt</span><span class="stt"> </span><span class="RktVal">lc</span><span class="stt"> </span><span class="RktVal">cc</span><span class="stt"> </span><span class="RktVal">rc</span><span class="stt"> </span><span class="RktVal">lb</span><span class="stt"> </span><span class="RktVal">cb</span><span class="stt"> </span><span class="RktVal">rb</span><span class="RktVal">)</span>.
</div><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>value</p></div></div><p class="RForeground"><a name="(def._((lib._unstable/gui/pict/align..rkt)._halign/c))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValDef RktValLink" data-pltdoc="x">halign/c</a></span></span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=contract-utilities.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._contract%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">contract?</a></span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">A contract for the values <span class="RktVal">'</span><span class="RktVal">(</span><span class="RktVal">l</span><span class="stt"> </span><span class="RktVal">c</span><span class="stt"> </span><span class="RktVal">r</span><span class="RktVal">)</span>.
</div><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>value</p></div></div><p class="RForeground"><a name="(def._((lib._unstable/gui/pict/align..rkt)._valign/c))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValDef RktValLink" data-pltdoc="x">valign/c</a></span></span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=contract-utilities.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fprivate%252Fmisc..rkt%2529._contract%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">contract?</a></span></p></blockquote></td></tr></table></blockquote></div><div class="SIntrapara">A contract for the values <span class="RktVal">'</span><span class="RktVal">(</span><span class="RktVal">t</span><span class="stt"> </span><span class="RktVal">c</span><span class="stt"> </span><span class="RktVal">b</span><span class="RktVal">)</span>.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._align-~3eh))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3eh%29%29" class="RktValDef RktValLink" data-pltdoc="x">align->h</a></span></span><span class="hspace"> </span><span class="RktVar">a</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValLink" data-pltdoc="x">halign/c</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">a</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align%2Fc%29%29" class="RktValLink" data-pltdoc="x">align/c</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Extracts the <span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValLink" data-pltdoc="x">halign/c</a></span> part from <span class="RktVar">a</span>.
</div><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._align-~3ev))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3ev%29%29" class="RktValDef RktValLink" data-pltdoc="x">align->v</a></span></span><span class="hspace"> </span><span class="RktVar">a</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValLink" data-pltdoc="x">valign/c</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">a</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align%2Fc%29%29" class="RktValLink" data-pltdoc="x">align/c</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Extracts the <span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValLink" data-pltdoc="x">valign/c</a></span> part from <span class="RktVar">a</span>.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._align-~3efrac))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._align-~3efrac%29%29" class="RktValDef RktValLink" data-pltdoc="x">align->frac</a></span></span><span class="hspace"> </span><span class="RktVar">a</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">a</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=data-structure-contracts.html%23%2528def._%2528%2528lib._racket%252Fcontract%252Fbase..rkt%2529._or%252Fc%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">or/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValLink" data-pltdoc="x">halign/c</a></span><span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValLink" data-pltdoc="x">valign/c</a></span><span class="RktPn">)</span></td></tr></table></blockquote></div><div class="SIntrapara">Computes the fraction corresponding to an alignment where the top-left is <span class="RktVal">0</span>.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._halign-~3evcompose))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign-~3evcompose%29%29" class="RktValDef RktValLink" data-pltdoc="x">halign->vcompose</a></span></span><span class="hspace"> </span><span class="RktVar">ha</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=procedures.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._procedure%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">procedure?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">ha</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValLink" data-pltdoc="x">halign/c</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Returns the <span class="RktSym">h*-append</span> function for horizontal alignment.
</div><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._valign-~3ehcompose))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign-~3ehcompose%29%29" class="RktValDef RktValLink" data-pltdoc="x">valign->hcompose</a></span></span><span class="hspace"> </span><span class="RktVar">va</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=procedures.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._procedure%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">procedure?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">va</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValLink" data-pltdoc="x">valign/c</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Returns the <span class="RktSym">v*-append</span> function for vertical alignment.</div></p><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/align..rkt)._pin-over/align))"></a><span title="Provided from: unstable/gui/pict/align | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._pin-over%2Falign%29%29" class="RktValDef RktValLink" data-pltdoc="x">pin-over/align</a></span></span><span class="hspace"> </span><span class="RktVar">scene</span><span class="hspace"> </span><span class="RktVar">x</span><span class="hspace"> </span><span class="RktVar">y</span><span class="hspace"> </span><span class="RktVar">halign</span><span class="hspace"> </span><span class="RktVar">valign</span><span class="hspace"> </span><span class="RktVar">pict</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">scene</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">x</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">y</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">halign</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._halign%2Fc%29%29" class="RktValLink" data-pltdoc="x">halign/c</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">valign</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Falign..rkt%29._valign%2Fc%29%29" class="RktValLink" data-pltdoc="x">valign/c</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">pict</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Pins <span class="RktVar">pict</span> over <span class="RktVar">scene</span> centered at <span class="RktVar">x</span>x<span class="RktVar">y</span> aligned as specified in <span class="RktVar">halign</span> and <span class="RktVar">valign</span>.</div></p><h4 x-source-module="(lib "unstable/scribblings/gui/unstable-gui.scrbl")" x-part-tag=""PLT_Logos"">3.10<tt> </tt><a name="(part._.P.L.T_.Logos)"></a><a name="(mod-path._unstable/gui/pict/plt-logo)"></a>PLT Logos</h4><p><table cellspacing="0" cellpadding="0" class="defmodule"><tr><td align="left" colspan="2"><span class="hspace"> </span><span class="RktPn">(</span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=require.html%23%2528form._%2528%2528lib._racket%252Fprivate%252Fbase..rkt%2529._require%2529%2529&version=6.1" class="RktStxLink Sq" data-pltdoc="x">require</a></span><span class="stt"> </span><a href="#%28mod-path._unstable%2Fgui%2Fpict%2Fplt-logo%29" class="RktModLink" data-pltdoc="x"><span class="RktSym">unstable/gui/pict/plt-logo</span></a><span class="RktPn">)</span></td></tr><tr><td align="left"> </td><td align="right"><span class="RpackageSpec"><span class="Smaller"> package:</span> <span class="stt">unstable-lib</span></span></td></tr></table></p><blockquote class="refpara"><blockquote class="refcolumn"><blockquote class="refcontent"><p>The subsequent bindings were added by Jay McCarthy.</p></blockquote></blockquote></blockquote><p><div class="SIntrapara"><blockquote class="SVInsetFlow"><table cellspacing="0" cellpadding="0" class="boxed RBoxed"><tr><td><blockquote class="SubFlow"><div class="RBackgroundLabel SIEHidden"><div class="RBackgroundLabelInner"><p>procedure</p></div></div><p class="RForeground"><span class="RktPn">(</span><a name="(def._((lib._unstable/gui/pict/plt-logo..rkt)._make-plt-title-background))"></a><span title="Provided from: unstable/gui/pict/plt-logo | Package: unstable-lib"><span class="RktSym"><a href="#%28def._%28%28lib._unstable%2Fgui%2Fpict%2Fplt-logo..rkt%29._make-plt-title-background%29%29" class="RktValDef RktValLink" data-pltdoc="x">make-plt-title-background</a></span></span><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span><span class="RktVar">h</span><span class="RktPn">)</span><span class="hspace"> </span>→<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=pict&rel=Pict_Datatype.html%23%2528def._%2528%2528lib._pict%252Fmain..rkt%2529._pict%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">pict?</a></span></p></blockquote></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">w</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr><tr><td><span class="hspace"> </span><span class="RktVar">h</span><span class="hspace"> </span>:<span class="hspace"> </span><span class="RktSym"><a href="http://download.racket-lang.org/docs/6.1/html/local-redirect/index.html?doc=reference&rel=number-types.html%23%2528def._%2528%2528quote._%7E23%7E25kernel%2529._real%7E3f%2529%2529&version=6.1" class="RktValLink Sq" data-pltdoc="x">real?</a></span></td></tr></table></blockquote></div><div class="SIntrapara">Draws the PLT logo inside a <span class="RktVar">w</span>x<span class="RktVar">h</span> rectangle.</div></p><div class="navsetbottom"><span class="navleft"><form class="searchform"><input class="searchbox" style="color: #888;" type="text" value="...search manuals..." title="Enter a search string to search the manuals" onkeypress="return DoSearchKey(event, this, "6.1", "../");" onfocus="this.style.color="black"; this.style.textAlign="left"; if (this.value == "...search manuals...") this.value="";" onblur="if (this.value.match(/^ *$/)) { this.style.color="#888"; this.style.textAlign="center"; this.value="...search manuals..."; }"/></form> <a href="../index.html" title="up to the documentation top" data-pltdoc="x" onclick="return GotoPLTRoot("6.1");">top</a></span><span class="navright"> <a href="gui-prefs.html" title="backward to "2 Preferences"" data-pltdoc="x">← prev</a> <a href="index.html" title="up to "Unstable GUI: May Change Without Warning"" data-pltdoc="x">up</a> <a href="Slideshow_Presentations.html" title="forward to "4 Slideshow Presentations"" data-pltdoc="x">next →</a></span> </div></div></div><div id="contextindicator"> </div></body></html>
|