GRAPHREP

SHADOW off
AVAL set-default:"English" sp:"Language"
IF (sp = "System")
  IF (_uilang = "de")
    SET sp:"German"
  ELSE
    SET sp:"English"
  ENDIF
ENDIF

AVAL set-default:"no" mono:"Monochrome view"
IF (mono = "yes")
  SET bMono:1
ELSE
  SET bMono:0
ENDIF

PEN w:0.05cm

IF (bMono)
  SET color_aqua:(rgbval("white"))
  SET color_848484:(rgbval("$848484"))
  SET color_red:(rgbval("white"))
ELSE
  SET color_aqua:(rgbval("aqua"))
  SET color_848484:(rgbval("$848484"))
  SET color_red:(rgbval("red"))
ENDIF

FILL color:$ffe840
COMPOUND 2
LINE x1:1cm y1:-.5cm x2:-1cm y2:-.5cm
CURVE "t" f:(t) g:(-.2*sin(3.14*(t+2))+1.2) from:-1 to:1

IF (bMono)

FILL color:white
ELSE
  SHADOW off
  CLIP_RECT x:-1.0cm y:-0.5cm w:2.0cm h:2.0cm
  GRADIENT_RECT x:-1.0cm y:-0.5cm w:2.0cm h:1.47cm style:vert color1:$fff8c6 color2:$ffe840
  CLIP_OFF
  PEN w:0.08cm color:$ffdf00
  FILL style:null
ENDIF

COMPOUND 2
LINE x1:1cm y1:-.5cm x2:-1cm y2:-.5cm
CURVE "t" f:(t) g:(-.2*sin(3.14*(t+2))+1.2) from:-1 to:1

AVAL set-default:"" sRefDocument:"Referenced document"
AVAL col:"fontcolor"
AVAL sName:"Name"
AVAL sNameDE:"Bezeichnung"

SET sFile:(replall(token(sRefDocument, 1, "@"), "\"", ""))

IF (sFile != "")
  IF (tokcnt(sFile, ".") > 0)
    SET sExtension:( token(sFile, tokcnt(sFile, ".") - 1, ".") )
    SET sExtension:(lower(sExtension))
  ELSE
    SET sExtension:""
ENDIF

  # visualise icons
  IF ( (sExtension = "doc") OR (sExtension = "dot") OR (sExtension = "rtf") OR (sExtension = "txt") OR (sExtension = "pps") OR (sExtension = "ppt") OR (sExtension = "pdf") )
    # document, presetation or text files
    SET str_bitmap:("db:\\icon_document.png")
  ELSIF ( (sExtension = "xls") OR (sExtension = "csv") OR (sExtension = "xla") OR (sExtension = "xlt") OR (sExtension = "xl") OR (sExtension = "xlm") )
    # files with tabular content
    SET str_bitmap:("db:\\icon_table.png")
  ELSIF ( (sExtension = "htm") OR (sExtension = "html") )
    # web files
    SET str_bitmap:("db:\\icon_web.png")
  ELSIF ( (sExtension = "png") OR (sExtension = "bmp") OR (sExtension = "gif") OR (sExtension = "jpeg") OR (sExtension = "jpg") OR (sExtension = "svg") OR (sExtension = "emf") OR (sExtension = "pcx") )
    # graphic file type
    SET str_bitmap:("db:\\icon_gfx.png")
  ELSE
    # unknown file type
    SET str_bitmap:("db:\\icon_unknown.png")  
ENDIF

  SET cms_width:1.00cm
  SET cms_height:1.35cm

  BITMAPINFO (str_bitmap)  # get the bitmap size
  STRETCH off
  IF (bmpwidth / CMS cms_width < bmpheight / CMS cms_height)
    # use maximum height, space left and right
    SET w:(cms_height * (bmpwidth / bmpheight))
    BITMAP (str_bitmap) x:((0cm - w) / 2) y:((0.5cm - cms_height) /2) w:(w) h:(cms_height)
  ELSE
    # use maximum width, space at top and bottom
    SET h:(cms_width * (bmpheight / bmpwidth))
    BITMAP (str_bitmap) x:((0.0cm - cms_width) / 2) y:((0.5cm - h) / 2) w:(cms_width) h:(h)
  ENDIF

  FONT bold
  TEXT (sExtension) x:1cm y:-0.95cm w:r:2.0cm h:0.5cm line-break:rigorous
  FONT

  AVAL set-default:"0" bShowFilename:"Display file name"
  IF (bShowFilename = "1")
    SET nPos:(bsearch(sFile,"\\",-1))
    IF (nPos > 0)
      SET sBasename:(copy(sFile,nPos + 1,-1))
    ELSE
      SET sBasename:(sFile)
    ENDIF
    ATTR "Referenced document" text:(sBasename) y:1.6cm w:c:2.8cm h:t
  ELSE
  IF (sp = "English")
      ATTR "Referenced document" text:(sName) y:1.6cm w:c:2.8cm h:t
  ELSE
      ATTR "Referenced document" text:(sNameEN) y:1.6cm w:c:2.8cm h:t
    ENDIF
  ENDIF
ELSE
  FONT color:(col)

  IF (sp = "English")
    ATTR "Name" y:1.6cm w:c:2.8cm h:t
  ELSE
    ATTR "Bezeichnung" y:1.6cm w:c:2.8cm h:t
  ENDIF
ENDIF