![]() |
![]() |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Home |
FAQs Center |
Help Manual |
Development |
Contact Us | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
![]() Data Description
Example Command File $ Example data file for 1E9 (Dis) sub-command,
$ methodology 1
$ Note: Data enclosed by /* */ is printed output
$ when ran in iPOGO
$ begin comments
/*
$ =================================================
$ This data file demonstrates several advanced
$ topics of the iPOGO programming language.
$ Comment ($) the END command to continue into
$ the advanced topics. Use your imagination!
$ =================================================
$ Example data file for 1E9 (Dis) sub-command,
$ methodology 1
$ set the initial points
0 1 1000.0 1000.0
30 1025.0 1200.0 ;
1 2 1 NE 60 25 36 150.05 ;
$ set points 31, 32 and 33 on line using
$ the 1E9 sub-command for distances
1 31 30 -2 45 20 12 1E9 1 2 0
-9E9 -3E9 30 31 0
1E9 31 32 0 0 ;
$ set up feature codes
15.1 PL PropLine 7 1 1 ;
15.1 CL CurveLInes 3 1 1 ;
$ turn on plotting
91 ;
$ activate the PL feature
15 PL;
100 Inverse the original baseline;
7 1 1 2 ;
100 Inverse the new line segments ;
7 1 30 33 -31;
$ ==================================================
*/
$ end comments =====================================
$ set the initial points
0 1 1000.0 1000.0
30 1025.0 1200.0 ;
1 2 1 NE 60 25 36 150.05 ;
$ set points 31, 32 and 33 on line
$ using the 1E9 sub-command for distances
1 31 30 -2 45 20 12 1E9 1 2 0
-9E9 -3E9 30 31 0
1E9 31 32 0 0 ;
$ set up feature codes
15.1 PL PropLine 7 1 1 ;
15.1 CL CurveLInes 3 1 1 ;
$ turn on plotting
91 ;
$ activate the PL feature
15 PL;
100 Inverse the original baseline;
7 1 1 2 ;
100 Inverse the new line segments ;
7 1 30 33 -31;
/*
Stopped processing for the 'simple' version of this
command. Process the advanced topics by adding a $
in front of the END statement in the command file.
*/
END;
/*
========================================================
Advanced topics for the 'simple' methodology
========================================================
Now for some fun stuff!
(or... try documenting this with CAD for posterity!)
Notice that there are only 4 computing commands
that follow.
Intersect a PI holding lines 1-2 and 31-30
3 100 1 1 2 31 31 30 ;
Compute a 30' right of way curve using PI 100
and the distance from 33 to 30 plus 10' for the radius
11 30 10 1 100 30 1e9 30 33 10 0 ;
Now intersect an offset point that is located left
of the line 1 to 2 equal to the radius distance of
the curve minus 10 feet, and right of the line 30 to
100 equal to the distance from 1 to 2
3.1 200 1 1 2 -1e9 10 11 -10 30 30 100 1e9 1 2 0 ;
Now compute a 30' right of way curve using PI 100
and point 200 and the tangent distance from PC 11
to PI 100
11 30 20 1 100 200 0 1e9 11 100 0 ;
With 4 'simple' commands, you have just computed a
wye in a road intersection that is predicated on a
known distance between two points. You can relocate
any point at the top of this file and the entire
alignment and all the radiuses will be recomputed
automatically!
=======================================================================
*/
$ actual computations
3 100 1 1 2 31 31 30 ;
11 30 10 1 100 30 1e9 30 33 10 0 ;
3.1 200 1 1 2 -1e9 10 11 -10 30 30 100 1e9 1 2 0 ;
11 30 20 1 100 200 0 1e9 11 100 0 ;
$ activate feature CL - just draw the
$ centerline so you can see all the points
15 CL;
100 curve 1 centerline ;
6 1 11 10.1 12 ;
100 curve 2 centerline ;
6 1 21 20.1 22 ;
![]() Data Description
Example Command File $ Example data file for 1E9 (Dis) sub-command,
$ methodology 2
$ set the initial points
0 100 1000 1000 ;
-1 105 100 NW 52 35 26 160
NE 2 10 0 160 ;
-1 220 100 105 100 7E7 40 160
220 100 7E7 80 160 ;
1 113 106 100 106 9E9 200 -160 0 ;
$ set point 222 using the 1E9 sub-command,
$ substract the arc length from 80'
1 222 106 106 113 1E9 106 100.1 221 -80 ;
$ set additional lot lines using 1E9 to
$ add the curve radius and lot depth
-1 -226 100 100 220 1E9 100 220 150
100 221 1E9 100 221 160 ;
$ set back corners from point 222
$ perpendicular to the road at
$ the same depth as 113 to 114.
$ Then split the back line in half
$ and set the rear and front lot corners
1 323 222 100 106 1E9 113 114 0
9E9 2E9 222 113 0
1E9 113 114 0 ;
$ set up feature codes
$ cmd fea layer color style thick
15.1 LOT LotLines 7 1 1;
15.1 RL RadiusLines 1 1 1;
15.1 TB TotalBdy 7 1 1;
$ turn on plotting
91 ;
$ activate the total boundary feature
15 TB;
100 Total Boundary;
-7 1 220 226 225 323 114 113 106 100.1 220;
$ activate the LOT feature
15 LOT;
15.2 "Subdivision Lot" ;
7 101 220 226 225 221 100.1 220 ;
7 102 221 225 323 222 106 100.1 221 ;
7 103 222 323 324 325 222 ;
-7 104 325 324 114 113 325 ;
15.2 "";
$ activate the RL feature
15 RL;
100 Radius Lines ;
7 0 220 100.1 105 100 106 ;
![]() Data Description
Example Command File $ Example data file for 1E9 (Dis) sub-command,
$ methodology 3
$ set the initial points
0 100 1000 1000 ;
-1 105 100 NW 52 35 26 160
NE 2 10 0 160 ;
-1 220 100 105 100 7E7 40 160
220 100 7E7 80 160 ;
1 113 106 100 106 9E9 200 -160 0 ;
$ set point 222 using the 1E9 sub-command,
$ substract the arc length from 80' at the 30' BRL
$ setback line
1 222 106 106 113 1E9 106 100.1 221 30E9 -80 ;
$ set additional lot lines using 1E9 to add
$ the curve radius and lot depth
-1 -226 100 100 220 1E9 100 220 150
100 221 1E9 100 221 160 ;
$ set back corners from point 222 perpendicular
$ to the road at the same depth as 113 to 114.
$ Then split the back line in half and set the
$ rear and front lot corners
1 323 222 100 106 1E9 113 114 0
9E9 2E9 222 113 0
1E9 113 114 0 ;
$ set up feature codes
$ cmd fea layer color style thick
15.1 LOT LotLines 7 1 1;
15.1 RL RadiusLines 1 1 1;
15.1 TB TotalBdy 7 1 1;
$ turn on plotting
91 ;
$ activate the total boundary feature
15 TB;
100 Total Boundary;
-7 1 220 226 225 323 114 113 106 100.1 220;
$ activate the LOT feature
15 LOT;
15.2 "Subdivision Lot" ;
7 101 220 226 225 221 100.1 220 ;
7 102 221 225 323 222 106 100.1 221 ;
7 103 222 323 324 325 222 ;
-7 104 325 324 114 113 325 ;
15.2 "";
$ activate the RL feature
15 RL;
100 Radius Lines ;
7 0 220 100.1 105 100 106 ;
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||