simple layout on its way

gen0_virtuous_cycle/layout/simple.ps

+%CONSTANTS
+%CHANGE_GRAPHICS_STATE.
+%Document_Element:
+%DefinedFunctions
+%buildins
+72 600 moveto
+/HEADER_FONT /Times-Bold findfont 32 scalefont def
+/HEADER_MODE. {HEADER_FONT setfont} def
+/TEXT_FONT /Times findfont 18 scalefont def
+/TEXT_MODE.{TEXT_FONT setfont} def 
+/PP { {pop pop currentpoint exch 500 gt 
+      {20 exch 50 sub moveto} %# Int -> 1
+      {pop} %# X -> 1
+ ifelse} %#
+   exch kshow
+ } %# String -> 1 
+  def
+/Fin {exch exec} def
+/Title: {HEADER_MODE. {PP}} def
+/Paragraph: {Fin TEXT_MODE. {PP}} def
+
+
+%%---------- Wishfull Thinking
+
+Title: (Algebraic Typechecking for Stack Languages)
+
+Paragraph: (Lorem ipsum dolor sit amet, consectetur adipiscing elit.
+Donec egestas risus ipsum, et condimentum tellus varius id.
+In pellentesque, mi et rutrum ultrices, neque nisl hendrerit ligula, et bibendum nulla risus a diam.)
+
+% Paragraph: (Vestibulum volutpat maximus magna, ac imperdiet lorem efficitur in. Curabitur tortor felis, euismod vitae ipsum id, euismod condimentum libero. Aenean blandit lorem eu diam mattis tempor. Duis efficitur arcu id laoreet sollicitudin. Nam maximus id turpis sed sagittis. Proin nec sem eros. Proin at nisi ac dolor tincidunt suscipit. Proin eu aliquet tellus. Aenean tincidunt leo vel consectetur luctus. Morbi ac massa aliquet, lobortis metus non, venenatis mauris. Curabitur facilisis ultricies felis eu interdum.)
+
+Fin
+
+%Notes:
+% /club glyphshow works, so just find a modern font which has all the glyphs I need :D
+% custom subsetfonts: https://stackoverflow.com/questions/63743952/showing-glyphs-with-unicodes-higher-than-decimal-256
+% /str 1 string def  str 0 byte put || Works, put deals with references. Sad
+
+% Operators:show, 
+% ashow : Int Int String -> 1 (move every glyph by xy)
+% widthshow : Float Float Char String -> 1 (adjust spacing of Char in String by xy)
+% awidthshow : Float Float Char Float Float String -> 1 ashow and widthshow
+% cshow : proc string -> 1 puts spacing and charactercode on stack, then executes proc for each char in string ;) combine this with glyphsho
+% kshow : proc string -> 1 : shows first char, then pushes char-code,and next char-code, onto stack, execs proc :D this solves everything 
+%  kshow, xshow, yshow, xyshow,awidthshow, and glyphshow.
+% search
+{pop pop currentpoint exch 500 gt 
+   {10 exch 50 sub moveto} {pop} ifelse }
+(Lorem ipsum dolor sit amet, consectetur adipiscing elit.
+Aliquam mollis elit ut rutrum mollis.
+In id dapibus dolor.
+Praesent nunc mi, semper ut ante vel,
+laoreet ultrices felis.
+Nunc accumsan leo vel condimentum consequat.
+Suspendisse eu nisi id nisi varius vulputate.)
+kshow