Re: [Therion] Therion and DEM

[Pavel Herich via Therion]

Hi,
I do strugle with the same problem, if I understand well; partly there 
is solution tu cut all grid values after f.e. second number behind point 
(if you have values like I do - 1205.648971354 and so), you fit almost 
twice of values into the line.

I did not experiece any troubles with number of columns, so
I suppose real solution would be to extend line in Therion, but I don´t 
know, if it´s possible.

Pavel


Dňa 2019-01-23 10:25 Marco Menchise via Therion napísal(a):

Hello,
I'm facing same problem.

Any hint/answer?
Thanks,
Marco

Il giorno ven 29 giu 2018 alle ore 00:38 Xavier Robert via Therion
 ha scritto:


Dear all,

For a quite large project, I am using a relatively high-resolution
DEM (i.e. 1 px = 1 m), and I am trying to use it within Therion to
produce a .lox-3D file. I am however facing some problems:

* If I export the full resolution DEM to a .th file (6540*4307
cells) with the line "grid 325816.2990788577 5106250.599820679 1 1
6540 4307 ». I have the error « therion: error -- dem.th [1] [14]
-- line too long ». This line 14 correspond to the first row of the
DEM. ASC parameters are « #NCOLS = 6540, NROWS   = 4307, XLLCORNER
= 325816.2990788577, YLLCORNER =5106250.599820679, CELLSIZE = 1.0 »
* If I export the DEM with a 5 m pixel resolution (1308*861 cells)
(with the line "grid 325816.299079 5106250.59982 5.001161440185831
5.001161440185831 1308 861 », I get the same error,
* If I export the DEM with a 10 m pixel resolution (654 * 431
cells) (with the line « grid 325816.299079 5106250.59982
9.996519721577727 9.996519721577727 654 431 »), everything compiles
OK and the result is quite OK


(https://www.groupe-speleo-vulcain.com/wp-content/themes/custom_theme/3d/JB.html

; be patient, it takes time to load), but not with the full
resolution.

The process to build each .th DEM is exactly the same, I do not
touch any end of line. I edit the .asc DEM with vi to translate it
into a .th file.

I thus suspect that there is a size limitation for the DEM in
Therion, I imagine a limitation in the number of row/columns of the
DEM.

* Is that true ?
* If yes, what is this size limit for DEMs ?
* As anyone an idea how to overtake that and use the full
resolution DEM ?

Cheers,

Xavier

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion



Links:
--
[1] http://dem.th
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion-cs] Definovanie symbolov

[Pavel Herich via Therion-cs]

Ahoj,
v prílohe to máš, otvor v Notepade++ alebo Wordpade.
Paľo




Dňa 2019-01-10 23:11 Matej Ševčík via Therion-cs napísal(a):

Ahojte
Prosím vás nemá niekto definíciu pre symboly "area_debris_AUT",
"area_blocks_AUT" a "area_pebbles_AUT", chcel by som ich modifikovať
a viem nájsť len definíciu pre tieto symboly typu SKBB.

Ďakujem

M. Ševčík
___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs
% Austrian Symbol Set, author Georg Pacher

% color (for Austrian symbol-set)

color col_water_bg;
col_water_bg :=(226/255,244/255,253/255);

%%%


%% areas

% returns true if pair point lies within path q. 
% outside_point is any pair outside of path q (needed for reference).
vardef pointinside(expr pt,q,outside_point)=
  T:=identity;
  path test;
  test:= outside_point--pt;
  %thdraw test;
  boolean isinside;
  isinside:=false;
  numintersections:=recgetnumintersections(test,q,0);
  if (numintersections <0):
isinside:=true;
  elseif odd(numintersections):
 isinside:=true;
  else:
 isinside:=false;
  fi;
  isinside
enddef;

% get number of intersection between paths p (length 1!) and q
% recnum is needed for limitation of recursions. 
% If the number of allowed recursions is reached, a negativ number of intersections is returned
vardef recgetnumintersections(expr p,q,recnum)=
  
  pair inter;
  save preinter;
  save postinter;
  save numintersections;
  path preinter, postinter;
  inter:=p intersectiontimes q;
  %show recnum;
  if recnum >25:
numintersections:=-100;
  else:  
if xpart(inter)>0 :
 %show (xpart inter);
% split p into two paths and call yourself again

preinter:=subpath (0,xpart(inter)-2eps) of p;

postinter:=subpath (xpart(inter)+2eps,1) of p;

numintersections:= recgetnumintersections(preinter,q,recnum+1)
 + recgetnumintersections(postinter,q,recnum+1)
 + 1;
else:
  numintersections:=0;
fi;
  fi;
  numintersections
  
enddef;

beginpattern(pattern_water_AUT);
draw origin--10up withpen pensquare scaled (0.02u);
patternxstep(.18u);
patterntransform(identity rotated 90);
endpattern;

beginpattern(pattern_sump_AUT);
draw origin--(0,.25u) withpen pensquare scaled (0.02u);
draw origin--(.25u,0) withpen pensquare scaled (0.02u);
endpattern;

beginpattern(pattern_sand_AUT);
pickup PenC;
p:= origin -- (0.01u,0.01u);
for i=0.0u step 0.2u until 2.4u:
for j=0.0u step 0.2u until 2.4u:
  draw p rotated uniformdeviate(360) 
   shifted ((i,j) randomized 0.09u);
endfor;
endfor;
if BaseScale<=2.5:
  my_step:=2.4u;
else:
  my_step:=2.6u;
fi;
patternstep(my_step,my_step);   
endpattern;

beginpattern(pattern_pebbles_AUT);
pickup PenC;
path qq;
for i=0.0u step 0.3u until 5.1u:
for j=0.0u step 0.3u until 5.1u:
  qq := (superellipse((.1u,0),(0,.05u),(-.1u,0),(0,.-.05u),.75))
 randomized (u/45)
 scaled (uniformdeviate(0.4)+.55)
 rotated uniformdeviate(360) 
 shifted ((i,j) randomized 0.15u);
   draw qq;
endfor;
endfor;
patternstep(5.1u,5.1u);
endpattern;

beginpattern(pattern_ice_AUT);
pickup PenC;
p:=(-.15u,.0u) -- (0.15u,.0u);
draw p;
draw p shifted (0.25u,.0u) rotated (90);
draw p shifted (0.45u,0.25u);
draw p shifted (0.0u,0.45u) rotated (90);
patternxstep(.9u);
patternystep(0.5u);
endpattern;

def a_water_AUT (expr Path) =
  T:=identity;
  thclean Path;
  pickup PenC;
  thfill Path withcolor col_water_bg;
  thfill Path withpattern pattern_water_AUT;
  thdraw Path;
enddef;

def a_sump_AUT (expr Path) =
  T:=identity;
  thclean Path;
  pickup PenC;
  thfill Path withcolor col_water_bg;
  thfill Path withpattern pattern_sump_AUT;
  thdraw Path;
enddef;

def a_sand_AUT (expr Path) =
  T:=identity;
%  thclean Path;
  thfill Path withpattern pattern_sand_AUT ;
enddef;

let a_clay_AUT = a_sand_AUT;


def a_pebbles_AUT (expr p) =
  T:=identity;
  thfill p withpattern pattern_pebbles_AUT;
enddef;



def a_debris_AUT (expr p) =
  T:=identity;
  
  symbol_distance:=1.0;
  scale_factor:= 0.3;
  pickup PenC;
  path q, qq; q = bbox p;
  pair outside;
  outside:= ulcorner q + up;
  picture tmp_pic; 
  uu := max(u, (xpart urcorner q - xpart llcorner q)/100, (ypart urcorner q - ypart llcorner q)/100);
  tmp_pic := image(
 for i = xpart llcorner q step symbol_distance*uu until xpart urcorner q:
for j = ypart llcorner q step symbol_distance*uu until ypart urcorner q:
   qq := punked (((-.5uu,-.5uu)--(.5uu,-.5uu)--(1.05uu,0.01uu)--(.5uu,.5uu)--(-.5uu,.5uu)--cycle) 
   randomized (uu/2))
   scaled (uniformdeviate(0.4)+scale_factor )
   rotated uniformdeviate(360) 
   shifted ((i,j) randomized 0.5uu);
   if xpart (p intersectiontimes qq) < 0:
  

[Therion] Metapost

[Pavel Herich via Therion]

Hi all,
I look for code of "snail shell" written in metapost, to use it as point 
u (for organodetritic limestone layers), but I am not able to find 
anything, as well I haven´t any skills to write it by myself. Does 
anybody posses this kind of code?

Thank you
Pavel
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] Nautiz X8

[Pavel Herich via Therion]

Hi Bruce,
as you write, it´s enough to wipe it barehanded, very fast once or two 
times and screen works again, not necessary to dry or clean it 
perfectly. I have been using the device in many slovak caves, and I 
haven´t found any place, where would be impossible to draw a sketch, 
just sometimes I had to protect the screen with whole body like a 
serpent twists around the branch. I just wonder how it would be in some 
really rainy cave.

Hope I have answered your questions, good luck
Pavel

Dňa 2018-11-04 23:35 Bruce Mutton via Therion napísal(a):

Hi Pavel

It might be difficult for me to get device to test before buying, so I
just want to clarify the significance of this issue that you
mentioned...

"it´s necessary to protect screen from drops of water, even small
ones are registered and making some effect on screen".

You are using it a lot, as you mention, and I assume that you are
using the device underground.  Therefore I assume that from time to
time water droplets, wet mud and sand on the display are inevitable.
It happens for me all the time, and I wipe with my hand, lick the
display clean (yuk), or wash it in a stream or from my water bottle.

* Does this scenario make the X8 unusable for drawing and typing, or
just mildly annoying?
* What about wiping it with a cloth after washing it.  Does that fix
it?

(I have a non-caving device, that once wet, needs to be removed from
the humid environment completely before the display will respond
correctly - drying with a non-absorbent cloth is not sufficient - I
want to make sure the X8 is not like this).

Regards

Bruce

-Original Message-
From: Therion  On Behalf Of Bruce Mutton
via Therion
Sent: Saturday, 3 November 2018 18:02
To: 'List for Therion users' 
Cc: Bruce Mutton 
Subject: [Therion] Nautiz X8

Thanks for the insights Pavel.

I can see those side buttons are in exactly the wrong place.

I too would be after the Windows version, I understand the Windows
ones can run Android, but not vice versa.

So before proceeding I will check PocketTopo speed, stylus and water
response.  All our caves are such that devices are constantly wet and
muddy while surveying. That the Nautiz display responds badly to water
surprizes me, as our Trimble Recons have never responded to water
(except once when swimming), and that assumption is the reason I am
looking at them.

Regards

Bruce

-Original Message-

From: Therion  On Behalf Of Pavel Herich
via Therion

Sent: Saturday, 3 November 2018 03:18

To: List for Therion users 

Cc: Pavel Herich 

Subject: Re: [Therion] Nautiz X8

Hello,

i´m using it for more than two years now, 3 to 15 times per month. My
device is built on windows, so there is PocketTopo installed. For me
it works great, strong battery, quite big screen, I use to clean it
just directly under the flowing water. But on the other hand,
surprisingly PocketTopo turned out to run significantly slower than on
the previous, old and cheap PDA (means menu reactions, context menu
calling and so; it doesn´t affect bleutooth connection or any other
core functionalities - anyway it could be just some settings error).
Then, I had to replace stylus, which was very wide and not draw
friendly, instead I use thin stylus from old PDA (metal core), which
doesn´t works perfectly, but it´s much better to work with. As well,
the screen is not so precise for drawing than on my old PDA, partly
perhaps because of bigger screen, but I think the technology has been
changed (you can use only plastic, thin protection of the screen to be
able to use old and precise stylus).

Also, the two buttons (arrows) on the left side of the device I found
very annoying - there are right there, where one would hold the
device, they manage volume, which is very necessary to work with
inside the cave...; I will try to seal them once. And last thing,
it´s necessary to protect screen from drops of water, even small ones
are registered and making some effect on screen.

So that´s all troubles I noticed, otherwise you can count with this
device anywhere.

But to use it just to draw a raw sketch in PocketTopo or Topodroid,
it´s bit expensive (f.e. DigiTerra explorer - basic GIS software can
be instaled).

Pavel

Dňa 2018-10-31 19:06 Bruce Mutton via Therion napísal(a):


Good Morning.



Does anyone have experience with these?



Nautiz X8









https://www.handheldgroup.com/rugged-computer/handheld-pda/nautiz-x8/#tab=tecspec[1]






http://ruggedpcreview.com/3_handhelds_handheldus_nautiz_x8.html [2]




https://www.handheldgroup.com/rugged-solutions/Customer-Solutions/nautiz-x8-extreme-environment-surveying-with-rugged-handhelds







Bruce

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] Nautiz X8

[Pavel Herich via Therion]

Hello,
i´m using it for more than two years now, 3 to 15 times per month. My 
device is built on windows, so there is PocketTopo installed. For me it 
works great, strong battery, quite big screen, I use to clean it just 
directly under the flowing water. But on the other hand, surprisingly 
PocketTopo turned out to run significantly slower than on the previous, 
old and cheap PDA (means menu reactions, context menu calling and so; it 
doesn´t affect bleutooth connection or any other core functionalities - 
anyway it could be just some settings error). Then, I had to replace 
stylus, which was very wide and not draw friendly, instead I use thin 
stylus from old PDA (metal core), which doesn´t works perfectly, but 
it´s much better to work with. As well, the screen is not so precise for 
drawing than on my old PDA, partly perhaps because of bigger screen, but 
I think the technology has been changed (you can use only plastic, thin 
protection of the screen to be able to use old and precise stylus). 
Also, the two buttons (arrows) on the left side of the device I found 
very annoying - there are right there, where one would hold the device, 
they manage volume, which is very necessary to work with inside the 
cave...; I will try to seal them once. And last thing, it´s necessary to 
protect screen from drops of water, even small ones are registered and 
making some effect on screen.
So that´s all troubles I noticed, otherwise you can count with this 
device anywhere.
But to use it just to draw a raw sketch in PocketTopo or Topodroid, it´s 
bit expensive (f.e. DigiTerra explorer - basic GIS software can be 
instaled).

Pavel




Dňa 2018-10-31 19:06 Bruce Mutton via Therion napísal(a):

Good Morning.

Does anyone have experience with these?

Nautiz X8

https://www.handheldgroup.com/rugged-computer/handheld-pda/nautiz-x8/#tab=tecspec
[1]

http://ruggedpcreview.com/3_handhelds_handheldus_nautiz_x8.html [2]

https://www.handheldgroup.com/rugged-solutions/Customer-Solutions/nautiz-x8-extreme-environment-surveying-with-rugged-handhelds/
[3]

Bruce

Links:
--
[1]
https://www.handheldgroup.com/rugged-computer/handheld-pda/nautiz-x8/#tab=tecspec
[2] http://ruggedpcreview.com/3_handhelds_handheldus_nautiz_x8.html
[3]
https://www.handheldgroup.com/rugged-solutions/Customer-Solutions/nautiz-x8-extreme-environment-surveying-with-rugged-handhelds/
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] Cave-list command

[Pavel Herich via Therion]

Hi,
just add location on into thconfig:
export cave-list -location on -o entrances.html

Pavel Herich


Dňa 2018-10-04 09:00 Matthieu Egels via Therion napísal(a):

I work on a large project of topography in the south east of France.
My project contains 17 caves and I use cave-list command to export it
in html format it work fine but is it possible to export coordinates
of each entrance in the html file? In did not found any about this in
the thérion book.

Matthieu EGELS
Maître de Conférence.

Université d'Aix-Marseille

Enseignement:
IUT d'Aix-Marseille, Dep. GEII.
142 traverse Charles Susini BP 157
13388 Marseille cedex 13

Recherche:
IM2NP (UMR 7334 CNRS)
Technopôle de Château Gombert
Campus de Polytech Marseille
60 rue Frédéric Joliot Curie
Bâtiment Néel - 2eme étage
13453 Marseille cedex 13
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] LIDAR porvrch

[Pavel Herich via Therion]

Michaliči,
ten posun môže byť aj kvôli nerovnakým súradnicovým systémom. Tie 
lidarové dáta sú v UTM34N.

Paľo




Dňa 2018-01-15 18:21 Michal Danko via Therion napísal(a):

ahojte,
tak asi som bol na limite therionu pretoze ked som konvertoval na
rozmer 2 x2 m povrch mi spravilo z  lidar dat. akurat ze dve hrany mam
ohranicene na 0 a vyskovo sa mi to zda byt nepresne. respektive
posunute o nejake metre..

v prilohe teda prvy polo/uspesny pokus povrchu z lidar dat .. .

S pozdravom

Ing. Michal Danko

2018-01-15 14:37 GMT+01:00 Michal Danko :


Ahojte,
hram sa s lidar datami a mam trosku problem. neviem ci som sa dostal
na obmedzenie therionu alebo robim nieco zle.

vstupne data som mal stvorec

48.99146, 19.67295
48.98282, 19.68312

vo formate tif, ktory som konvertoval cez gdal na txt - ArcInfo Asci
Grid

gdal_translate -of AAIGrid zlomiska.tif zlomiska-povrch.txt

cez gdalinfo som zobrazil  taketo hodnoty:

Driver: GTiff/GeoTIFF
Files: DMR_Zlomiska.tif
Size is 1118, 2310
Coordinate System is:
PROJCS["WGS 84 / UTM zone 34N",
GEOGCS["WGS 84",
DATUM["WGS_1984",
SPHEROID["WGS 84",6378137,298.257223563,
AUTHORITY["EPSG","7030"]],
AUTHORITY["EPSG","6326"]],
PRIMEM["Greenwich",0,
AUTHORITY["EPSG","8901"]],
UNIT["degree",0.0174532925199433,
AUTHORITY["EPSG","9122"]],
AUTHORITY["EPSG","4326"]],
PROJECTION["Transverse_Mercator"],
PARAMETER["latitude_of_origin",0],
PARAMETER["central_meridian",21],
PARAMETER["scale_factor",0.9996],
PARAMETER["false_easting",50],
PARAMETER["false_northing",0],
UNIT["metre",1,
AUTHORITY["EPSG","9001"]],
AXIS["Easting",EAST],
AXIS["Northing",NORTH],
AUTHORITY["EPSG","32634"]]
Origin = (403129.7172060,5427465.21999739230)
Pixel Size = (0.500,-0.500)
Metadata:
AREA_OR_POINT=Area
DataType=Generic
Image Structure Metadata:
INTERLEAVE=BAND
Corner Coordinates:
Upper Left  (  403129.720, 5427465.220) ( 19d40'32.80"E,
48d59'32.95"N)
Lower Left  (  403129.720, 5426310.220) ( 19d40'33.79"E,
48d58'55.55"N)
Upper Right (  403688.720, 5427465.220) ( 19d41' 0.30"E,
48d59'33.26"N)
Lower Right (  403688.720, 5426310.220) ( 19d41' 1.29"E,
48d58'55.87"N)
Center  (  403409.220, 5426887.720) ( 19d40'47.05"E,
48d59'14.41"N)
Band 1 Block=1118x1 Type=Float32, ColorInterp=Gray

z nich som sa pokusil vytvorit SURFACE.TH [1].

encoding  utf-8
surface
CS UTM34
GRID 403129.72 5426310.22 0.5 0.5 1118 2310
input zlomiska-povrch.txt
endsurface

netusim ci mam spravny grid, tak ak sa dakto do toho vyzna prosim
skontrolujte pretoze pri kompilacii dostanem chybu..

ERROR -- LIDAR/ZLOMISKA-POVRCH.TXT [7] -- LINE TOO LONG
WRITING XTHERION FILE ... DONE

7- je riadok kde zacinaju vyskove data..(riadkov je 2310 )

S pozdravom

Ing. Michal Danko




Links:
--
[1] http://surface.th
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion-cs] Prevzdušnenie zeminy v Therione

[Pavel Herich via Therion-cs]

Áno Martin pomohlo, ďakujem
Paľo menil som čo som vedel, aj som to skúšal cez AUT, UIS príkazy, aj 
ten symbol-assign som mal vypnutý, ale nejak sa to nechcelo meniť, 
neviem kde je chyba, každopádne keď som to definoval ako "u" a zadal 
tam Martinové údaje tak to funguje fajn, takže asi to urobím takto. 
Každopádne ak môžem ešte.


To by si musel prekompilovať Therion. Ale od toho sú uživateľské
značky, aby sa nesiahalo do zdrojového kódu.

___ nemusíš nič prekompilovávať, toto si vlož do configu (všimni si 
"-layout ph" v druhom riadku (za tým môže byť aj ďalší s niečim iným: 
-layout xy)):


source dedicny_brloh_th.th
export map -output dedicny_brloh.pdf -layout ph

layout ph
code metapost
  def a_sand (expr p) =
  T:=identity;
%  thclean p;
  pickup PenC;
  path q; q = bbox p;
  picture tmp_pic;
  tmp_pic := image(
for i = xpart llcorner q step 0.4u until xpart urcorner q:
  for j = ypart llcorner q step 0.4u until ypart urcorner q:
draw origin shifted ((i,j) randomized 0.7u) withpen PenC;
  endfor;
endfor;
  );
  clip tmp_pic to p;
  drawoptions();
  draw tmp_pic;
enddef;
endcode
endlayout



Neviem ako potom určiť farbu - keď si nakreslím "area u:bahno" tak 
neviem definovať farbu. Cez "symbol-color area u:bahno 50" to nejak 
nefunguje ani keď zadám [50 50 50].
Treba farbu definovať niekde v "beginpattern(pattern_bahno);", alebo 
"def a_u_bahno(expr Path) =" alebo ako?


To by som musel skúmať je na to niečo ako „withcolor“

 tu sme pri dlhodobom probléme, pre značky typu u:niečo nefungujú 
príkazy typu symbol-color, symbol-hide a podobne. Takže sa s nimi nedá 
moc dobre pracovať. Jediná možnosť zatiaľ, ako ich nezobraziť na 
kompilovanej mape je zadať "symbol-hide group all", čo vyhodí úplne 
všetko, a potom si po jednej značke všetko vyvolať späť cez symbol-show 
line wall, atď. Ale tiež sa nedá symbol-show line u:niečo, takže je to 
problematické. Je to ale len nedostatok kódu Therionu a teda zrejme nič, 
čo by sa v budúcnosti nedalo vyriešiť.



Keď mám v xvi. súbore nejaké údaje a potrebujem ich pretočiť na druhú 
stranu (zrkadlovo) dá sa to?
Pretože mám taký problém, kreslím mapu jaskyne nad ktorou je závrt, 
závrt mám po povrchu zameraný, zanesený do xvi. súboru, ale jeho 
vykreslenie prebehlo v therione na opačnú (ľavu) stranu ako som chcel 
(ja som chcel aby to vykreslilo vpravo) - viď priložený obrázok. Dá sa 
to bez toho aby som musel meniť základný azimut v údajoch?


Na to je príkaz „extent“ v centerline, v tvojom prípade má byť na
začiatku "extend left“ (štandartne je tam automaticky "extend right“,
a pred tou zámerou, čo už má ísť doprava, tak „extend right“. Viď
Thbook posledná kapitola.


 príklad dole  - extend left, right (treba sa s tým len vyhrať, vždy 
prekompilovať xvi, ktoré automaticky aktualizuje v th2:


  date 2016.04.28
  data normal from to compass clino tape
  extend right
  0 1 244.22 -10.22 3.530
  extend left
  2 1 94.76 -40.25 1.390


Paľo
___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs

Re: [Therion-cs] Prevzdušnenie zeminy v Therione

[Pavel Herich via Therion-cs]

Ujček,
asi toto si chcel?:

def a_sand_UIS (expr p) =
  T:=identity;
%  thclean p;
  pickup PenC;
  path q; q = bbox p;
  picture tmp_pic;
  tmp_pic := image(
for i = xpart llcorner q step 1u until xpart urcorner q:
  for j = ypart llcorner q step 1u until ypart urcorner q:
draw origin shifted ((i,j) randomized 0.7u) withpen PenC;
  endfor;
endfor;
  );
  clip tmp_pic to p;
  drawoptions();
  draw tmp_pic;
enddef;

Akurát ten prvý riadok si daj pozor, teda "sand_UIS" sa nezobrazí, 
pokiaľ bude zadaný symbol-assign ... (ak používaš ten môj thcnfig). 
Riadok prepíš na "def a_clay (expr p) =", pohraj sa s tými číslami v 
definícii ( 1u ) a nájdeš si svoje prevzdušnenie. Potom to vlož do 
layoutu a pôjde to.

Paľo


Dňa 2017-05-26 10:07 Martin Sluka via Therion-cs napísal(a):

Tu je vysvetlenie zo súboru uAUT.mp:

let a_clay_AUT = a_sand_AUT;

Takže ten zdrojový kód je identický ako a_sand_AUT

Kľudne skopíruj ten a_sand_AUT do layoutu, premenuj ho na
a_u_moj_clay_AUT, uprav a použi v mape. Nerob to v zdrojákoch, nebolo
by to korektné.

m.


26. 5. 2017 v 9:50, Matej Ševčík via Therion-cs 
:


Ahojte
Prosím vás nemá niekto kód metapostu pre "area clay" v AUT znakoch
Potreboval by som zväčšiť priestory medzi jednotlivými bodmi 
"!prevzdušniť" tú zeminu a neviem nájsť pre tú značku kód.

Ďakujem
M.
___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs


___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs

___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs

Re: [Therion-cs] Export PDF

[Pavel Herich via Therion-cs]

Martin,
aspoň keby si láskavo nezabúdal, čo sám píšeš:
"Vyrastruj si to ve Photoshopu na 600 dpi do CMYK s plnou černou."
A ako som napísal, takto to robím ja, neviem, čo to má s tebou spoločné. 
600 dpi používam preto, aby som nevidel štvorčeky, keď mapu vytlačím na 
väčší formát, ako som pôvodne plánoval. Pretože mapu Demänovej často 
režem i na malé diely, je dobré to mať v kvalite vyššej.

Paľo



Dňa 2017-03-14 10:26 Martin Sluka via Therion-cs napísal(a):
14. 3. 2017 v 9:11, Pavel Herich via Therion-cs 
<therion-cs@speleo.sk>:


preto používam Photoshop, raster na 600dpi nemáš šancu nijak uvidieť.


Paľo, to, čo napíšem, láskavo nerozporuj, DTP robím asi trošku dlhšie 
ako ty.


Keď má byť výstup na Epsonke, tak stačí 360 dpi, keď na HP alebo
Canon, tak 300 dpi, keď na tlačiarenské techniky, tak 400 dpi. Hlavne
pri rastrovaní nezapínať vyhladenie! Samozrejme, keď ide o malé
výsledné mapy tak si kľudne dovolím dvojnásobok. Ale pri 1:1000
Demänovskýého systému je to zbytočné.

To dáva podstatne menšie súbory s tým, že rozdiel je poznateľný možno
silnou lupou. Pri zmenšovaní mapy stačí aj 180/150/200 dpi s tým, že
výsledné rozlíšenie sa prepočíta na 360/300/400. Tie hodnoty
vychádzajú z vlastného rozlíšenia tlačových technológií.

m.
___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs

___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs

Re: [Therion] wall altitude

[Pavel Herich via Therion]

Perfect Stacho,
thank You!
Pavel

Dňa 2017-01-19 16:28 Stacho Mudrak via Therion napísal(a):

Sorry

symbol-hide point wall-altitude

S.

On 19 January 2017 at 16:25, Stacho Mudrak <li...@group-s.sk> wrote:


Hi,

symbol hide point:wall-altitude

should work.

S.

On 19 January 2017 at 12:03, Martin Sluka via Therion
<therion@speleo.sk> wrote:


or Tex code, sorry

m.s.


19. 1. 2017 v 11:51, Martin Sluka via Therion

<therion@speleo.sk>:



You may try to modify MetaPost or code by yourself.

m.s.



19. 1. 2017 v 11:01, Pavel Herich via Therion

<therion@speleo.sk>:


Yes, but I´d like to to make something which would be

represented by following syntax: "symbol-hide line wall:altitude"
and i did try several options how to write this, but without
succes.. As well there is similar problem with new symbols defined
under u, f.e. "symbol-hide line u:newsymbol" doesn´t work.

Thank you
Pavel


Dňa 2017-01-18 13:51 Martin Sluka napísal(a):

Symbol is line:wall altitude is option of point of this

symbol.

m.s.
Odesláno z iPhonu
18. 1. 2017 v 12:53, Pavel Herich via Therion

<therion@speleo.sk>:

Hello,
I cannot find a right syntax to handle with point of wall

line, which is set as altitude . . I´d like to use symbol-hide or
symbol-color option. Anyone has an idea? Or just would be enough
to have possibility to disable it.

Pavel
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]


___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]


___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]




Links:
--
[1] https://mailman.speleo.sk/listinfo/therion
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] wall altitude

[Pavel Herich via Therion]

Yes, but I´d like to to make something which would be represented by 
following syntax: "symbol-hide line wall:altitude" and i did try several 
options how to write this, but without succes.. As well there is similar 
problem with new symbols defined under u, f.e. "symbol-hide line 
u:newsymbol" doesn´t work.

Thank you
Pavel


Dňa 2017-01-18 13:51 Martin Sluka napísal(a):

Symbol is line:wall altitude is option of point of this symbol.

m.s.
Odesláno z iPhonu

18. 1. 2017 v 12:53, Pavel Herich via Therion <therion@speleo.sk>:


Hello,
I cannot find a right syntax to handle with point of wall line, which 
is set as altitude . . I´d like to use symbol-hide or symbol-color 
option. Anyone has an idea? Or just would be enough to have 
possibility to disable it.

Pavel
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

[Therion] wall altitude

[Pavel Herich via Therion]

Hello,
I cannot find a right syntax to handle with point of wall line, which is 
set as altitude . . I´d like to use symbol-hide or symbol-color option. 
Anyone has an idea? Or just would be enough to have possibility to 
disable it.

Pavel
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] Entrance for cave list

[Pavel Herich via Therion]

Definition of entrance has to be inside centerline.
Then "export cave-list -location on -o cave.html" gives you coordinates 
and lenght and depth of your surveys compiled, conected with defined 
entrances. If you have a index.th, which connects all your caves (every 
cave has to be at least in one or more surveys; and more surveys 
connected under one general cave survey), then you have list of all 
caves with one or more defined entrances.

Pavel



Dňa 2017-01-09 15:14 Andrew Atkinson via Therion napísal(a):

Yes, that is what I said, and it gives an error

Andrew

On 9 Jan 2017 19:04, "Martin Sluka via Therion" 
wrote:


Definition of entrance is part of survey-endsurvey

m.s.

On Jan 09, 2017, at 12:55 PM, Andrew Atkinson via Therion
 wrote:


Page 17 of the Therion hook states that station 
Under the context survey should be used as the entrance identifier
for a cave to be used in cave-list export.

However, this gives an error unknown command -- entrance

Now I can sort of get round it using
Station 0 "" entrance
in the centerline, but this does not define a cave so the list is
a bit weird. Am I missing something?

V 5.3.16 on windows 10

Andrew

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]


___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion [1]



Links:
--
[1] https://mailman.speleo.sk/listinfo/therion
___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion] Stations coordinates

[Pavel Herich via Therion]

Hi,
I don´t know, if I have understood well what are you looking for, but 
for me the easiest way how to get xyz coordinates of some points in 
relative polygonal net (compass, clino, tape) is to set them as entrance 
in centerline (could be done very fast with all centerline in Excel):

station 2 "2" entrance
station 3 "3" entrance
...
and thconfig has this part outside of layout:
export cave-list -location on -o coordinates.html

You get html list of station names and their coordinates.
Pavel


Dňa 2016-12-20 23:09 андрей коженков via Therion napísal(a):

Hi Phil,

cSurvey can also help with remastering of paper maps.

Unfortunalty all documentation is in Italian but software is
translated to English.
http://csurvey.it/site/index.php/en/download

Andrey


Вторник, 20 декабря 2016, 20:48 UTC от Philippe
Vernant via Therion :

Several surveys and visual topo files, but not always the same
stations …

Phil


On 20 Dec 2016, at 19:47 PM, Martin Sluka via Therion

 wrote:


What is source of your old data - maps?

m.s.



20. 12. 2016 v 17:47, Philippe Vernant via Therion

:


OK my mistake, I could export the compass format. But if someone

has a clever idea as how to do it easily without computing the
difference between the two stations, I’d be happy to have the
solution.


Thanks,
Phil




On 20 Dec 2016, at 17:43 PM, Philippe Vernant

 wrote:


Hi guys,

I’m trying to merge some old survey data with new ones and

I’d like to know the coordinates of some stations. this way I
could compute the length, the azimuth and the dip angle between old
and new stations to merge le file together. I’m trying to export
the data in compass format, I know that I could get the coordinates
in this file, but I have a message :


therion: error -- thconfig [25] -- unknown format -- "compas"

Any idea on how I could do that ?

Thanks,
Phil



___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion


___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion


___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

___
Therion mailing list
Therion@speleo.sk
https://mailman.speleo.sk/listinfo/therion

Re: [Therion-cs] Úprava hlavičky mapy

[Pavel Herich via Therion-cs]

Ujček,
toto si daj do layout (v druhom riadku si napíš čo tam chceš mať):

code tex-map
\newtoks\cavedepthtitle \cavedepthtitle={Denivelácia}
  \legendcontent={%
\hsize=\legendwidth
\ifnortharrow\vbox to 0pt{\line{\hfil\northarrow}\vss}\fi
\edef\tmp{\the\cavename} \ifx\tmp\empty \else
  {\size[20]\the\cavename} \vskip1cm
\fi
\ifscalebar\scalebar\vskip1cm\fi
{\rightskip=0pt plus 3em\parskip=3bp
  \edef\tmp{\the\comment} \ifx\tmp\empty \else
{\size[12]\the\comment} \par\medskip
  \fi
  \everypar{\hangindent=2em\hangafter=1}
  \edef\tmp{\the\cavelength} \ifx\tmp\empty \else
{\size[12]\si\the\cavelengthtitle: \ss\the\cavelength\par}
  \fi
  \edef\tmp{\the\cavedepth} \ifx\tmp\empty \else
{\size[12]\si\the\cavedepthtitle: \ss\the\cavedepth\par}
  \fi
  \edef\tmp{\the\exploteam} \ifx\tmp\empty \else
{\size[12]\si\the\explotitle:
  \ss\the\exploteam\quad\si\the\explodate\par}
  \fi
  \edef\tmp{\the\topoteam} \ifx\tmp\empty \else
{\size[12]\si\the\topotitle: 
\ss\the\topoteam\quad\si\the\topodate\par}

  \fi
  \edef\tmp{\the\cartoteam} \ifx\tmp\empty \else
{\size[12]\si\the\cartotitle:
  \ss\the\cartoteam\quad\si\the\cartodate\par}
  \fi
  \edef\tmp{\the\copyrights} \ifx\tmp\empty \else
{\size[12]\ss\the\copyrights\par}
  \fi
}
\formattedlegend
  }

endcode

Paľo

p.s. je tu potom ešte taká špecialita od Bruce Mutton:

\newtoks\depthrangetitle \depthrangetitle={Nadm. výška: }

  # % start bruces addition
# %  altitude
\edef\tmp{\the\caveminz} \ifx\tmp\empty \else
  {\the\legendtextsize\si\the\depthrangetitle \ss\the\caveminz m až}
\fi
\edef\tmp{\the\cavemaxz} \ifx\tmp\empty \else
  {\the\legendtextsize\ss\the\cavemaxz m \par} %above mean sea level
\fi
# % end bruces addition



___
Therion-cs mailing list
Therion-cs@speleo.sk
https://mailman.speleo.sk/listinfo/therion-cs