1
0
Fork 0

!28 TeXmacs图形编程

This commit is contained in:
沈浪熊猫儿 2023-04-17 15:05:31 +00:00
parent eeccb53303
commit df9c314fde
2 changed files with 803 additions and 1 deletions

View File

@ -0,0 +1,800 @@
<TeXmacs|2.1.2>
<style|<tuple|book|chinese|doc|old-spacing|old-dots|old-lengths>>
<\body>
\;
<doc-data|<doc-title|<TeXmacs><3E>曉耦蝻𣇉<E89DBB>>|<doc-author|<author-data|<author-name|瘝<><EFBFBD>羓𤨓<E7BE93><F0A4A893>>|<author-email|shenda@ustc.edu>>>|<doc-date|<date>>>
<section|蝞<><EFBFBD>>
<20>牐蛹<TeXmacs><3E><><EFBFBD>蝏滩<E89D8F><E6BBA9><EFBFBD>憭𡄯<E686AD><F0A184AF><EFBFBD>隞交<E99A9E>蝞𡑒器摮西器<E8A5BF><EFBFBD><E8BEB7><EFBFBD>蝟餃<E89D9F><E9A483><EFBFBD><name|Scheme>雿𨅯㦛<F0A885AF><E3A69B><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𡟺<EFBFBD><F0A19FBA><EFBFBD><EFBFBD>刻䌊撌梁<E6928C><E6A281>𡁜恥銝𠰴<E98A9D><EFBFBD>舅蝭<E88885><E89DAD>雿輻鍂Scheme<6D><65><TeXmacs>銝剔<E98A9D><E58994>𣂼㦛<F0A382BC><E3A69B><\footnote>
<href|http://sadhen.com/blog/2014/11/04/texmacs-graphics.html>
</footnote><3E>䔶蝙<E494B6>沒cheme<6D><65><TeXmacs>銝剔𤫇<E58994><F0A4AB87>瓲隞<E793B2><E99A9E>蝏𤘪<E89D8F>雿枏<E99BBF>蝟餃㦛<\footnote>
<href|http://sadhen.com/blog/2014/11/09/texmacs-graphics-struct.html>
</footnote>嚗<><EFBFBD>嗅㦛敶頂蝏毺<E89D8F><E6AFBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>銝芸之璁<E4B98B><E79281><EFBFBD><EFBFBD><E59CBE><EFBFBD>甈⊥<E79488>蝞㛖頂蝏<E9A082><E89D8F>批𧑐隞讠<E99A9E>雿𨅯㦛<F0A885AF><EFBFBD>撟嗆<E6929F>撱箇鍂<name|Scheme>蝻𣇉<E89DBB>雿𨅯㦛<F0A885AF><E3A69B><EFBFBD>蝵格<E89DB5>隞嗚<E99A9E><E5979A>
<20><EFBFBD>撖寡粉<E5AFA1><E7B289><EFBFBD><EFBFBD>箸𧋦閬<F0A78BA6><E996AC>撠望糓<E69C9B><E7B393><EFBFBD><TeXmacs><3E><><EFBFBD>砌蝙<E7A08C><EFBFBD><name|Scheme>霂剛<E99C82><E5899B><EFBFBD>抅蝖<E68A85><E89D96><EFBFBD><TeXmacs><3E><EFBFBD><E8A9A8><EFBFBD><EFBFBD>雿𨅯<E99BBF><F0A885AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>嚗峕<E59A97>撠賡<E692A0>隡帋蝙<E5B88B>刻䌊撌梁<E6928C>霂剛<E99C82><E5899B>鞱膩皜<E886A9><E79A9C>嚗峕<E59A97><E5B395><EFBFBD><EFBFBD><EFBFBD><EFBFBD><TeXmacs>摰䀹䲮<E480B9><E4B2AE><EFBFBD><EFB99D><EFBFBD>雿㮖<E99BBF>蝵柴<E89DB5><E69FB4>𡖂憭吔<E686AD><E59094><EFBFBD><E7A586><EFBFBD><E7AC94><EFBFBD><EFBFBD>条恣<E69DA1>沁ithub<\footnote>
<href|https://github.com/sadhen/articles-and-notes-by-TeXmacs>
</footnote>銝𠺪<E98A9D><F0A0BAAA><EFBFBD>雿輻鍂<E8BCBB><E98D82><TeXmacs><3E><>𧋦銝<F0A78BA6><TeXmacs-version><3E><>
<with|ornament-color|#efefef|<\ornamented>
<\remark>
<20><EFBFBD><E69BB9><EFBFBD>葉雿輻鍂鈭<E98D82><EFBFBD>譍漱鈭鍦<E988AD><name|Scheme>餈𤤿<E9A488><EFBFBD><EFBFBD><EFBFBD><E7AC94><EFBFBD>﹝銝剜<E98A9D><E5899C><EFBFBD>撖孵<E69296><EFBFBD><E79899>澆僎雿𨅯㦛嚗峕<E59A97>隞亥窈雿輻鍂<TeXmacs><3E><><EFBFBD><EFBFBD><E7AC94><EFBFBD><EFBFBD><EFB99D>
</remark>
</ornamented>>
<20><EFBFBD><E7A586><EFBFBD>漱鈭鍦<E988AD><EFBFBD><E99A9E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E98AB5>摰朞粉<E69C9E><E7B289>糓銝<E7B393>甈⊥<E79488><EFBFBD>銝𠰴<E98A9D>銝贝粉摰<E7B289><E691B0><EFBFBD><EFBFBD><EFBFBD>敶梶<E695B6>餈蹱糓銝滨緵摰䂿<E691B0>嚗峕<E59A97>隞仿<E99A9E>敶閧<E695B6>撠讛斐憯怠遣霈桐<E99C88><E6A190><EFBFBD><EFBFBD>霂鳴<E99C82>隞交䲮靘蹂<E99D98>蝚砌<E89D9A>甈⊿<E79488>霂餅𧋦<E9A485><F0A78BA6><EFBFBD><EFBFBD><E680A8>嗅翰<E59785><EFBFBD><E8A098>亦𠶖<E4BAA6><F0A0B696><EFBFBD><EFBFBD>
<section|<7C>箸𧋦<E7AEB8><EFBFBD>>
擐硋<E69390><EFBFBD><E59A97>霈暹<E99C88>隞砍歇蝏譍<E89D8F><EFBFBD><E996AB>嚗帋<E59A97><EFBFBD><TeXmacs><3E><>﹝摰鮋<E691B0>銝𠰴停<F0A0B0B4><EFBFBD><E887AD>蹂葡<name|Scheme>隞<><E99A9E>嚗屸<E59A97><EFBFBD>皜脫<E79A9C>撘閙<E69298><E99699><EFBFBD><EFBFBD>撌伐<E6928C>餈嗘<E9A488><EFBFBD><E99A9E>敺𦯀誑撅閧緵<E996A7><EFBFBD>隞祉<E99A9E>霈唳𧋦<E594B3><F0A78BA6><EFBFBD>撟蓥<E6929F><E893A5><EFBFBD><EFBFBD>鈭𥕢誨<F0A595A2><E8AAA8><EFBFBD>隞祉妍銋衤蛹<TeXmacs>
<name|Scheme><3E><>蛹鈭<E89BB9><EFBFBD><E8BAB9><EFBFBD><EFBFBD>睲賑撠<E8B391>銁<name|Guile>銝剛<E98A9D>銵𣬚<E98AB5><EFBFBD><E99A9E>蝘唬蛹<name|Guile>
<name|Scheme><3E><>
<20><EFBFBD><menu|insert|session|Scheme>嚗峕<E59A97>隞砍<E99A9E><E7A08D><EFBFBD><EFBFBD><name|Scheme>
<name|REPL><3E><><EFBFBD>隞砍<E99A9E>銋厩洵銝<E6B4B5>銝芸遆<E88AB8><E98186>
<\session|scheme|default>
<\input|Scheme] >
(define (plot l) (stree-\<gtr\>tree l))
;<3B><EFBFBD><E58A90>噼膠嚗<E886A0><E59A97>銋㕑<E98A8B>銝芸遆<E88AB8><E98186>
</input>
</session>
<><EFBFBD><name|Scheme>隞<><E99A9E>撖孵<E69296><E5ADB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>糓銝<E7B393>璉菜<E79289>嚗諹<E59A97><E8ABB9>𣬚<EFBFBD><scm|stree-\<gtr\>tree>撠望糓撠<E7B393><name|Guile>
<scheme><3E>𤏸蓮<F0A48FB8><EFBFBD><TeXmacs> <scheme><3E>𡢅<EFBFBD>隞乩噶<E4B9A9><EFBFBD><EFBFBD><EFBFBD>曄內<E69B84><E585A7><EFBFBD><EFBFBD><E68692><EFBFBD>睲賑<E79DB2>仿<EFBFBD><frac|1|2><3E><><EFBFBD><EFBFBD>刻”蝷箏<E89DB7><E7AE8F><EFBFBD><EFBFBD>撠望糓<scm|(frac
1 2)><3E><><EFBFBD><EFBFBD><EFBFBD><E88D94><EFBFBD><name|REPL>銝哨<E98A9D><E593A8>睲賑撠勗虾隞仿<E99A9E><EFBFBD>
<\session|scheme|default>
<\folded-io|Scheme] >
(plot `(frac 1 2)) ;<3B><EFBFBD><E39787>曉銁餈躰<E9A488>銝𠺪<E98A9D><F0A0BAAA><EFBFBD><E58A90>噼膠撠梯<E692A0>敺堒<E695BA>1/2
<|folded-io>
\;
</folded-io>
</session>
<subsection|<7C>蠘祗>
銝𢠃𢒰隞讠<E99A9E><E8AEA0><EFBFBD><EFBFBD><EFBFBD><verbatim|frac>摰鮋<E691B0>銝羓鍂鈭擧㺭摮行芋撘𧶏<E69298>銝钅𢒰<E99285>睲賑隞讠<E99A9E><E8AEA0>曉耦璅<E79285>銝讠<E98A9D><E8AEA0>蠘祗<E8A098><E7A597><EFBFBD><EFBFBD><EFBFBD><E588B8>堒枂<E5A092><EFBFBD>
<\big-table|<tabular|<tformat|<table|<row|<cell|>>>>><block*|<tformat|<cwith|1|-1|1|-1|cell-hyphen|c>|<table|<row|<\cell>
<20>蠘祗
</cell>|<\cell>
蝷箔<E89DB7>
</cell>|<\cell>
<20><EFBFBD>
</cell>>|<row|<\cell>
<markup|point>
</cell>|<\cell>
<verbatim|<code*|(point \P0\Q \P0\Q)>>
</cell>|<\cell>
<20><EFBFBD>(0,0)憭<><E686AD><EFBFBD>銝芰<E98A9D>
</cell>>|<row|<\cell>
<markup|line>
</cell>|<\cell>
<verbatim|<\code*>
(line (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>>
</cell>|<\cell>
(0,0)<math|\<rightarrow\>>(0,1)<math|\<rightarrow\>>(1,1)
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
</cell>>|<row|<\cell>
<markup|cline>
</cell>|<\cell>
<\code*>
(cline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>
</cell>|<\cell>
<math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)\<rightarrow\>(0,0)>
<20><><EFBFBD><EFBFBD>⊿𡡒<E28ABF><F0A1A192><EFBFBD><EFBFBD>
</cell>>|<row|<\cell>
<markup|spline>
</cell>|<\cell>
<\code*>
(spline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>
</cell>|<\cell>
<math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)>
<20><><EFBFBD><EFBFBD>⊥甅<E28AA5>⊥𤩅蝥<F0A4A985>
</cell>>|<row|<\cell>
<markup|cspline>
</cell>|<\cell>
<\code*>
(cspline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>
</cell>|<\cell>
<math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)\<rightarrow\>(0,0)>
<20><><EFBFBD><EFBFBD>⊿𡡒<E28ABF><F0A1A192><EFBFBD>⊥𤩅蝥<F0A4A985>
</cell>>|<row|<\cell>
<markup|arc>
</cell>|<\cell>
<\code*>
(arc (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>
</cell>|<\cell>
<><E9A488>銝厩<E98A9D><E58EA9><EFBFBD><EFBFBD><EFBFBD>
</cell>>|<row|<\cell>
<markup|carc>
</cell>|<\cell>
<\code*>
(carc (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
(point \P1\Q \P1\Q))
</code*>
</cell>|<\cell>
<><E9A488>銝厩<E98A9D><E58EA9><EFBFBD><EFBFBD>銝芸<E98A9D>
</cell>>|<row|<\cell>
<markup|text-at>
</cell>|<\cell>
<\code*>
(text-at (texmacs-markup)
(point \P0\Q \P0\Q))
</code*>
</cell>|<\cell>
餈嗘葵<E59798>蠘祗<E8A098><E7A597><EFBFBD><EFBFBD><E996AC><EFBFBD>銁鈭擧<E988AD>
靘𥕢<E99D98><EFBFBD>蝘滚銁<E6BB9A><EFBFBD>銝𦠜𦆮蝵<F0A686AE>
<20><EFBFBD><E69B84><EFBFBD>䲮瘜𤏪<E7989C><F0A48FAA>曉銁<E69B89><EFBFBD>
<20><><EFBFBD><E3A69B><EFBFBD><EFBFBD><E686AD>雿滨蔭<E6BBA8><EFBFBD>
(0,0)<29><>𢰧颲對<E9A2B2><E5B08D><EFBFBD><E597A5>湔䲮<E6B994><E4B2AE>
銝羓<E98A9D>撖寧妍頧湔迤憟質<E6869F><E8B3AA><EFBFBD>(0,0)
</cell>>>>>>
\;
</big-table>
<20><EFBFBD>嚗峕<E59A97>隞砍銁餈嗘<E9A488><E59798>蠘祗<\footnote>
餈嗘<E9A488><E59798>蠘祗<E8A098><E7A597><EFBFBD><E8AAA8><EFBFBD><EFBFBD>啣虾隞亙銁<verbatim|src/Graphics/Types/>銝𧢲𪄳<F0A7A2B2><F0AA84B3>
</footnote><3E><>抅蝖<E68A85>銝𦠜<E98A9D>撱箔<E692B1><E7AE94><EFBFBD><E69AB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>蝝𨬭<E89D9D><F0A8ACAD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>蝥踵挾嚗𣬚畆敶<E695B6><EFBCB7><EFBFBD><EFBFBD>
<\session|scheme|default>
<\input|Scheme] >
(define (point x y)
\ \ ; number-\<gtr\>string<6E><67><EFBFBD><EFBFBD>冽糓撠<E7B393><E692A0><EFBFBD><EFBFBD><E480B9><EFBFBD>﹝銝剛”蝷箸㺭<E7AEB8><EFBFBD>摮㛖泵銝<E6B3B5>
\ \ `(point ,(number-\<gtr\>string x) ,(number-\<gtr\>string y)))
</input>
<\input|Scheme] >
(define (point.x point)
\ \ (string-\<gtr\>number (list-ref point 1)))
</input>
<\input|Scheme] >
(define (point.y point)
\ \ (string-\<gtr\>number (list-ref point 2)))
</input>
<\input|Scheme] >
(define (line . points)
\ \ (cond ((nlist? points) `())
\ \ \ \ \ \ \ \ ((== points '()) `())
\ \ \ \ \ \ \ \ (else `(line ,@points))))
</input>
<\input|Scheme] >
(define (rectangle leftdown rightup)
\ \ (let ((leftup (point (point.x leftdown) (point.y rightup)))
\ \ \ \ \ \ \ \ (rightdown (point (point.x rightup) (point.y
leftdown))))
\ \ \ \ `(cline ,leftdown ,leftup ,rightup ,rightdown)))
</input>
<\input|Scheme] >
(define (circle center radius)
\ \ (let ((p1 (point (- (point.x center) radius) (point.y center)))
\ \ \ \ \ \ \ \ (p2 (point (point.x center) (+ (point.y center)
radius)))
\ \ \ \ \ \ \ \ (p3 (point (+ (point.x center) radius) (point.y
center))))
\ \ \ \ `(carc ,p1 ,p2 ,p3)))
</input>
</session>
<20><><verbatim|plot>蝏睃<E89D8F><E79D83><EFBFBD><E5AB98>畆敶<E695B6><EFBCB7><EFBFBD><EFBFBD>
<\session|scheme|default>
<\unfolded-io|Scheme] >
(plot (point 0 0))
<|unfolded-io>
<text|<point|0|0>>
</unfolded-io>
<\unfolded-io|Scheme] >
(plot (rectangle (point 0 0) (point 1 1)))
<|unfolded-io>
<text|<cline|<point|0|0>|<point|0|1>|<point|1|1>|<point|1|0>>>
</unfolded-io>
<\unfolded-io|Scheme] >
(plot (circle (point 0 0) 1))
<|unfolded-io>
<text|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>
</unfolded-io>
</session>
<subsection|<7C>滨熊<E6BBA8><EFBFBD>撅墧<E69285><E5A2A7>>
雿輻鍂<markup|with><3E>蠘祗<E8A098>臭誑蝏<E8AA91><TeXmacs>撖寡情<E5AFA1><E68385><EFBFBD><EFBFBD><EFBFBD><EFBFBD>撅墧<E69285><EFBFBD><E689BC><EFBFBD><EFBFBD>
<\session|scheme|default>
<\unfolded-io|Scheme] >
(plot `(with color "red" fill-color "#eeeeee" ,(circle (point 0 0) 1)))
<|unfolded-io>
<text|<with|color|red|fill-color|#eeeeee|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>>
</unfolded-io>
<\unfolded-io|Scheme] >
(plot `(with arrow-begin "\<less\>gtr\<gtr\>" dash-style "11100"
<>(line (point 0 1) (point 0 0) (point 1 1))))
<|unfolded-io>
<text|<with|arrow-begin|\<gtr\>|dash-style|11100|<line|<point|0|1>|<point|0|0>|<point|1|1>>>>
</unfolded-io>
<\unfolded-io|Scheme] >
(plot `(with point-style "star" ,(point 0 0)))
<|unfolded-io>
<text|<with|point-style|star|<point|0|0>>>
</unfolded-io>
</session>
<20>寞旿皞鞟<E79A9E><\footnote>
<verbatim|TeXmacs/progs/graphics/graphics-drd.scm>
</footnote>銝剔<E98A9D>摰帋<E691B0><EFBFBD>虾隞交<E99A9E><EFBFBD><E9A48C><EFBFBD>
<big-table|<block*|<tformat|<cwith|1|-1|1|-1|cell-hyphen|c>|<cwith|2|2|2|2|cell-row-span|2>|<cwith|2|2|2|2|cell-col-span|1>|<cwith|8|8|2|2|cell-row-span|2>|<cwith|8|8|2|2|cell-col-span|1>|<cwith|1|-1|1|-1|cell-vcorrect|b>|<table|<row|<\cell>
撅墧<E69285><E5A2A7>
</cell>|<\cell>
<20><>
</cell>|<\cell>
雿𦦵鍂
</cell>>|<row|<\cell>
color
</cell>|<\cell>
\;
憸𡏭𠧧嚗<F0A0A7A7><E59A97><verbatim|"red">嚗<><verbatim|"#eeeee">
</cell>|<\cell>
撖寡情<E5AFA1>祈澈<E7A588><E6BE88><EFBFBD><EFBFBD><EFBFBD>
</cell>>|<row|<\cell>
fill-color
</cell>|<\cell>
\;
</cell>|<\cell>
憛怠<E6869B><E680A0><EFBFBD>
</cell>>|<row|<\cell>
magnify
</cell>|<\cell>
瘚桃<E7989A><E6A183><EFBFBD><EFBFBD><verbatim|"1.1">
</cell>|<\cell>
<20>曉之<E69B89>𣇉憬撠讐<E692A0><E8AE90><EFBFBD>
</cell>>|<row|<\cell>
opacity
</cell>|<\cell>
<20><EFBFBD>瘥䈑<E798A5><EFBFBD><verbatim|"100%">
</cell>|<\cell>
<20>𤩺<EFBFBD><EFBFBD>
</cell>>|<row|<\cell>
point-style
</cell>|<\cell>
<verbatim|default,round,square,diamond,triangle,star>
</cell>|<\cell>
<20><EFBFBD><E5AFA7><EFBFBD>
</cell>>|<row|<\cell>
dash-style
</cell>|<\cell>
<verbatim|"10","11100","1111010">
</cell>|<\cell>
蝥輻<E89DA5><E8BCBB><EFBFBD>
</cell>>|<row|<\cell>
arrow-begin
</cell>|<\cell>
<verbatim|"\<less\>less\<gtr\>","\<less\>less\<gtr\>\|","\<less\>less\<gtr\>\<less\>less\<gtr\>",>
<verbatim|"\<less\>gtr\<gtr\>","\|\<less\>gtr\<gtr\>","\<less\>gtr\<gtr\>\<less\>gtr\<gtr\>">
\;
</cell>|<\cell>
<>憪见<E686AA><E8A781><EFBFBD>悌憭<E6828C>
</cell>>|<row|<\cell>
arrow-end
</cell>|<\cell>
\;
</cell>|<\cell>
蝏𤘪<E89D8F><EFBFBD><E686AD>蝞剖仍
</cell>>>>>|<7C><EFBFBD>撖寡情撅墧<E69285><E5A2A7>>
<20><EFBFBD>銵冽聢銝剔<E98A9D><E58994><EFBFBD>銝滚<E98A9D>憭曹<E686AD><E69BB9><EFBFBD>嚗峕綫<E5B395><EFBFBD><EFBFBD><menu|help|manual|<7C><>蔭雿𨅯㦛撌亙<E6928C>>餈嗵<E9A488>銝剜甅撘誩<E69298><E8AAA9>扯祕餈啗<E9A488><EFBFBD><E98A9D><EFBFBD><EFBFBD><EFBFBD>
銝钅𢒰嚗<F0A292B0><E59A97>銋劐<E98A8B>鈭𥕦遆<F0A595A6><EFBFBD><E5A086>嫣噶<E5ABA3>睲賑<E79DB2>滨熊銝𠹺<E98A9D><F0A0B9BA><EFBFBD><EFBFBD><EFBFBD><E5AB98><EFBFBD><EFBFBD>𣬚畆敶<E695B6><EFBCB9><EFBFBD><E79195><EFBFBD><EFBFBD><EFBFBD><EFBFBD>糓憸𡏭𠧧嚗峕<E59A97>隞砍<E99A9E><EFBFBD><verbatim|fill><3E>亥挽蝵株<E89DB5><E6A0AA>航𠧧嚗<F0A0A7A7><E59A97><EFBFBD><verbatim|colorize><3E>亥挽蝵桀<E89DB5><E6A180>航𠧧<E888AA><F0A0A7A7><EFBFBD>蝟嗵<E89D9F><E597B5><EFBFBD><E596AE>臬銁<E887AC>曉耦撖寡情<E5AFA1><EFBFBD><E6BB9A><EFBFBD><markup|with><3E><>倌隞亙<E99A9E><E4BA99><EFBFBD><E8A9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><em|雿<>糓憒<E7B393><E68692><EFBFBD>睲賑撖孵<E69296><EFBFBD>銝芸笆鞊<E99E8A><E288AA><EFBFBD>霈詨<E99C88><EFBFBD><markup|with><3E><>倌隡𡁏<E99AA1>擧甅<E693A7><EFBFBD>>
餈嗘葵<E59798><EFBFBD><E6A185>臭誑<E887AD>典遆<E585B8><E98186><verbatim|merge-with>閫<><E996AB><EFBFBD>𡖂憭𡝗<E686AD>隞砍<E99A9E><EFBFBD><verbatim|decorate><3E>亥挽蝵桐遙<E6A190><EFBFBD><E8AAA9><EFBFBD>
<\session|scheme|default>
<\input|Scheme] >
(define (merge-with l par val subs)
\ \ (cond ((== (length l) 0) '())
\ \ \ \ \ \ \ \ ((== (length l) 1) (append (list par val) l))
\ \ \ \ \ \ \ \ ((== par (car l))
\ \ \ \ \ \ \ \ \ (if subs (set-car! (cdr l) val)) l)
\ \ \ \ \ \ \ \ (else\
\ \ \ \ \ \ \ \ \ \ (let ((t (list (car l) (cadr l))))
\ \ \ \ \ \ \ \ \ \ \ \ (append t (merge-with (cddr l) par val
subs))))))
</input>
<\input|Scheme] >
(define (decorate l par val subs)
\ \ (cond ((or (nlist? l) (null? l)) '())
\ \ \ \ \ \ \ \ ((list? (car l))\
\ \ \ \ \ \ \ \ \ (append (list (decorate (car l) par val subs))\
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (decorate (cdr l) par val subs)))
\ \ \ \ \ \ \ \ ((== (car l) 'with)\
\ \ \ \ \ \ \ \ \ (append '(with) (merge-with (cdr l) par val subs)))
\ \ \ \ \ \ \ \ ((or (== (car l) 'line) (== (car l) 'cline) (== (car l)
'carc) (== (car l) 'point) (== (car l) 'graphics))
\ \ \ \ \ \ \ \ \ (append '(with) (merge-with (list l) par val
subs)))))
</input>
<\input|Scheme] >
(define (fill fig bc)
\ \ (decorate fig "fill-color" bc #f))
</input>
<\input|Scheme] >
(define (force-fill fig bc)
\ \ (decorate fig "fill-color" bc #t))
</input>
<\input|Scheme] >
(define (colorize fig fc)
\ \ (decorate fig "color" fc #f))
</input>
<\input|Scheme] >
(define (force-colorize fig fc)
\ \ (decorate fig "color" fc #t))
</input>
<\input|Scheme] >
(define (arrow-begin fig style)
\ \ (decorate fig "arrow-begin" style #f))
</input>
<\input|Scheme] >
(define (force-arrow-begin fig style)
\ \ (decorate fig "arrow-begin" style #t))
</input>
<\input|Scheme] >
(define (arrow-end fig style)
\ \ (decorate fig "arrow-end" style #f))
</input>
<\input|Scheme] >
(define (force-arrow-end fig style)
\ \ (decorate fig "arrow-end" style #t))
</input>
<\input|Scheme] >
(define (dash-style fig style)
\ \ (decorate fig "dash-style" style #f))
</input>
<\input|Scheme] >
(define (force-dash-style fig style)
\ \ (decorate fig "dash-style" style #t))
</input>
<\unfolded-io|Scheme] >
(plot (dash-style (fill (colorize (circle (point 0 0) 1) "blue")
"green") "1111010"))
<|unfolded-io>
<text|<with|color|blue|fill-color|green|dash-style|1111010|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>>
</unfolded-io>
<\unfolded-io|Scheme] >
(plot (arrow-end (line (point -2 0) (point 0 0) (point 1 1))
"\|\<less\>gtr\<gtr\>"))
<|unfolded-io>
<text|<with|arrow-end|\|\<gtr\>|<line|<point|-2|0>|<point|0|0>|<point|1|1>>>>
</unfolded-io>
</session>
<subsection|<7C><><EFBFBD><EFBFBD><EFBFBD>>
<20>齿<EFBFBD><E9BDBF><EFBFBD>雿靝<E99BBF><E99D9D><EFBFBD><E6A998>睲賑<E79DB2>賢蘨<E8B3A2><EFBFBD><E887AC>曉耦撖寡情<E5AFA1><E68385><EFBFBD><EFBFBD>箸䔉<TeXmacs><3E><><EFBFBD>烐𦆮<E78390><F0A686AE><scheme>餈𤤿<E9A488><F0A4A4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>嚗峕<E59A97>隞祈<E99A9E>撖笔<E69296><E7AC94><EFBFBD><E99E89><EFBFBD><EFBFBD><EFBFBD>孵停<E5ADB5><EFBFBD><EFBFBD><EFBFBD>芰瑪<E88AB0><E791AA><EFBFBD><EFBFBD><E5ABA3><EFBFBD><EFBFBD><EFBFBD><E39787>劐葉餈嗘葵<E59798><EFBFBD><EFBFBD>虾隞亦<E99A9E><E4BAA6>啣椰颲寧<E9A2B2><EFBFBD>憭扳⏛蝛箇蒾<E7AE87><E892BE>銁銝𠹺<E98A9D><F0A0B9BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>蝞剖仍<E58996><EFBFBD><E69AB9><EFBFBD><E6BBA9><EFBFBD><E4B9A9><EFBFBD>left<66>𠬍<EFBFBD>雿惩虾隞交<E99A9E><E4BAA4>啣𧑐<E595A3><EFBFBD>餈嗘<E9A488>蝛箇蒾<E7AE87><E892BE>
left<with|arrow-end|\|\<gtr\>|<line|<point|-2|0>|<point|0|0>|<point|1|1>>>
<20>望迨<E69C9B>臭誑<E887AD>仿<EFBFBD><EFBFBD>銁瘝⊥<E7989D><E28AA5><EFBFBD><E9A483><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><TeXmacs>隡𡁜<E99AA1><F0A1819C><EFBFBD>銝芸𢆡<E88AB8><F0A286A1>之撠讐<E692A0><E8AE90><EFBFBD>嚗䔶誑<E494B6><E8AA91><EFBFBD><EFBFBD>曉耦<E69B89><E880A6>偕撖詻<E69296><E8A9BB>
<20>齿<EFBFBD>銝剔<E98A9D><E58994><EFBFBD><E69B89>賢蘨<E8B3A2><EFBFBD>銝芸㦛敶笆鞊銁暺䁅恕<E48185><EFBFBD>銝羓<E98A9D><E7BE93>曄內<E69B84><E585A7><EFBFBD><EFBFBD>亦𤫇撣<F0A4AB87><E692A3><EFBFBD>𠬍<EFBFBD><F0A0AC8D>睲賑撠勗虾隞亙<E99A9E>憭帋葵<E5B88B>曉耦撖寡情<E5AFA1><EFBFBD><E683A9><EFBFBD><EFBFBD>銝芰𤫇撣<F0A4AB87><E692A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E69C9E><EFBFBD><EFBFBD>撌亦<E6928C><\footnote>
<20><EFBFBD>霂瑕<E99C82><E79195><EFBFBD><EFBFBD>敶蓥葉<E893A5><E89189><EFBFBD>韐游ㄚ
</footnote>嚗<>虾隞乩蜀<E4B9A9><EFBFBD>銝芯<E98A9D>摮琜<E691AE>
<\session|scheme|default>
<\input|Scheme] >
(define (graphics . objects)
\ \ (cond ((nlist? objects) '(graphics "" ""))
\ \ \ \ \ \ \ \ ((== objects '()) '(graphics "" ""))
\ \ \ \ \ \ \ \ (else `(graphics "" ,@objects))))
</input>
<\input|Scheme] >
(define (geometry fig x y)
\ \ (decorate fig "gr-geometry" `(tuple "geometry" ,x ,y "center") #f))
</input>
<\unfolded-io|Scheme] >
(plot (geometry (graphics\
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -2 -1) (point
1 1)) "blue")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -1 -1) (point
2 1)) "red")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (dash-style (line (point 1 -1) (point
1 1)) "11100"))
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ "5cm" "3cm"))
<|unfolded-io>
<text|<with|gr-geometry|<tuple|geometry|5cm|3cm|center>|<graphics||<with|fill-color|blue|<cline|<point|-2|-1>|<point|-2|1>|<point|1|1>|<point|1|-1>>>|<with|fill-color|red|<cline|<point|-1|-1>|<point|-1|1>|<point|2|1>|<point|2|-1>>>|<with|dash-style|11100|<line|<point|1|-1>|<point|1|1>>>>>>
</unfolded-io>
</session>
<20>啣銁<E595A3>睲賑撠梯<E692A0>憭毺鍂<E6AFBA>賣㺭<verbatim|graphics>嚗<><E59A97>憭帋葵<E5B88B>曉耦撖寡情<E5AFA1><EFBFBD><E683A9><EFBFBD><EFBFBD>銝芰𤫇撣<F0A4AB87><E692A3>嚗諹<E59A97><EFBFBD><EFBFBD>㦛敶笆鞊∠<E99E8A>憿箏<E686BF><E7AE8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>憿箏<E686BF><EFBFBD><E59A97><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E996AC><EFBFBD><EFBFBD><E6BBA9><EFBFBD><EFBFBD><EFBFBD>銝𠰴㦛<F0A0B0B4><E3A69B>蝷綽<E89DB7><E7B6BD>𡁶瑪銵函內<E587BD><E585A7><EFBFBD>肽𠧧<E882BD>拙耦<E68B99><E880A6>𢰧颲寧<E9A2B2>嚗𣬚緵<F0A3AC9A>刻◤蝥𠧧<EFBCBA>拙耦閬<E880A6><E996AC><EFBFBD><E988AD><EFBFBD>
<20><><verbatim|geometry><3E>賣㺭<E8B3A3>臭誑<E887AD><EFBFBD><E689B9><EFBFBD><E9A483><EFBFBD>之撠譌<E692A0><E8AD8C><EFBFBD>𧶏<EFBFBD><F0A7B68F>齿<EFBFBD>銝剝<E98A9D>瘝⊥<E7989D>霈刻捏<E588BB>踹漲<E8B8B9><EFBFBD>餈嗘<E9A488><E59798><EFBFBD><E588A0><EFBFBD><EFBFBD>摰鮋<E691B0>銝𠰴<E98A9D><F0A0B0B4><EFBFBD><EFBFBD><E89189><EFBFBD><EFBFBD><E58EA9><EFBFBD><E99E89><EFBFBD><EFBFBD>雿漤<E99BBF><E6BCA4><EFBFBD><verbatim|cm><3E><><EFBFBD>隞亙銁<E4BA99><E98A81><EFBFBD><EFBFBD><EFBFBD><E9A483><EFBFBD>捐摨血<E691A8>擃睃漲<E79D83><E6BCB2>𧒄<EFBFBD><EFBFBD><E8BEB7>睲賑<E79DB2><E8B391><EFBFBD><E996AC><EFBFBD><verbatim|cm>餈嗘葵<E59798><EFBFBD><EFBFBD><E59A97>銝箄<E98A9D><E7AE84>𣬚<EFBFBD>暺䁅恕<E48185><EFBFBD>銝齿糓<verbatim|cm><3E><>
<20><EFBFBD>嚗峕<E59A97>隞祈<E99A9E><E7A588>臭誑<E887AD><EFBFBD><E88ABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E888AA><EFBFBD><E8AAA9><EFBFBD><E9A483>典凒<E585B8><E58792><EFBFBD><EFBFBD><E8B3AC>
<\session|scheme|default>
<\input|Scheme] >
(define (crop fig)
\ \ (decorate fig "gr-auto-crop" "true" #f))
</input>
<\unfolded-io|Scheme] >
(plot (crop (graphics\
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -2 -1) (point
1 1)) "blue")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -1 -1) (point
2 1)) "red")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (dash-style (line (point 1 -1) (point
1 1)) "11100"))))
<|unfolded-io>
<text|<with|gr-auto-crop|true|<graphics||<with|fill-color|blue|<cline|<point|-2|-1>|<point|-2|1>|<point|1|1>|<point|1|-1>>>|<with|fill-color|red|<cline|<point|-1|-1>|<point|-1|1>|<point|2|1>|<point|2|-1>>>|<with|dash-style|11100|<line|<point|1|-1>|<point|1|1>>>>>>
</unfolded-io>
</session>
<20>劐葉<E58A90><E89189>餈𤑳<E9A488>餈嗘舅銝芯<E98A9D><E88AAF><EFBFBD><E7919E><EFBFBD>嚗䔶<E59A97>撠勗虾隞亦<E99A9E><E4BAA6>啣躹<E595A3><EFBFBD><E68092>
<section|<7C><EFBFBD>>
餈嗘<E9A488>蝡牐蜓閬<E89C93><EFBFBD><EFBFBD><E585B8><EFBFBD><EFBFBD>銋匧末<E58CA7><E69CAB><EFBFBD><EFBFBD>蝏睃<E89D8F><E79D83><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㕑閎<E39591><E9968E>㦛獢<E3A69B><E78DA2><EFBFBD>
<subsection|<7C><EFBFBD><E7A983>喳㦛獢<E3A69B>>
<><E692A0><EFBFBD>蛹R<E89BB9><52><EFBFBD><EFBFBD>盯蝑匧<E89D91>嚗𣬚<E59A97><F0A3AC9A>𡒊鍂<F0A1928A>渡瑪撠<E791AA><E692A0>銝芰<E98A9D><E88AB0><EFBFBD><EFBFBD>銝支舅<E694AF><EFBFBD><E8B289><EFBFBD>
<subsection|<7C><><EFBFBD><EFBFBD>>
<><E692A0><EFBFBD>蛹<math|R<rsub|1>><3E><><EFBFBD><EFBFBD>盯蝑匧<E89D91>嚗𣬚<E59A97><F0A3AC9A>𦒘誑瘥譍葵蝑匧<E89D91><E58CA7>嫣蛹<E5ABA3><E89BB9><EFBFBD>嚗䔶誑<math|R<rsub|2>>銝箏<E98A9D><EFBFBD>𤫇n銝芸<E98A9D><E88AB8><EFBFBD>
<subsection|<7C>曉耦<E69B89><EFBFBD>>
<subsection|敹<><E695B9>㦛獢<E3A69B>>
<subsection|<7C><><EFBFBD><EFBFBD>>
<subsubsection|<7C><>>
<subsubsection|Koch snowflake<\footnote>
<href|https://en.wikipedia.org/wiki/Koch_snowflake>
</footnote>>
<subsubsection|Sierpinski carpet<\footnote>
<href|https://en.wikipedia.org/wiki/Sierpinski_carpet>
</footnote> and triangle<\footnote>
<href|https://en.wikipedia.org/wiki/Sierpinski_triangle>
</footnote>>
<subsubsection|Mandelbrot set<\footnote>
<href|https://en.wikipedia.org/wiki/Mandelbrot_set>
</footnote>>
<section|<7C><><EFBFBD>>
<subsection|撠讛斐憯<E69690>>
<subsubsection|撖寞𧋦<E5AF9E><F0A78BA6><EFBFBD><EFBFBD><EFBFBD><scheme>銵刻噢撘𤩺<E69298><F0A4A9BA><EFBFBD>>
敶㮖<E695B6><E3AE96>𡁜<EFBFBD><F0A1819C><EFBFBD>颲穃膥<E7A983><EFBFBD><E69E8F><EFBFBD><E7A586><EFBFBD><EFBFBD><E68692>雿㰘歲<E3B098>唬葉<E594AC><EFBFBD><E6B8A1><EFBFBD><E99EB1><EFBFBD>銵䔶誨<E494B6><E8AAA8><EFBFBD><EFBFBD><E695BA><EFBFBD><EFBFBD>隡𡁜枂<F0A1819C><EFBFBD><E8BEB7>牐蛹敶枏<E695B6><E69E8F><EFBFBD><EFBFBD><E8AAA8><EFBFBD><EFBFBD>匧虾<E58CA7><EFBFBD>韏碶<E99F8F><E7A2B6>齿<EFBFBD>銝剖歇蝏誩枂<E8AAA9><EFBFBD><E59597><EFBFBD><EFBFBD><EFBFBD><E595A3><EFBFBD><E3979B><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>齿<EFBFBD>銝剜<E98A9D><E5899C><EFBFBD><EFBFBD><E99A9E><EFBFBD><EFBFBD>銵䔶<E98AB5><E494B6><EFBFBD>銝芣<E98A9D>雿𨅯<E99BBF><F0A885AF><EFBFBD><EFBFBD><EFBFBD>𧼮虜蝜<E8999C><E89D9C><EFBFBD><EFBFBD><EFBFBD><E98DB3><menu|撌亙<E6928C>|撘<><E69298>𤏸<EFBFBD><F0A48FB8><EFBFBD>>嚗<><E59A97><EFBFBD><EFBFBD>蝵桐<E89DB5><E6A190><EFBFBD><E7A586><EFBFBD><EFBFBD><EFBFBD><scheme>餈𤤿<E9A488>銝哨<E98A9D><E593A8><EFBFBD><menu|Developer|Export
Sessions...>撠勗虾隞亙紡<E4BA99><EFBFBD><E7AEB8><EFBFBD><EFBFBD><E99A9E><EFBFBD><EFBFBD>銝芣<E98A9D><EFBFBD><verbatim|code.scm>銝准<E98A9D><E58786><EFBFBD><EFBFBD><EFBFBD><menu|頧砍<E9A0A7>|<7C><EFBFBD>憸䀹<E686B8><EFBFBD>>嚗<><E59A97><EFBFBD><EFBFBD><EFBFBD><scheme>餈𤤿<E9A488>撟嗉<E6929F><E59789><EFBFBD><scm|(load
"/path/to/code.scm")>嚗<><E59A97>頧虫<E9A0A7><E899AB>𠬍<EFBFBD><F0A0AC8D><EFBFBD><EFBFBD><E89189><EFBFBD><EFBFBD><EFBFBD><E99A9E>撠梢<E692A0>鋡怠<E98BA1>頧賭<E9A0A7><E8B3AD><EFBFBD>
<subsubsection|<7C><><EFBFBD>撌亦<E6928C>>
<subsection|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>
<\itemize>
<item>A TeXmacs graphics tutorial<\footnote>
<href|http://texmacs.org/tmweb/documents/tutorials/TeXmacs-graphics-tutorial.pdf>
</footnote>, by Henri Lesourd.
<item>Turtle schemes<\footnote>
<href|http://www.texmacs.org/tmweb/miguel/snippet-logo.en.html>
</footnote>, by Ana Ca鎴zares Garc燰 and Miguel de Benito Delgado
<item>Fractal turtles<\footnote>
<href|http://www.texmacs.org/tmweb/miguel/snippet-fractal-1.en.html>
</footnote>, by Ana Ca鎴zares Garc燰 and Miguel de Benito Delgado
</itemize>
\;
</body>
<\initial>
<\collection>
<associate|src-style|scheme>
</collection>
</initial>
<\references>
<\collection>
<associate|auto-1|<tuple|1|3>>
<associate|auto-10|<tuple|3|7>>
<associate|auto-11|<tuple|3.1|7>>
<associate|auto-12|<tuple|3.2|7>>
<associate|auto-13|<tuple|3.3|7>>
<associate|auto-14|<tuple|3.4|7>>
<associate|auto-15|<tuple|3.5|7>>
<associate|auto-16|<tuple|3.5.1|7>>
<associate|auto-17|<tuple|3.5.2|7>>
<associate|auto-18|<tuple|3.5.3|?>>
<associate|auto-19|<tuple|3.5.4|?>>
<associate|auto-2|<tuple|2|3>>
<associate|auto-20|<tuple|4|?>>
<associate|auto-21|<tuple|4.1|?>>
<associate|auto-22|<tuple|4.1.1|?>>
<associate|auto-23|<tuple|4.1.1|?>>
<associate|auto-24|<tuple|4.1.1|?>>
<associate|auto-25|<tuple|4.1.1|?>>
<associate|auto-26|<tuple|4.1.2|?>>
<associate|auto-27|<tuple|4.2|?>>
<associate|auto-3|<tuple|2|3>>
<associate|auto-4|<tuple|2.1|3>>
<associate|auto-5|<tuple|1|3>>
<associate|auto-6|<tuple|2.2|4>>
<associate|auto-7|<tuple|2|5>>
<associate|auto-8|<tuple|2|5>>
<associate|auto-9|<tuple|2.3|6>>
<associate|footnote-1|<tuple|1|3>>
<associate|footnote-10|<tuple|10|?>>
<associate|footnote-11|<tuple|11|?>>
<associate|footnote-12|<tuple|12|?>>
<associate|footnote-13|<tuple|13|?>>
<associate|footnote-14|<tuple|14|?>>
<associate|footnote-15|<tuple|15|?>>
<associate|footnote-16|<tuple|16|?>>
<associate|footnote-17|<tuple|17|?>>
<associate|footnote-18|<tuple|18|?>>
<associate|footnote-19|<tuple|19|?>>
<associate|footnote-2|<tuple|2|3>>
<associate|footnote-20|<tuple|20|?>>
<associate|footnote-21|<tuple|21|?>>
<associate|footnote-3|<tuple|3|3>>
<associate|footnote-4|<tuple|4|4>>
<associate|footnote-5|<tuple|5|5>>
<associate|footnote-6|<tuple|6|6>>
<associate|footnote-7|<tuple|7|7>>
<associate|footnote-8|<tuple|8|7>>
<associate|footnote-9|<tuple|9|7>>
<associate|footnr-1|<tuple|1|3>>
<associate|footnr-14|<tuple|14|?>>
<associate|footnr-15|<tuple|15|?>>
<associate|footnr-18|<tuple|18|?>>
<associate|footnr-19|<tuple|19|?>>
<associate|footnr-2|<tuple|2|3>>
<associate|footnr-20|<tuple|20|?>>
<associate|footnr-21|<tuple|21|?>>
<associate|footnr-3|<tuple|3|3>>
<associate|footnr-4|<tuple|4|4>>
<associate|footnr-5|<tuple|5|5>>
<associate|footnr-6|<tuple|6|6>>
<associate|footnr-9|<tuple|9|7>>
</collection>
</references>
<\auxiliary>
<\collection>
<\associate|idx>
<tuple|<tuple|<with|font-family|<quote|ss>|<7C><EFBFBD>>|<with|font-family|<quote|ss>|隡朞<E99AA1>>|<with|font-family|<quote|ss>|Scheme>>|<pageref|auto-3>>
<tuple|<tuple|<with|font-family|<quote|ss>|撣桀𨭌>|<with|font-family|<quote|ss>|<7C><EFBFBD><E586BD><EFBFBD>>|<with|font-family|<quote|ss>|<7C><>蔭雿𨅯㦛撌亙<E6928C>>>|<pageref|auto-8>>
<tuple|<tuple|<with|font-family|<quote|ss>|撌亙<E6928C>>|<with|font-family|<quote|ss>|撘<><E69298>𤏸<EFBFBD><F0A48FB8><EFBFBD>>>|<pageref|auto-23>>
<tuple|<tuple|<with|font-family|<quote|ss>|撘<><E69298>𤏸<EFBFBD><F0A48FB8>>|<with|font-family|<quote|ss>|Export
Sessions...>>|<pageref|auto-24>>
<tuple|<tuple|<with|font-family|<quote|ss>|頧砍<E9A0A7>>|<with|font-family|<quote|ss>|<7C><EFBFBD>憸䀹<E686B8><EFBFBD>>>|<pageref|auto-25>>
</associate>
<\associate|table>
<tuple|normal|<\surround|<hidden-binding|<tuple>|1>|>
\;
</surround>|<pageref|auto-5>>
<tuple|normal|<surround|<hidden-binding|<tuple>|2>||<7C><EFBFBD>撖寡情撅墧<E69285><E5A2A7>>|<pageref|auto-7>>
</associate>
<\associate|toc>
1<space|2spc>蝞<><EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-1>
2<space|2spc><3E>箸𧋦<E7AEB8><EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-2>
<with|par-left|<quote|1tab>|2.1<space|2spc><3E>蠘祗
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-4>>
<with|par-left|<quote|1tab>|2.2<space|2spc><3E>滨熊<E6BBA8><EFBFBD>撅墧<E69285><E5A2A7>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-6>>
<with|par-left|<quote|1tab>|2.3<space|2spc><3E><><EFBFBD><EFBFBD><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-9>>
3<space|2spc><3E><EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-10>
<with|par-left|<quote|1tab>|3.1<space|2spc><3E><EFBFBD><E7A983>喳㦛獢<E3A69B>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-11>>
<with|par-left|<quote|1tab>|3.2<space|2spc><3E><><EFBFBD><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-12>>
<with|par-left|<quote|1tab>|3.3<space|2spc><3E>曉耦<E69B89><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-13>>
<with|par-left|<quote|1tab>|3.4<space|2spc>敹<><E695B9>㦛獢<E3A69B>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-14>>
<with|par-left|<quote|1tab>|3.5<space|2spc><3E><><EFBFBD><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-15>>
<with|par-left|<quote|2tab>|3.5.1<space|2spc><3E><>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-16>>
<with|par-left|<quote|2tab>|3.5.2<space|2spc>Koch
snowflake<assign|footnote-nr|7><hidden-binding|<tuple>|7><\float|footnote|>
<with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F31208>|<link|hyperlink|<id|%-52A10B5C8--528F31208>|<url|#footnr-7>>|7>.
|<hidden-binding|<tuple|footnote-7>|7><specific|texmacs|<htab|0fn|first>>>
<locus|<id|%-52A10B5C8--528F31298>|<link|hyperlink|<id|%-52A10B5C8--528F31298>|<url|https://en.wikipedia.org/wiki/Koch_snowflake>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Koch_snowflake>>
</surround>>>
</float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-7>>>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-17>>
<with|par-left|<quote|2tab>|3.5.3<space|2spc>Sierpinski
carpet<assign|footnote-nr|10><hidden-binding|<tuple>|10><\float|footnote|>
<with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F31360>|<link|hyperlink|<id|%-52A10B5C8--528F31360>|<url|#footnr-10>>|10>.
|<hidden-binding|<tuple|footnote-10>|10><specific|texmacs|<htab|0fn|first>>>
<locus|<id|%-52A10B5C8--528F313F0>|<link|hyperlink|<id|%-52A10B5C8--528F313F0>|<url|https://en.wikipedia.org/wiki/Sierpinski_carpet>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Sierpinski_carpet>>
</surround>>>
</float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-10>>>
and triangle<assign|footnote-nr|11><hidden-binding|<tuple>|11><\float|footnote|>
<with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F60A28>|<link|hyperlink|<id|%-52A10B5C8--528F60A28>|<url|#footnr-11>>|11>.
|<hidden-binding|<tuple|footnote-11>|11><specific|texmacs|<htab|0fn|first>>>
<locus|<id|%-52A10B5C8--528F319F8>|<link|hyperlink|<id|%-52A10B5C8--528F319F8>|<url|https://en.wikipedia.org/wiki/Sierpinski_triangle>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Sierpinski_triangle>>
</surround>>>
</float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-11>>>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-18>>
<with|par-left|<quote|2tab>|3.5.4<space|2spc>Mandelbrot
set<assign|footnote-nr|16><hidden-binding|<tuple>|16><\float|footnote|>
<with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F4F6E8>|<link|hyperlink|<id|%-52A10B5C8--528F4F6E8>|<url|#footnr-16>>|16>.
|<hidden-binding|<tuple|footnote-16>|16><specific|texmacs|<htab|0fn|first>>>
<locus|<id|%-52A10B5C8--528F4F7A0>|<link|hyperlink|<id|%-52A10B5C8--528F4F7A0>|<url|https://en.wikipedia.org/wiki/Mandelbrot_set>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Mandelbrot_set>>
</surround>>>
</float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-16>>>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-19>>
4<space|2spc><3E><><EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-20>
<with|par-left|<quote|1tab>|4.1<space|2spc>撠讛斐憯<E69690>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-21>>
<with|par-left|<quote|2tab>|4.1.1<space|2spc>撖寞𧋦<E5AF9E><F0A78BA6><EFBFBD><EFBFBD><EFBFBD><with|font-shape|<quote|small-caps>|Scheme>銵刻噢撘𤩺<E69298><F0A4A9BA><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-22>>
<with|par-left|<quote|2tab>|4.1.2<space|2spc><3E><><EFBFBD>撌亦<E6928C>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-26>>
<with|par-left|<quote|1tab>|4.2<space|2spc><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
<no-break><pageref|auto-27>>
</associate>
</collection>
</auxiliary>

View File

@ -1,4 +1,4 @@
<TeXmacs|2.1.3>
<TeXmacs|2.1.2>
<style|<tuple|generic|chinese>>
@ -15,6 +15,8 @@
<\itemize>
<item><gitlink|数学结构入门>
<item><gitlink|TeXmacs图形编程>
</itemize>
</body>