Sub DrawSomething(pdf as DynaPDFMBS)
  // draw all colorants with their own color
  Dim MyX, MyY as Double
  
  MyX = 10
  MyY = 100
  
  // set a font
  call pdf.SetFont "Times", pdf.kfsItalic, 10.0, true, pdf.kcp1252
  
  // loop over all color spaces
  dim Colorcount as Integer = pdf.GetColorSpaceCount
  
  For j as Integer = 0 to Colorcount-1
    MyX = 10
    dim MyColourSpace as DynaPDFColorSpaceMBS = PDF.GetColorSpaceObj(j)
    dim ColorantsCount as Integer = MyColourSpace.ColorantsCount
    dim c as Integer = MyColourSpace.NumInComponents
    Call pdf.SetExtColorSpace j
    
    // draw name of each colorant
    for i as Integer = 0 to c-1
      
      // build array with colors and set 100% for the one color we need
      dim values() as Double
      redim values(c-1)
      values(i) = 1.0
      
      // get name
      dim name as string = "#"+str(i)
      if i <= ColorantsCount then
        name = MyColourSpace.Colorants(i)
      end if
      
      // seaw name
      Call pdf.SetFillColor(values)
      call pdf.WriteText(MyX,MyY, name)
      
      // next
      MyX = MyX + pdf.GetTextWidth(name) + 20
    next
    
    // next
    MyY = MyY+20
  Next
End Sub