Genpatsu Mondai by Satou Masanori
佐藤正典と原発問題
with graphviz dot:
digraph G {
compound=true // can't get subgraph marked off
labelloc="t"
label="環境問題の本質を考えるために"
fontsize="25"
// 原子力発電所 -> 莫大な廃熱温排水 //
Nuke [label="原子力発電所", shape="ellipse"]
OnHaiSui [label="莫大な廃熱\n(温排水)", shape="box"]
EnSoShouRi [label="冷却水の\n塩素処理", shape="none"]
KaiYouSeiTai [label="海洋生態系の破壊", shape="none"]
ShuHenOnDanKa [label="周辺海域\nの温暖化", shape="none"]
GaiRaiShu [label="熱帯性外来\n生物の誘因", shape="none"]
HaiKiButsu [label="放射能廃棄物\n(究極のゴミ問題)", shape="box"]
OnDanKa [label="温暖化問題", shape="box"] //,color=blue]
TanSanGas [label="炭酸ガス排出", shape="none"] // ,color=blue]
HoJoKin [label="莫大な補助金", shape="none"]
EnGan [label="沿岸漁業と伝統\n社会の崩壊", shape=none]
JiKo [label="大事故による\n社会崩壊の危機", shape="none"]
JiShin [label="大地震国日本", shape="none"]
Pluto [label="プロトニウム\n核兵器転用\nの恐れ", shape="none"]
NichiJou [label="日常運転に伴う,\n放射能汚染、\n労働者の被爆、", shape="none"]
// subgraph WiderView {
Nuke -> OnHaiSui
Nuke -> HaiKiButsu
Nuke -> EnSoShouRi
EnSoShouRi -> OnHaiSui
OnHaiSui -> ShuHenOnDanKa
OnHaiSui -> KaiYouSeiTai
EnSoShouRi -> KaiYouSeiTai
ShuHenOnDanKa -> GaiRaiShu
GaiRaiShu -> KaiYouSeiTai
Nuke -> HoJoKin
HoJoKin -> EnGan
KaiYouSeiTai -> EnGan
HaiKiButsu -> JiKo
JiKo -> JiShin
HaiKiButsu -> Pluto
HaiKiButsu -> NichiJou
// }// Wider View
subgraph "cluster1" {
fontsize=16 style=dashed color=blue
label="この分だけ論じられ\n以外の問題が忘れられている"
TanSanGas -> OnDanKa
} // Narrow View
ShuHenOnDanKa -> OnDanKa [lhead="cluster1"]
}
佐藤正典さんの図から出発したグラフ
Graphviz dot: $ dot -Tpng Zu2-ranked.dot -o Zu2-ranked.png
digraph G {
compound=true // can't get subgraph marked off
labelloc="t"
label="環境問題の本質を考えるために"
fontsize="25"
// 原子力発電所 -> 莫大な廃熱温排水 //
Nuke [label="原子力発電所", shape="ellipse"]
OnHaiSui [label="莫大な廃熱\n(温排水)", shape="box"]
EnSoShouRi [label="冷却水の\n塩素処理", shape="none"]
KaiYouSeiTai [label="海洋生態系の破壊", shape="none"]
ShuHenOnDanKa [label="周辺海域\nの温暖化", shape="none"]
GaiRaiShu [label="熱帯性外来\n生物の誘因", shape="none"]
HaiKiButsu [label="放射能廃棄物\n(究極のゴミ問題)", shape="box"]
OnDanKa [label="温暖化問題", shape="box"] //,color=blue]
TanSanGas [label="炭酸ガス排出\n家庭・個人の消費者の排出のみ", shape="none"] // ,color=blue]
HoJoKin [label="莫大な補助金", shape="none"]
EnGan [label="沿岸漁業と伝統\n社会の崩壊", shape=none]
JiKo [label="大事故による\n社会崩壊の危機", shape="none"]
JiShin [label="大地震国日本", shape="none"]
Pluto [label="プルトニウム\n核兵器転用\nの恐れ", shape="ellipse"]
NichiJou [label="日常運転に伴う,\n放射能汚染、\n労働者の被爆、", shape="none"]
Military [label="軍の兵器(戦車、空母、戦闘機など)\n非常に燃費が悪い\n莫大な汚染物の排出", shape="none"]
{ rank=same; Nuke; JiShin; }
{ rank=same; OnHaiSui; HaiKiButsu; }
{ rank=same; EnSoShouRi; HoJoKin; }
{ rank=same; ShuHenOnDanKa; KaiYouSeiTai; JiKo; Pluto; }
{ rank=same; EnGan; NichiJou; }
// subgraph WiderView {
Nuke -> OnHaiSui
Nuke -> HaiKiButsu
Nuke -> EnSoShouRi
EnSoShouRi -> OnHaiSui
OnHaiSui -> ShuHenOnDanKa
OnHaiSui -> KaiYouSeiTai
EnSoShouRi -> KaiYouSeiTai
ShuHenOnDanKa -> GaiRaiShu
GaiRaiShu -> KaiYouSeiTai
Nuke -> HoJoKin
HoJoKin -> EnGan
HoJoKin -> Pluto
KaiYouSeiTai -> EnGan
HaiKiButsu -> JiKo
JiShin -> JiKo
HaiKiButsu -> Pluto
HaiKiButsu -> NichiJou
// }// Wider View
subgraph "cluster1" {
fontsize=16 style=dashed color=blue
label="この分だけ論じられ\n以外の問題が忘れられている"
labelloc=b
TanSanGas -> OnDanKa
} // Narrow View
ShuHenOnDanKa -> OnDanKa [lhead="cluster1"]
JiKo -> TanSanGas [style=bold,label=" 瓦礫の処理\n(不可能な)復帰のため\n莫大の化石燃料消費",lhead="cluster1"]
Military -> TanSanGas [style=bold,label="環境気象の交渉\n軍の炭酸ガス排出が論外",lhead="cluster1"]
} // end graph?
原発のサイクルたち図：佐藤正典さん図の一部+変化
#lang racket
(require pict pict-abbrevs) ;; slideshow/text) with-size
(require "../common/pict-procedures.rkt")
(require "../common/orgmode-transforms.rkt")
(define-values (sea-clr sea-b-clr sea-b-wdt state-clr state-b-clr state-b-wdt )
(values "sea green" "medium aquamarine" 10 "light gray" "dark gray" 15))
(define title-s "$環^かん$境^きょう$問^もん$題^だい$の$本^ほん$質^しつ$を$考^かんが$えるために")
(define orig-auth-s "$佐^さ$藤^とう$正^まさ$典^のり$")
(define waters-s "$海^うみ$；$海^かい$水^すい$か$河^か$川^せん$；$周^しゅう$辺^へん$の$水^みず$資^し$源^げん$")
(define water-in-s "$冷^れい$却^きゃく$水^すい$；$次^じ$亜^あ$塩^えん$素^そ$酸^さん$ソーダ；$塩^えん$素^そ$処^しょ$理^り")
(define state-s "$国^こっ$家^か$；$軍^ぐん$事^じ$産^さん$業^ぎょう$；$大^だい$企^き$業^ぎょう$")
(define subsidy-in-s "$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$")
(define nuke-s "$原^てん$子^し$力^りょく$発^はつ$電^でん$所^しょ$")
(define reactor-s "$原^げん$子^し$炉^ろ$ ")
(define water-out-s "$莫^ばく$大^だい$な$廃^はつ$熱^ねつ$；$温^おん$排^はい$水^すい$と$放^ほう$射^しゃ$性^せい$廃^はい$水^すい$；1$秒^びょう$間^かん$70tの$水^みず$7℃$上^じょう$昇^しょう")
(define subsidy-out-s "$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$")
(define sea-warming-s "$周^しゅう$辺^へん$海^かい$域^いき$の$温^おん$暖^だん$化^か$")
(define sea-ecosystem-s "$熱^ねっ$帯^たい$性^せい$外^がり$来^らい$生^せい$物^ぶつ$の$誘^ゆう$因^いん；$海^かい$洋^よう$生^せい$態^たい$系^けい$の$破^は$壊^かい$")
(define sea-community-s "$沿^えん$岸^がん$漁^ぎょ$業^ぎょう$；$伝^でん$統^とうと$社^しゃ$会^かい$の$崩^は$壊^かい$")
(define nuke-waste-s "$放^ほう$射^しゃ$能^のう$廃^はい$棄^き$物^ぶつ；$究^きゅう$極^きょく$のゴミ$問^もん$題^だい$")
(define pluto-s "プロトニウム；$核^かく$兵^へい$器^き$転^てん$用^よう$の$恐^おそ$れ")
(define labor-s "$日^にち$常^じょう$運^うん$転^てん$に$伴^ともな$う； $放^ほう$射^しゃ$能^のう$汚^お$染^せん$；$労^ろう$働^どう$者^しゃ$($人^ひと$)の$被^ひ$爆^ばく$")
(name-picts-n-list
(list title-t orig-auth-t
waters-t water-in-t state-t subsidy-in-t
nuke-t reactor-t water-out-t subsidy-out-t
sea-warming-t sea-ecosystem-t sea-community-t
nuke-waste-t pluto-t labor-t)
(map (lambda (s) (kj-fg-mrkp-comma-stack->pct s vc-append))
(list title-s orig-auth-s
waters-s water-in-s state-s subsidy-in-s
nuke-s reactor-s water-out-s subsidy-out-s
sea-warming-s sea-ecosystem-s sea-community-s
nuke-waste-s pluto-s labor-s)
) txt-pcts)
;; (apply vl-append (map pan-spot-view txt-pcts));; ok! till labor-t
(define sea-environment-influence-pct
(add-spotlight-background #:color "powder blue"
#:x-margin 60 #:y-margin 90 #:blur 30
(vc-append 10 sea-warming-t sea-ecosystem-t)))
(define sea-bg (filled-ellipse 400 1200 #:color sea-clr #:border-color sea-b-clr #:border-width sea-b-wdt))
(define sea-pct (ct-superimpose sea-bg waters-t)) ;; sea-pct ; ok!
;; might need a lighter bluish color for easier reading of black fg text
(define state-bg (filled-rectangle 250 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define state-pct (cc-superimpose state-bg state-t)) ;; state-pct ; ok!
;; base height as twice the height of state-pct
(define nuke-bg (filled-rectangle 250 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define nuke-pct (lt-superimpose nuke-bg (inset nuke-t 10)))
(define reactor-bg (filled-rectangle 125 100 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define reactor-pct (lt-superimpose reactor-bg (inset reactor-t 10))) ;; reactor-pct ; ok!
(define nuke-f-pct (pin-over nuke-pct nuke-t lb-find (inset reactor-pct 10))) ;; nuke-f-pct ; ok!
(define spacer-ct (blank 800 200))
(define spacer-rt (blank 400 100)) ;; same as state-bg
(define state-start (vc-append spacer-rt state-pct))
;; (pan-spot-view (p-v (ht-append sea-pct spacer-ct state-start) ) ); ok!
(define set-pct (ht-append sea-pct spacer-ct state-start))
(define set-reactor (pin-over set-pct spacer-ct cb-find nuke-f-pct))
;; start viewing relations with labeled arrows
(define arrw-sze 40)
(define arrw-wdt (/ arrw-sze 2))
(define start-reactor
(let* ([p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "dim gray" ;; "dark kahki"
#:label subsidy-in-t
#:x-adjust-label -30 #:y-adjust-label -30
set-reactor state-t lt-find nuke-t rt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "medium sea green"
#:label water-in-t
#:x-adjust-label 100 #:y-adjust-label 30
p waters-t rc-find reactor-pct lt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue" ;; "royal blue" "puke green"
#:label water-out-t
#:x-adjust-label 45 #:y-adjust-label -50
p reactor-pct lb-find sea-bg rc-find)]
[p (pin-over p sea-pct cc-find sea-environment-influence-pct)]
[p (pin-over p sea-environment-influence-pct rb-find sea-community-t)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p sea-environment-influence-pct rc-find sea-community-t ct-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:label subsidy-out-t
#:x-adjust-label 75 #:y-adjust-label -25
p nuke-f-pct lb-find sea-community-t ct-find)]
[p (pin-over p sea-community-t rt-find (inset labor-t 110 120 0 5))]
[p (pin-over p nuke-f-pct rb-find (inset nuke-waste-t 0 10 0 0))]
[p (pin-over p nuke-waste-t cb-find (inset pluto-t 50 100 0 0))]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
p nuke-f-pct rc-find nuke-waste-t ct-find)]
#;[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:under? #t
p nuke-waste-t cb-find pluto-t lt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p sea-community-t rb-find labor-t lc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p pluto-t rb-find labor-t rt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:under? #t
p nuke-waste-t lb-find labor-t ct-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p pluto-t ct-find state-pct cb-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p state-pct lc-find reactor-pct rc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p reactor-pct rb-find nuke-waste-t lc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p nuke-waste-t cb-find pluto-t ct-find)]
)
p))
(add-rectangle-background #:radius 0 (p-v start-reactor))
;; (pict->png-bg start-reactor "start-reactor-1.png")
Two Nuclear Cycles
Based on a chart by Masanori Saito of Kagoshima, Satsuma Sendai
#lang racket
(require pict pict-abbrevs) ;; slideshow/text) with-size
(require "../common/pict-procedures.rkt")
(require "../common/orgmode-transforms.rkt")
(define-values (sea-clr sea-b-clr sea-b-wdt state-clr state-b-clr state-b-wdt )
(values "aqua" "medium aquamarine" 10 "light gray" "dark gray" 15))
(define title-s "For thinking about the true nature of environmental problems. ")
;; "$環^かん$境^きょう$問^もん$題^だい$の$本^ほん$質^しつ$を$考^かんが$えるために")
(define orig-auth-s "Masanori Sato") ;;"$佐^さ$藤^とう$正^まさ$典^のり$")
(define waters-s "Ocean; Seawater or River Water; Water from Surroundings")
;; "$海^うみ$；$海^かい$水^すい$か$河^か$川^せん$；$周^しゅう$辺^へん$の$水^みず$資^し$源^げん$")
(define water-in-s "Coolant Water; Bleach (Sodium hypochlorite); Sterilized with Chlorine " )
;; "$冷^れい$却^きゃく$水^すい$；$次^じ$亜^あ$塩^えん$素^そ$酸^さん$ソーダ；$塩^えん$素^そ$処^しょ$理^り")
(define state-s "State; Military; Huge Corporations " )
;; "$国^こっ$家^か$；$軍^ぐん$事^じ$産^さん$業^ぎょう$；$大^だい$企^き$業^ぎょう$")
(define subsidy-in-s "Huge Subsidies")
;; "$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$")
(define nuke-s "Nuclear Plant's")
;; "$原^てん$子^し$力^りょく$発^はつ$電^でん$所^しょ$")
(define reactor-s "Reactor")
;; "$原^げん$子^し$炉^ろ$ ")
(define water-out-s "Huge Waste Heat; Thermal Effluent mixed with Radiation; 70Tons a second Water Warmed 7℃")
;; "$莫^ばく$大^だい$な$廃^はつ$熱^ねつ$；$温^おん$排^はい$水^すい$と$放^ほう$射^しゃ$性^せい$廃^はい$水^すい$；1$秒^びょう$間^かん$70tの$水^みず$7℃$上^じょう$昇^しょう")
(define subsidy-out-s "Huge Subsidies")
;; "$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$")
(define sea-warming-s "Local Warming of Waters; Conditions for Tropical Invasive Speices; Destruction of Local Water Ecology")
;; "$周^しゅう$辺^へん$海^かい$域^いき$の$温^おん$暖^だん$化^か$")
(define sea-ecosystem-s " ") ; merged strings above, with margines can't stack like before
;; "$熱^ねっ$帯^たい$性^せい$外^がり$来^らい$生^せい$物^ぶつ$の$誘^ゆう$因^いん；$海^かい$洋^よう$生^せい$態^たい$系^けい$の$破^は$壊^かい$")
(define sea-community-s "Coastal Fishing Industry; Traditions・Societies Destroyed")
;;"$沿^えん$岸^がん$漁^ぎょ$業^ぎょう$；$伝^でん$統^とうと$社^しゃ$会^かい$の$崩^は$壊^かい$")
(define nuke-waste-s "Radioactive Waste; Worst, Eternal Pollution Troubles")
;; "$放^ほう$射^しゃ$能^のう$廃^はい$棄^き$物^ぶつ；$究^きゅう$極^きょく$のゴミ$問^もん$題^だい$")
(define pluto-s "Plutonium; Risk Use in Nuclear Weapons")
;; "プロトニウム；$核^かく$兵^へい$器^き$転^てん$用^よう$の$恐^おそ$れ")
(define labor-s "Daily Electricity Generation Produces; Radioactive Pollution; and Damage to Workers (People) ")
;; "$日^にち$常^じょう$運^うん$転^てん$に$伴^ともな$う； $放^ほう$射^しゃ$能^のう$汚^お$染^せん$；$労^ろう$働^どう$者^しゃ$($人^ひと$)の$被^ひ$爆^ばく$")
(name-picts-n-list
(list title-t orig-auth-t
waters-t water-in-t state-t subsidy-in-t
nuke-t reactor-t water-out-t subsidy-out-t
sea-warming-t sea-ecosystem-t sea-community-t
nuke-waste-t pluto-t labor-t)
(map (lambda (s) (add-mrgns
(kj-fg-mrkp-comma-stack->pct s vc-append) 32 24 32 48))
(list title-s orig-auth-s
waters-s water-in-s state-s subsidy-in-s
nuke-s reactor-s water-out-s subsidy-out-s
sea-warming-s sea-ecosystem-s sea-community-s
nuke-waste-s pluto-s labor-s)
) txt-pcts)
;; (apply vl-append (map pan-spot-view txt-pcts));; ok! till labor-t
(define sea-environment-influence-pct
(add-spotlight-background #:color "powder blue"
#:x-margin 60 #:y-margin 60 #:blur 30
(vc-append 10 sea-warming-t sea-ecosystem-t)))
(define sea-bg (filled-ellipse 400 1200 #:color sea-clr #:border-color sea-b-clr #:border-width sea-b-wdt))
(define sea-pct (ct-superimpose sea-bg
(add-mrgns waters-t 0 50 0 0))) ;; sea-pct ; ok!
;; might need a lighter bluish color for easier reading of black fg text
(define state-bg (filled-rectangle 250 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define state-pct (cc-superimpose state-bg state-t)) ;; state-pct ; ok!
;; base height as twice the height of state-pct
(define nuke-bg (filled-rectangle 350 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define nuke-pct (lt-superimpose nuke-bg (inset nuke-t 10)))
(define reactor-bg (filled-rectangle 225 100 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt))
(define reactor-pct (lt-superimpose reactor-bg (inset reactor-t 10))) ;; reactor-pct ; ok!
(define nuke-f-pct (pin-over nuke-pct nuke-t lb-find (inset reactor-pct 10))) ;; nuke-f-pct ; ok!
(define spacer-ct (blank 1400 200))
(define spacer-rt (blank 900 100)) ;; same as state-bg
(define state-start (vc-append spacer-rt state-pct))
;; (pan-spot-view (p-v (ht-append sea-pct spacer-ct state-start) ) ); ok!
(define set-pct (ht-append sea-pct spacer-ct state-start))
(define set-reactor (pin-over set-pct spacer-ct cb-find nuke-f-pct))
;; start viewing relations with labeled arrows
(define arrw-sze 40)
(define arrw-wdt (/ arrw-sze 2))
(define start-reactor
(let* ([p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "dim gray" ;; "dark kahki"
#:label subsidy-in-t
#:x-adjust-label -30 #:y-adjust-label -30
set-reactor state-t lt-find nuke-t rt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "medium sea green"
#:label water-in-t
#:x-adjust-label 100 #:y-adjust-label 30
p waters-t rc-find reactor-pct lt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue" ;; "royal blue" "puke green"
#:label water-out-t
#:x-adjust-label 45 #:y-adjust-label -50
p reactor-pct lb-find sea-bg rc-find)]
[p (pin-over p sea-pct cc-find sea-environment-influence-pct)]
[p (pin-over p sea-environment-influence-pct rb-find sea-community-t)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p sea-environment-influence-pct rc-find sea-community-t ct-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:label subsidy-out-t
#:x-adjust-label 75 #:y-adjust-label -25
p nuke-f-pct lb-find sea-community-t ct-find)]
[p (pin-over p sea-community-t rt-find (inset labor-t 110 120 0 5))]
[p (pin-over p nuke-f-pct rb-find (inset nuke-waste-t 0 10 0 0))]
[p (pin-over p nuke-waste-t cb-find (inset pluto-t 50 100 0 0))]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
p nuke-f-pct rc-find nuke-waste-t ct-find)]
#;[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:under? #t
p nuke-waste-t cb-find pluto-t lt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p sea-community-t rb-find labor-t lc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "cadet blue"
p pluto-t rb-find labor-t rt-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr
#:under? #t
p nuke-waste-t lc-find labor-t ct-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p pluto-t ct-find state-pct cb-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p state-pct lc-find reactor-pct rc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p reactor-pct rb-find nuke-waste-t lc-find)]
[p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color "royal blue"
p nuke-waste-t cb-find pluto-t ct-find)]
)
p))
(add-rectangle-background #:radius 0 (p-v start-reactor))
(pict->png-bg start-reactor "start-reactor-1-en.png")
佐藤正典さんの「原子力発電所をめぐる主な問題」図の一部
``` #lang racket
(require pict pict-abbrevs) ;; slideshow/text) with-size (require “../common/pict-procedures.rkt”) (require “../common/orgmode-transforms.rkt”)
(define-values (sea-clr sea-b-clr sea-b-wdt state-clr state-b-clr state-b-wdt ) (values “sea green” “medium aquamarine” 10 “light gray” “dark gray” 15))
(define title-s “$環^かん$境^きょう$問^もん$題^だい$の$本^ほん$質^しつ$を$考^かんが$えるために”) (define orig-auth-s “$佐^さ$藤^とう$正^まさ$典^のり$”)
(define waters-s “$海^うみ$；$海^かい$水^すい$か$河^か$川^せん$；$周^しゅう$辺^へん$の$水^みず$資^し$源^げん$”) (define water-in-s “$冷^れい$却^きゃく$水^すい$；$次^じ$亜^あ$塩^えん$素^そ$酸^さん$ソーダ；$塩^えん$素^そ$処^しょ$理^り”) (define state-s “$国^こっ$家^か$；$軍^ぐん$事^じ$産^さん$業^ぎょう$；$大^だい$企^き$業^ぎょう$”) (define subsidy-in-s “$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$”) (define nuke-s “$原^てん$子^し$力^りょく$発^はつ$電^でん$所^しょ$”) (define reactor-s “$原^げん$子^し$炉^ろ$ “) (define water-out-s “$莫^ばく$大^だい$な$廃^はつ$熱^ねつ$；$温^おん$排^はい$水^すい$と$放^ほう$射^しゃ$性^せい$廃^はい$水^すい$；1$秒^びょう$間^かん$70tの$水^みず$7℃$上^じょう$昇^しょう”) (define subsidy-out-s “$莫^ばく$大^だい$の$補^ほ$助^じょ$金^きん$”) (define sea-warming-s “$周^しゅう$辺^へん$海^かい$域^いき$の$温^おん$暖^だん$化^か$”) (define sea-ecosystem-s “$熱^ねっ$帯^たい$性^せい$外^がり$来^らい$生^せい$物^ぶつ$の$誘^ゆう$因^いん；海洋生態系の破壊”) (define sea-community-s “$沿^えん$岸^がん$漁^ぎょ$業^ぎょう$；$伝^でん$統^とうと$社^しゃ$会^かい$の$崩^は$壊^かい$”) (define nuke-waste-s “放射能廃棄物；究極のゴミ問題”) (define pluto-s “プロトニウム；核兵器転用の恐れ”) (define labor-s “ 日常運転に伴う,放射能汚染、労働者の被爆”)
(name-picts-n-list (list title-t orig-auth-t waters-t water-in-t state-t subsidy-in-t nuke-t reactor-t water-out-t subsidy-out-t sea-warming-t sea-ecosystem-t sea-community-t nuke-waste-t pluto-t labor-t) (map (lambda (s) (kj-fg-mrkp-comma-stack->pct s vc-append)) (list title-s orig-auth-s waters-s water-in-s state-s subsidy-in-s nuke-s reactor-s water-out-s subsidy-out-s sea-warming-s sea-ecosystem-s sea-community-s nuke-waste-s pluto-s labor-s) ) txt-pcts) ;; (apply vl-append (map pan-spot-view txt-pcts));; ok! till labor-t
(define sea-environment-influence-pct (add-spotlight-background #:color “powder blue” #:x-margin 60 #:y-margin 90 #:blur 30 (vc-append 10 sea-warming-t sea-ecosystem-t)))
(define sea-bg (filled-ellipse 400 1200 #:color sea-clr #:border-color sea-b-clr #:border-width sea-b-wdt)) (define sea-pct (ct-superimpose sea-bg waters-t)) ;; sea-pct ; ok! ;; might need a lighter bluish color for easier reading of black fg text (define state-bg (filled-rectangle 250 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt)) (define state-pct (cc-superimpose state-bg state-t)) ;; state-pct ; ok! ;; base height as twice the height of state-pct
(define nuke-bg (filled-rectangle 250 350 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt)) (define nuke-pct (lt-superimpose nuke-bg (inset nuke-t 10))) (define reactor-bg (filled-rectangle 125 100 #:color state-clr #:border-color state-b-clr #:border-width state-b-wdt)) (define reactor-pct (lt-superimpose reactor-bg (inset reactor-t 10))) ;; reactor-pct ; ok! (define nuke-f-pct (pin-over nuke-pct nuke-t lb-find (inset reactor-pct 10))) ;; nuke-f-pct ; ok!
(define spacer-ct (blank 800 200)) (define spacer-rt (blank 400 100)) ;; same as state-bg (define state-start (vc-append spacer-rt state-pct)) ;; (pan-spot-view (p-v (ht-append sea-pct spacer-ct state-start) ) ); ok! (define set-pct (ht-append sea-pct spacer-ct state-start)) (define set-reactor (pin-over set-pct spacer-ct cb-find nuke-f-pct)) ;; start viewing relations with labeled arrows (define arrw-sze 40) (define arrw-wdt (/ arrw-sze 2)) (define start-reactor (let* ([p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color “dim gray” ;; “dark kahki” #:label subsidy-in-t #:x-adjust-label -30 #:y-adjust-label -30 set-reactor state-t lt-find nuke-t rt-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color “medium sea green” #:label water-in-t #:x-adjust-label 100 #:y-adjust-label 30 p waters-t rc-find reactor-pct lt-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color “cadet blue” ;; “royal blue” “puke green” #:label water-out-t #:x-adjust-label 45 #:y-adjust-label -50 p reactor-pct lb-find sea-bg rc-find)] [p (pin-over p sea-pct cc-find sea-environment-influence-pct)] [p (pin-over p sea-environment-influence-pct rb-find sea-community-t)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color “cadet blue” p sea-environment-influence-pct rc-find sea-community-t ct-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr #:label subsidy-out-t #:x-adjust-label 75 #:y-adjust-label -25 p nuke-f-pct lb-find sea-community-t ct-find)] [p (pin-over p sea-community-t rt-find (inset labor-t 10 0 0 5))] [p (pin-over p nuke-f-pct rb-find (inset nuke-waste-t 0 10 0 0))] [p (pin-over p nuke-waste-t cb-find (inset pluto-t 50 100 0 0))] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr p nuke-f-pct rc-find nuke-waste-t ct-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr #:under? #t p nuke-waste-t cb-find pluto-t lt-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr #:under? #t p nuke-waste-t lb-find labor-t ct-find)] [p (pin-arrow-line arrw-sze #:line-width arrw-wdt #:color state-clr p pluto-t ct-find state-pct cb-find)]
) p)) (add-rectangle-background #:radius 0 (p-v start-reactor))
(pict->png-bg start-reactor “start-reactor-1.png”) '''
