GeMIS_WEB/GUI/Tools/Viper_Def.p

def var ii as int.
def var xx as int.
def var yy as int.
def var hh as int init 45.
def var bb as int init 0.
def var ccolor as char.
def var cc as char.
def var cal as char.

output to 'D:\Temp\Viper_Def.txt'.

yy = 1700.
xx = 160.
put control '   BeginObject=Rectangle'                      chr(10)
            '     Name=Rect_11'                             chr(10)
            '     X-mm='        trim(string(xx,'zzz9'))     chr(10)
            '     Y-mm='        trim(string(yy,'zzz9'))     chr(10)
            '     Width-mm=742'                             chr(10)
            '     Height-mm=770'                            chr(10)
            '     Filled=yes'                               chr(10)
            '     EdgePixels=1'                             chr(10)
            '     BgColour=0,0,0'                           chr(10)
            '   EndObject=Rectangle'                        chr(10) chr(10).
cc  = ''.
bb  = 130.
yy  = 1700 + 1.
cal = 'left'.
DO ii = 101 TO 117:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = 'Har.'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 90.
cal = 'left'.
DO ii = 121 TO 137:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = '6 Fl.'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 150.
cal = 'right'.
DO ii = 141 TO 157:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = '0.50'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 120.
cal = 'right'.
DO ii = 161 TO 177:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = '8.00'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 120.
cal = 'right'.
DO ii = 181 TO 197:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = ''.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 130.
cal = 'left'.
DO ii = 201 TO 217:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

/*  ----------------------------------------------------------  */

yy = 1700.
xx = 960.
put control '   BeginObject=Rectangle'                      chr(10)
            '     Name=Rect_12'                             chr(10)
            '     X-mm='        trim(string(xx,'zzz9'))     chr(10)
            '     Y-mm='        trim(string(yy,'zzz9'))     chr(10)
            '     Width-mm=864'                             chr(10)
            '     Height-mm=770'                            chr(10)
            '     Filled=yes'                               chr(10)
            '     EdgePixels=1'                             chr(10)
            '     BgColour=0,0,0'                           chr(10)
            '   EndObject=Rectangle'                        chr(10) chr(10).
            
cc  = ''.
bb  = 130.
yy  = 1700 + 1.
cal = 'left'.
DO ii = 221 TO 237:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = 'Flaschen'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 460.
cal = 'left'.
DO ii = 241 TO 257:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = '0.30'.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 150.
cal = 'right'.
DO ii = 261 TO 277:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

cc  = ''.
xx  = xx + bb.
yy  = 1700 + 1.
bb  = 120.
cal = 'left'.
DO ii = 281 TO 297:
    if ii mod 2 = 0 then ccolor = '225,225,225'.
    else                 ccolor = '255,255,255'.
    
    put control '   BeginObject=Text'                           chr(10)
                '     Name=Text_'   TRIM(STRING(ii,'zzz9'))     chr(10)
                '     X-mm='        trim(string(xx + 1,'zzz9')) chr(10)
                '     Y-mm='        trim(string(yy + 1,'zzz9')) chr(10)
                '     Width-mm='    trim(string(bb - 1,'zzz9'))     chr(10)
                '     Height-mm='   trim(string(hh,'zzz9'))     chr(10)
                (IF cc <> '' THEN '     TextValue=' + cc +      chr(10)
                             ELSE '')
                '     Autowrap=false'                           chr(10)
                '     AutoResize=no'                            chr(10)
                '     FgColour=0,0,0'                           chr(10)
                '     BgColour='    ccolor                      chr(10)
                '     FontNo=9'                                 chr(10)
                '     Alignment='   cal                         chr(10)
                '   EndObject=Text'                             chr(10) chr(10).
    yy = yy + hh.
end.

output close.