@SysInclude { fontdefs	}
@SysInclude { langdefs	}
@SysInclude { dl	}
@SysInclude { reportf	}

def @MySimpleSectionHeadingFormat
  left number
  right title
{
  @Box paint { gray } @HExpand white @Colour { 2f @Font number }
  //1v title
}

def @MyFancySectionHeadingFormat
  left number
  right title
{
  { -1 ft 0 moveto 0 ysize rlineto
    0.25 ft setlinewidth stroke }
  @Graphic {
    @Box paint { gray } @HExpand { @Right white @Colour { 2f @Font number } }
    //1v 1.5f @Font title //1v
  }
}

@Use { @DocumentLayout }

@Use { @ReportLayout
  @SectionHeadingFormat { number @MyFancySectionHeadingFormat title }
}

@Report
  @CoverSheet { No }
  @Author { A.U.~Thor }
  @Title { Testing { -1p Helvetica Base } @Font "@*HeadingFormat" }
//

@Section
  @Title { This is a Sample Section }
@Begin
@PP 
Section text goes here.  Section text goes here.  Section text goes
here.  Section text goes here.  Section text goes here.  Section text
goes here.  Section text goes here.  Section text goes here.  Section
text goes here.  Section text goes here.  Section text goes here.
Section text goes here.  Section text goes here.
@End @Section