佐藤正典と原発問題

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"]



}

佐藤正典さんの図から出発したグラフ

• https://mstdn.jp/@bsmall2/111074599975142117

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”) '''

原子力発電所の振り仮名を直した