GRAPHREP
SHADOW off

AVAL istwert:"Entry_IST-Wert"
AVAL me:"Unit"
AVAL strState:"Entry_Status"
AVAL score:"Scorevalue"
AVAL sp:"Language"
IF (sp = "System")
  IF (_uilang = "de")
    SET sp:"German"
  ELSE
    SET sp:"English"
  ENDIF
ENDIF

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

PEN w:0.08cm

IF (bMono)
  SET color_dodgerblue:(rgbval("white"))
  SET color_yellow:(rgbval("white"))
  SET color_lime:(rgbval("white"))
  SET color_red:(rgbval("white"))
ELSE
  SET color_dodgerblue:(rgbval("dodgerblue"))
  SET color_yellow:(rgbval("yellow"))
  SET color_lime:(rgbval("lime"))
  SET color_red:(rgbval("red"))
ENDIF

  FONT h:(PT grad)

IF ( VAL visstat <> 1 )
  SET strState:""
ENDIF

IF (sp = "English")
  ATTR "Name" x:0cm y:t:.9cm w:c:2cm h:t
  ATTRBOX "Name" x:0cm y:t:.9cm w:c:2cm h:t
ELSE
  ATTR "Bezeichnung" x:0cm y:t:.9cm w:c:2cm h:t
  ATTRBOX "Bezeichnung" x:0cm y:t:.9cm w:c:2cm h:t
ENDIF

FILL color:(color_dodgerblue)
PEN w:0.08cm

IF (NOT bMono)
  FILL color:royalblue
  # start - smooth shaded colors
  CLIP_ELLIPSE rx:.7cm ry:.7cm
  GRADIENT_RECT x:-0.7cm y:-.7cm w:1.4cm h:1.4cm style:updiag
      color1:white color2:blue
  PEN w:0.08cm color:royalblue join:miter
  FILL style:null
  CLIP_OFF
  # end - smooth shaded colors
ENDIF

ELLIPSE rx:.7cm ry:.7cm

IF (NOT bMono)
  # start - smooth shaded colors
  CLIP_ELLIPSE rx:.5cm ry:.5cm
  GRADIENT_RECT x:-0.7cm y:-.7cm w:1.4cm h:1.4cm style:updiag
      color1:white color2:$ffffb0
  FILL style:null
  CLIP_OFF
  # end - smooth shaded colors
ENDIF

ELLIPSE rx:.5cm ry:.5cm

IF (NOT bMono)
  # start - smooth shaded colors
  CLIP_ELLIPSE rx:.3cm ry:.3cm
  GRADIENT_RECT x:-0.7cm y:-.7cm w:1.4cm h:1.4cm style:updiag
      color1:yellow color2:red
  PEN w:0.08cm color:$fe5901 join:miter
  FILL style:null
  CLIP_OFF
  # end - smooth shaded colors
ENDIF

ELLIPSE rx:.3cm ry:.3cm

IF (VAL vist = 1)
  FONT h:10pt
  AVAL istwert:"Entry_IST-Wert"
  ATTRBOX "Entry_IST-Wert" text:(istwert) x:(-0.05cm) y:(texty2+0.1cm) w:c h:t
  ATTR "Entry_IST-Wert" text:(istwert) x:(textx1) y:(texty1) w:l h:t
ENDIF

IF (me <> "")
  ATTRBOX "Unit" x:(-.15cm) y:(texty2+0.1cm) w:c h:t
  ATTR "Unit" text:("["+me+"]") x:(textx1) y:(texty1) w:l h:t
ENDIF

IF (VAL vs = 1)
  FONT h:10pt
  IF (k = "Year")
  TEXT "Y"
  x:-0.75cm y:-1.1cm
  ELSIF (k = "Half-year")
  TEXT "HY"
  x:-0.75cm y:-1.1cm
  ELSIF (k = "Quarter")
  TEXT "Q"
  x:-0.75cm y:-1.1cm
  ELSIF (k = "Month")
  TEXT "M"
  x:-0.75cm y:-1.1cm
  ELSIF (k = "Week")
  TEXT "W"
  x:-0.75cm y:-1.1cm
  ELSIF (k = "Day")
  TEXT "D"
  x:-0.75cm y:-1.1cm
  ENDIF
ENDIF