Perspective from Bergson

On X/Twitter, I saw a drawing by toshᴉzumi. It’s pretty complex, well made, I like it very much. I had a few thoughts how I would adjust it a bit to my taste. toshᴉzumi shared the code, so I played a bit with it. What I was doing:

• Using styles for repeated designs (colored nodes, arrows)
• font=\scriptsize instead of \scriptsize in node text for lineskip
• Sharper arrow tips
• symmetric bent arrows
• cone in the middle of the plane
• text below plane aligned
• bottom texts and top texts aligned
• sans serif font is used because I really prefer it for diagrams

I did some manual tweaks for the look I liked, just to have it quickly done because the evening is already late.

This is the result – click on it to zoom it bigger:

The original source is on Github. And this is the modified code:

\documentclass[tikz,border=10pt]{standalone}
\usetikzlibrary{shapes,positioning,fit}
\usetikzlibrary{calc}	%for centerarc
\tikzset{
    container/.style={
        draw, rectangle, dashed, inner sep=0.75em
    }
}
\renewcommand*{\familydefault}{\sfdefault}
\tikzset{>=stealth,
      memory/.style = {fill=cyan!10, text width=56, node distance=155},
   cognitive/.style = {fill=yellow!30, text width=65},
  phenomenal/.style = {fill=cyan!5, text width=55, node distance=165},
     explain/.style = {fill=magenta!10, text width=60,font=\scriptsize},
       small/.style = {fill=yellow!40, text width=50,font=\scriptsize},
       arrow/.style = {->, ultra thick, opacity=.8}}
\fontsize{1em}{1.1em}\selectfont

\begin{document}
	%from Bergson - Matter and Memory, p. 211 (fig. 3)
	\begin{tikzpicture}[every node/.append style = {rectangle, text centered}]
	%parallelogram
	\draw[very thick] (3.25,1.75)--(-2,1.75)--(-3.5,-1.75)--(1.75,-1.75)--cycle;
	\draw[ultra thick,white] (-0.54,1.75)--(0.55,1.75);
	\draw[very thick,dashed,gray] (-0.54,1.75)--(0.55,1.75);

	%triangle
	\draw[very thick] (0,0)--(-2.25,7.5);	%leftwards line
	\draw[very thick] (0,0)--( 2.25,7.5);	%rightward line
	
	%ellipses
	\draw[very thick] (0,7.5) ellipse (2.25cm and 0.75cm);
	\draw[very thick] (0,5.0) ellipse (1.5cm and 0.375cm);
	\draw[very thick] (0,2.5) ellipse (0.75cm and 0.1875cm);
	
	%labels
	\node (S) at (0,-0.3)	{S};
	\node at (3.5,1.75) {P};
	\node (A) at (-2.5,7.5) {A};	\node (Ap) at (-1.85,5)	{A$'$};
	\node (App) at (-1.2,2.5) {A$''$};
	\node (B) at ( 2.5,7.5) {B};	\node (Bp)  at ( 1.85,5)	{B$'$};
	\node (Bpp)  at ( 1.2,2.5) {B$''$};
	\node (V) at ( 0,7.5) {};	\node (Vp)  at (0,5)	{};
	\node (Vpp)  at (0,2.5) {};
	\node[below=1.5 of S.center, xshift=-0.9cm] {Bergson's Cone of Memory (1896)};

%%%%%%% modified %%%%%%%%

	\node[rectangle, fill=gray!10, text width=75, align=left,
	  below left=0.15 and 0.1 of S.south, font=\scriptsize]
	    (Body) {the image of the \textbf{body} \\
	    the present perception \\ the sensori-motor state};
	    %% \\ the present perception\\ the sensori-motor state
	\draw[thin] (S)--(Body);	%B to 


	%Sense

	\node[memory, right of=V]  (LTM){Long-Term Store};
	\node[text width=56, below= 0 of LTM] (){permanent};
	\node[memory, right of=Vp] (STM){Short-Term Store};
	\node[text width=56, below= 0 of STM] {15–30\,s};
	\node[memory, right of=Vpp](SenM) {Sensory Registar};
	\node[text width=56, below= 0 of SenM] (Decay){10–100\,ms };
	\node[memory, right of=S, node distance=155](Input)	{Sensory Input};
	\node[container, fit=(LTM) (Input)] (Msys) {};
	\node[above=-0.12 of Msys,align=center] (MS) {Memory System\\\vphantom{M}};
	\node[below=1.1 of Input.center, text width=80] () {Atkinson \& Shiffrin (1968)};
	

	%edge to sense
	\draw[thin] (B)--(LTM);	%B to 
	\draw[thin] (Bp)--(STM);	%B' to 
	\draw[thin] (Bpp)--(SenM);	%B' to 
	\draw[thin] (S)--(Input);	%S to 

%%%%%%%

	%Varela's Time WIndow
	\node[phenomenal, right of=LTM] (Narrative) 	{Narrative};
	\node[rectangle, fill=cyan!5, text width=55, right of=STM,
	  node distance=165] (Cognition) {Cognition};
	\node[phenomenal, right of=SenM] (Nowness) 	{``Nowness''};
	\node[phenomenal, right of=Input] (Now)	 {Now};
	\node[explain] at ($(Narrative)!.5!(Cognition)$) (NT)
	  {descriptive-narrative assessments \par \tiny (the '10' scale) };
	\node[explain] at ($(Nowness)!.5!(Cognition)$)
	  {relaxation time for large-scale integration \par \tiny (the '1' scale) };
	\node[explain]at ($(Now)!.5!(Nowness)$) (ET)
	  {basic or elementary events \par \tiny (the '1/10' scale) };
	\node[container, fit=(Narrative) (Now)] (TS) {};
%	\node[above=0 of Ssys] {Self System};
	\node[text width=80, right of=MS, node distance=165]
	  {Phenomenal Timescales};
	\node[below=1.1 of Now.center, text width=80]
	  {\vphantom{V}\\Varela (1999)};


	%edge to timescale
	\draw[thin] (LTM)--(Narrative) node[midway] (T1){};	%B to 
	\draw[thin] (STM)--(Cognition) node[midway] (T2){};	%B' to 
	\draw[thin] (SenM)--(Nowness) node[midway] (T3){};	%B' to 
	\draw[thin] (Input)--(Now) node[midway] (T4){};	%B' to 
%
%%%%%%%%%
%
	%ICS
	\node[cognitive] at ($(T1)!.5!(T2)$) (PS) {Propositional Meaning Subsystem};
	\node[cognitive] at ($(T2)!.5!(T3)$) 	(IS)  {Implicational Meaning Subsystem};
	\node[cognitive] at ($(T3)!.5!(T4)$)	(BS) {\vphantom{B}\\Body-State\\\vphantom{S}};
	\node[text width=65, above=0.00 of T1] {Interacting Cognitive Subsystems};
	\node[text width=75, below=1.1 of T4.center] {Teasdale \& Barnard (1993)};

	\draw [->,thick] (PS) to [bend left=50] node[below] {} (IS);
	\draw [->,thick] (IS) to [bend left=50] node[below] {} (PS);
	\node[rectangle, text width=50] at ($(IS)!.5!(PS)$) {cognitive loop};
	\draw [->,thick] (IS) to [bend left=50] node[below] {} (BS);
	\draw [->,thick] (BS) to [bend left=50] node[below] {} (IS);
	\node[rectangle, text width=50] at ($(BS)!.5!(IS)$) {sensory loop};
%
%
	%Self
	\node[rectangle, fill=cyan!10, text width=66, right of=Narrative, node distance=165] (Nself) 	{Narrative Self};
	\node[rectangle, fill=cyan!10, text width=66, right of=Cognition, node distance=165] (Sawa)		{Self-Consciousness};
	\node[rectangle, fill=cyan!10, text width=66, right of=Nowness, node distance=165] (Mself) 	{Minimal Self};
	\node[rectangle, fill=blue!80, text width=66, right of=Now, node distance=165,text=white] (Non)		{Non-Self};
	\node[container, fit=(Nself) (Mself)] (Ssys) {};
	\node[above=0.41 of Ssys] {Self System};
	\node[rectangle, fill=magenta!10, text width=50, font=\scriptsize] at ($(Sawa)!.5!(Nself)$) (SI) {sense of identity};
	\draw[->,ultra thick,opacity=1.0,magenta!10,line width=3]  (SI)--(Nself) node [midway] () {};
	\node[small] at ($(Sawa)!.5!(Mself)$) (IB) {intentional binding};
	\draw[->,ultra thick,opacity=1.0,yellow!40,line width=3]  (IB)--(Mself) node [midway] () {};
	\node[small] at ($(Mself)!.5!(Non)$) (MI) {multimodal integration};
	\draw[->,ultra thick,opacity=1.0,yellow!40,line width=3]  (MI)--(Mself) node [midway] () {};
	\node[below=1.1 of Non.center, text width=80] {\vphantom{G}\\Gallagher (2002)};
%
	%edge to self
	\draw[thin] (Narrative)--(Nself) node[midway] (E1){};	%B to 
	\draw[thin] (Cognition)--(Sawa) node[midway] (E2){};	%B' to 
	\draw[thin] (Nowness)--(Mself) node[midway] (E3){};	%B' to 
	\draw[thin] (Now)--(Non) node[midway] (E4){};	%B' to 
	\node[below=1.1 of E4.center, text width=80] {Erikson (1968), Beck (1979)};

	%Decentering/Identify
	\coordinate[left=0.25 of E1]   (P2);
	\coordinate[left=0.25 of E3]   (P1);
	\coordinate[left=0.25 of E4]   (P0);
	\coordinate[right=0.25 of E1]  (P4);
	\coordinate[right=0.25 of E3]  (P3);
	\coordinate[right=0.25 of E4]  (P02);
	\draw[arrow,teal,line width=4]  (P2)--(P1) node [midway] (P5) {};
	\draw[arrow,teal,densely dashed]  (P1)--(P0) node [midway]  {};
	\draw[arrow,purple,line width=4]  (P3)--(P4) node [midway] (P6) {};
	\draw[arrow,purple,densely dashed]  (P02)--(P3) node [midway]  {};
	\node [rectangle, fill=teal,text=white]  at ($(E1)!0.5!(E3)+(0,-1)$) {Decentering};
	\node [rectangle, fill=purple,text=white]  at ($(E1)!0.5!(E3)+(0,1)$) {Self-Identify};
	\end{tikzpicture}
\end{document}

Click on “Run LaTeX here” to get it as a PDF.

Learning TikZ is challenging but really rewarding. A good book can help learning the basics quickly, such as TikZによるLaTeXグラフィックス.

See also: Original Source by Stefan Kottwitz