I also changed the cross size from the standard 5mm to 2mm ( from 10mm across to 4mm across) using #CHANGE CROSS HAIR SIZE #---------------------- # from 5mm to 2mm def s_hgrid (expr xpos, ypos, xsize, ysize) = pickup PenD; draw ( if xpos < 0: 0 else: -2mm fi, 0 ) -- ( if xpos > 0: 0 else: 2mm fi, 0 ); draw ( 0, if ypos < 0: 0 else: -2mm fi ) -- ( 0, if ypos > 0: 0 else: 2mm fi ); enddef; def s_vgrid_SM (expr xpos, ypos, xsize, ysize) = pickup PenD; draw ( if xpos < 0: 0 else: -xsize/4 fi, 0 ) -- ( if xpos > 0: 0 else: xsize/4 fi, 0 ) dashed evenly; enddef; so at a scale 1:2500, each cross is 10m across, a useful quick measurement guide. Sent from Mail for Windows From: A Gott Sent: 18 April 2024 22:22 To: List for Therion users Subject: Re: [Therion] More thoughts on Therion grids HI Everyone, I have just created the linked excel file for creating a bespoke grid using excel, it will autopopulate when you drag it down. For the horizontals and verticals select a full scrap/endscrap (plus space) set of cells to drag down and it will populate the next in the set. For the coordinates, select a full set of 4 station, fix, station, fix lines and drag them down and it will autopopulate, top boxes are the ones which need amending. To put it in a therion file, you will need to copy and "paste special values" into another excel window and then this should drop into a .th text file. Onedrive link to the excel file, let me know if you want it and can't download it. Therion_gridcreationfile.xlsx Grid Labels shouldn't be too hard to implement, by creating a scrap with some coordinate stations in it and then placing the labels for those stations next to coordinate stations. Regards, Alastair. On Thu, 18 Apr 2024 at 19:40, A Gott <alastairgott@gmail.com> wrote: HI Therion Mailing list, I have spent a couple of days looking over a few options with getting a grid onto the survey I sent around last week. below are the things I have tried. 1. Manipulating Freq of grid spacing 2. Looking at C++ Therion code 3. Creating a Grid.pdf plan file - To save reading, my take away was give up 4. Drawing Gridlines on .th2 for inclusion Two options now being considered: 1. using microsoft excel to create grid.th file 2. One for those with experience - Creating a script (Python?) to make the grid My findings on 1-4 are: 1. Manipulating Freq of grid spacing I did this as this had been suggested to me and was a good solution, but at the 40-50m spacing required to get the grid to show in full this left the top right and bottom right corners with duplicate coordinates written over each other. for a finished survey, this would not be an optimal solution to the problem. 2. Looking at C++ Therion code I'm not a coder but I tried to look at the C++/Cxx code for therion to try and make some amendments, but didn't realise when I tried to use it in the thconfig file, that it doesn't work the same as "code metapost". but when taking a look at it I found chunks of the code which I thought were relevant, and include these below my signature. 3) Creating a Grid.pdf plan file - To save reading, my take away was give up As the Manipulation of the frequency of the Grid spacing went ok, I decided I could potentially use this to create a background for the survey but including it in the files, I didn't make a plan (and wouldn't repeat) but this went along the lines of: 1. screenshot Survey, include image of survey in th2 file, place survey points at TR (top right) and BL coordinates required of the th2 file, set scrap scale as per survey scale. 2. create .th file which includes the two points as grid reference points, create .thconfig file to replicate the grid formation with no survey in it. 3. export to pdf, use online pdf converter to create .jpg file, and then use paint to remove the overlapping coordinates in the top right and bottom right of the grid. 4. use jpg as a background image in a .th2 file, include the coordinates etc in the main survey master .th file. 5. attempt to use "sketches on" to import this grid into the lowest part of the survey to ensure it is shown on the bottom. 6. give up waiting, as it was taking an age to 'warp' the sketch - abandon this as an idea. 4) Drawing Gridlines on .th2 for inclusion I think I could have skipped some of the above steps and used John Stevens example of drawing gridlines on a .th2 file earlier, advantages - get gridlines where you want, disadvantages - time consuming and potential for gridlines which don't look as polished as if a piece of software were doing it for you. I'm now considering 1. using microsoft excel to create grid.th file creating a microsoft excel file to create a grid.th file which will use one scrap for each vertical gridline and one for each horizontal gridline. something along the lines of: survey gridlines scrap Vert1 point 1 -1 station -name BotVert1 point 1 0 station -name TopVert1 line u:grid -clip off -place bottom 1 -1 1 0 endline endscrap scrap Vert2 point 2 -1 station -name BotVert2 point 2 0 station -name TopVert2 line u:grid -clip off -place bottom 2 -1 2 0 endline endscrap map scrap verticals Vert1 Vert2 endmap map grid scrap verticals scrap horizontals scrap labels endmap centreline cs OSGB:SK station BotVert1 fix BotVert1 realX realY 0 station TopVert1 fix TopVert1 realX realY1 0 ...etc... endcentreline 2. One for those with experience - Creating a script (Python?) to make the grid If anyone has any experience of it could they make a small script (like topparser is) that can make a .th file such as the above. My thoughts are that with a few small options this could be a quick win for a few people who are manually making their own grids. Therion already has an option to output coordinates for the bbox, these could be inputted into the script and then an option selected for the coordinate system, grid spacing, labeling frequency and placement Regards, Alastair Gott. ------------------- Therion source code I thought was most closely aligned to the above problem. CXX to control grid formation and pattern from line 775 on therion/thpdf.cxx GRIDLIST.clear(); if (LAYOUT.grid > 0) { converted_data scr; double a,b,c,d; parse_eps(LAYOUT.gridAA, "",0,0,a,b,c,d,scr,101); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[0].x = a; LAYOUT.gridcell[0].y = b; parse_eps(LAYOUT.gridAB, "",0,0,a,b,c,d,scr,102); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[1].x = a; LAYOUT.gridcell[1].y = b; parse_eps(LAYOUT.gridAC, "",0,0,a,b,c,d,scr,103); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[2].x = a; LAYOUT.gridcell[2].y = b; parse_eps(LAYOUT.gridBA, "",0,0,a,b,c,d,scr,104); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[3].x = a; LAYOUT.gridcell[3].y = b; parse_eps(LAYOUT.gridBB, "",0,0,a,b,c,d,scr,105); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[4].x = a; LAYOUT.gridcell[4].y = b; parse_eps(LAYOUT.gridBC, "",0,0,a,b,c,d,scr,106); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[5].x = a; LAYOUT.gridcell[5].y = b; parse_eps(LAYOUT.gridCA, "",0,0,a,b,c,d,scr,107); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[6].x = a; LAYOUT.gridcell[6].y = b; parse_eps(LAYOUT.gridCB, "",0,0,a,b,c,d,scr,108); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[7].x = a; LAYOUT.gridcell[7].y = b; parse_eps(LAYOUT.gridCC, "",0,0,a,b,c,d,scr,109); GRIDLIST.push_back(scr);scr.clear(); LAYOUT.gridcell[8].x = a; LAYOUT.gridcell[8].y = b; } PATTERNLIST.clear(); std::ifstream P("patterns.dat"); if(!P) therror(("Can't open patterns definition file!")); char buf[5000]; char delim[] = ":"; std::string line,num,pfile,bbox,xstep,ystep,matr; while(P.getline(buf,5000,'\n')) { num = strtok(buf,delim); pfile = strtok(NULL,delim); bbox = strtok(NULL,delim); xstep = strtok(NULL,delim); ystep = strtok(NULL,delim); matr = strtok(NULL,delim); // if (ALL_PATTERNS.count(num) > 0) { // changed to patt.used flag // because thsymbolset.cxx // calls eps_parse after // this function is called // and patterns referenced // there would be missing in this list pattern patt; patt.used = (ALL_PATTERNS.count(num) > 0); patt.name = num; matr.replace(matr.find("["),1,""); matr.replace(matr.find("]"),1,""); std::istringstream s1(matr); s1 >> patt.xx >> patt.xy >> patt.yx >> patt.yy >> patt.x >> patt.y; bbox.replace(bbox.find("["),1,""); bbox.replace(bbox.find("]"),1,""); std::istringstream s2(bbox); s2 >> patt.llx >> patt.lly >> patt.urx >> patt.ury; // F << "/Matrix " << matr << endl; // F << "/BBox " << bbox << endl; patt.xstep = atof(xstep.c_str()); patt.ystep = atof(ystep.c_str()); parse_eps(pfile , "", 0,0, patt.llx1,patt.lly1,patt.urx1,patt.ury1,patt.data,0); PATTERNLIST.push_back(patt); // } // patt.used } P.close(); } Cxx for Bounding control This was the first bit of code I noted down, before I kept proper refs of them, think it was Located in xtherion/thepsparse.cxx/from line 1336 if (J->second.minx > Llx) J->second.minx = Llx; if (J->second.miny > Lly) J->second.miny = Lly; if (J->second.maxx < Urx) J->second.maxx = Urx; if (J->second.maxy < Ury) J->second.maxy = Ury; Cxx for Layout Calibration two bits of code seem to be working together with the use of LAYOUT.calibration_hdist 1. code from Therion/thpdf.cxx/1620-1621 PAGEDEF << "\\pdfcatalog { /thCalibrate (HS=\\the\\adjustedHS, VS=\\the\\adjustedVS, HD=" << fmt::format("{}",thdouble(LAYOUT.calibration_hdist,10)) << ")}"; 2) code from therion/thexpmap.cxx/line 1862-1871 calpoint(0, lim.min.x, lim.min.y); calpoint(1, (lim.min.x + lim.max.x) / 2.0,lim.min.y); calpoint(2, lim.max.x, lim.min.y); calpoint(3, lim.min.x, (lim.min.y + lim.max.y) / 2.0); calpoint(4, lim.max.x, (lim.min.y + lim.max.y) / 2.0); calpoint(5, lim.min.x, lim.max.y); calpoint(6, (lim.min.x + lim.max.x) / 2.0,lim.max.y); calpoint(7, lim.max.x, lim.max.y); calpoint(8, (lim.min.x + lim.max.x) / 2.0, (lim.min.y + lim.max.y) / 2.0); LAYOUT.calibration_hdist = lim.max.x - lim.min.x; Cxx for Adjustments code from Therion/thpdf.cxx/1598-1608 PAGEDEF << "\\adjustedHS=" << fmt::format("{}",thdouble(HS,prec_xy)) << "bp" << "\\advance\\adjustedHS by \\extraE" << "\\advance\\adjustedHS by \\extraW" << "\\advance\\adjustedHS by \\overlap" << "\\advance\\adjustedHS by \\overlap" << std::endl; PAGEDEF << "\\adjustedVS=" << fmt::format("{}",thdouble(VS,prec_xy)) << "bp" << "\\advance\\adjustedVS by \\extraN" << "\\advance\\adjustedVS by \\extraS" << "\\advance\\adjustedVS by \\overlap" << "\\advance\\adjustedVS by \\overlap" << std::endl;