test/graphics/dyn-thunk.shape

   1 /**
   2  ** This test was introduced after a bug was detected.
   3  **/
   4 ##lookin ..Shapes
   5 ##lookin ..Shapes..Text
   6 ##lookin ..Shapes..Geometry
   7
   8 font: @size:1cm
   9 ##unit dx = 4cm
  10
  11 {
  12 fun: \ str tobj →
  13        ( font | ( newText << str << tobj << [kerning str] << `B´ << [kerning `b´] ) )
  14 x:0dx
  15
  16 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  17 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  18 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  19 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  20 }
  21
  22 {
  23 fun: \ str tobj →
  24        ( newText << ( font | str ) << tobj << [kerning str] << `B´ << [kerning `b´] )
  25 x:1dx
  26
  27 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  28 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  29 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  30 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  31 }
  32
  33 {
  34 fun: \ str tobj →
  35        ( newText << str << ( font | tobj ) << [kerning str] << `B´ << [kerning `b´] )
  36 x:2dx
  37
  38 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  39 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  40 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  41 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  42 }
  43
  44 {
  45 fun: \ str tobj →
  46        ( newText << str << tobj << ( font | [kerning str] ) << `B´ << [kerning `b´] )
  47 x:3dx
  48
  49 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  50 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  51 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  52 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  53 }
  54
  55 {
  56 fun: \ str tobj →
  57        ( newText << str << tobj << [kerning str] << ( font | `B´ ) << [kerning `b´] )
  58 x:4dx
  59
  60 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  61 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  62 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  63 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  64 }
  65
  66 {
  67 fun: \ str tobj →
  68        ( newText << str << tobj << [kerning str] << `B´ << ( font | [kerning `b´] ) )
  69 x:5dx
  70
  71 IO..•page << [shift (x,~0cm)] [] [fun `A´ [kerning `a´]]
  72 IO..•page << font | ( [shift (x,~2cm)] [] [fun `A´ [kerning `a´]] )
  73 IO..•page << [shift (x,~4cm)] [] [fun (font | `A´) [kerning `a´]]
  74 IO..•page << [shift (x,~6cm)] [] [fun `A´ (font | [kerning `a´])]
  75 }