myImage = ImageNew("",FORM.WIDTH,FORM.HEIGHT); filePath = GetTempDirectory() & "export_#createUUID()#.png"; for(row=0;row lt FORM.ROWS;row=row+1) { rowData = FORM["R"&row]; currentCol = 0; for(colorDefCnt = 1; colorDefCnt lte ListLen(rowData,",");colorDefCnt=colorDefCnt+1) { colorDef = ListGetAt(rowData,colorDefCnt,","); colorDefWidth = ListLen(colorDef,":") eq 1 ? 1 : ListGetAt(colorDef,2,":"); colorDefColor = ListGetAt(colorDef,1,":"); // missing zeros in front sometimes... if(Len(colorDefColor) neq 6) colorDefColor = Left("000000",6-Len(colorDefColor)) & colorDefColor; ImageSetDrawingColor(myImage,colorDefColor); ImageDrawLine(myImage,currentCol,row,currentCol+colorDefWidth,row); currentCol = currentCol+colorDefWidth; } } ImageWrite(myImage, filePath);