(!****************************************************** Mosel graph examples ==================== file schedule.mos ````````````````` Produces a Gantt chart with rectangles per task, colored per job. - Using SVG animation - (only visible with browsers supporting SVG animation) Uses functions from the mmsvg library to draw a "User graph" in SVG format. (c) 2008 Fair Isaac Corporation Creation: 2002, rev. Sep. 2017 *******************************************************!) model schedule options noimplicit uses "mmsystem","mmsvg" declarations NUMM=6 NUMJ=6 MACHINES=1..NUMM JOBS=1..NUMJ job: array(JOBS) of string curmachine, curjobs, curt: integer ! Iterators n1,n2,n3,mint,maxt: integer DURANIM=10 ! Duration of animation in sec SCALE=10 ! Display scaling factor DFACT: real axml: text end-declarations ! svgsetgraphviewbox(0,0,60,7) ! Define graph colours forall(j in JOBS) do job(j):="J"+j svgaddgroup(job(j), "Job "+j) svgsetstyle(SVG_STROKE,SVG_GRAY) svgsetstyle(SVG_FILL,SVG_CURRENT) svgsetstyle(SVG_FILLOPACITY,0,8) end-do ! Read data from file and draw a Gantt chart fopen("schedule.dat",F_INPUT) readln(mint,maxt) DFACT:=DURANIM/(maxt-mint) forall(i in MACHINES) do readln(n1,n2) ! Read the machine number and number of jobs per machine writeln("Machine ",n1," Jobs:",n2) curmachine:=n1 curjobs:=n2 forall(j in 1..curjobs) do readln(n1,n2,n3) ! Read the job number, start time, finish time writeln("On machine ", curmachine," job ",n1," starts at ",n2, " and finishes at ",n3) svgaddrectangle(job(n1),n2,curmachine*10,n3-n2,0.5*10) curt:=svggetlastobj svgsetstyle(curt, SVG_VISIBILITY, "visible") ! Adding SVG animation changing the transparency level over time axml:='<set attributeName="visibility" attributeType="CSS" to="hidden" begin="0s" dur="'+(n2-mint)*DFACT+'s"/>'+
       '<set attributeName="visibility" attributeType="CSS" to="visible" begin="'+(n2-mint)*DFACT+'s" dur="'+(n3-n2)*DFACT+'s" fill="freeze"/>'+
       if(n3<maxt,'<set attributeName="fill-opacity" attributeType="CSS" to="0.4" begin="'+(n3-mint)*DFACT+'s" dur="'+(DURANIM-(n3-mint)*DFACT)+'s"/>',"") svgsetstyle(curt, SVG_ANIMATE, axml) svgaddtext(job(n1),(3*n2+n3)/4,curmachine*10+1,"Job "+n1) svgsetstyle(svggetlastobj,SVG_COLOR,SVG_BLACK) end-do end-do fclose(F_INPUT) ! Draw a line indicating the makespan (=termination of the schedule) svgaddgroup("Makespan", "Makespan", SVG_GREY) svgaddtext(maxt, 6, "Makespan="+maxt) svgsetstyle(svggetlastobj, SVG_TEXTANCHOR, "end") svgaddline(maxt, 9, maxt, (NUMM+0,5)*10+1) ! Animate the line to move from 0 to the end of the schedule svgsetstyle(svggetlastobj, SVG_ANIMATE, '<animate attributeName="x1" attributeType="XML" from="0" to="'+maxt*SCALE+'" begin="0s" dur="'+DURANIM+'s"/><animate attributeName="x2" attributeType="XML" from="0" to="'+maxt*SCALE+'" begin="0s" dur="'+DURANIM+'s"/>')
(! Equivalent:
 svgsetstyle(svggetlastobj, SVG_ANIMATE, '<animateMotion path="M -'+maxt*SCALE+' 0 0 0" begin="0s" dur="'+DURANIM+'s" fill="freeze"/>')
!)
 svgsetgraphscale(SCALE)
 svgsetgraphlabels("Time", "Machines")

 svgsave("schedule.svg")
 svgrefresh
 svgwaitclose("Close browser window to terminate model execution.", 1)
end-model