Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  824 1760 (N38E29 L=137)   426     91        2 ( 779/1735- 868/1773)  45.0 E32-E26 N35-N40
      2  537 1617 (N24E44 L=123)   582    155        1 ( 501/1569- 572/1658) -33.7 E48-E39 N20-N26
      3  331 1509 (N15E57 L=109)  3566    573       12 ( 268/1322- 384/1631) -68.2 E69-E51 N03-N23
      4  249 1428 (N09E63 L=103)  1540    186        3 ( 205/1348- 292/1487)  66.0 E67-E59 N04-N13
      5  550 1408 (N10E36 L=131)   249     85        1 ( 517/1391- 588/1434)  -9.5 E38-E32 N09-N11
      6 1733 1373 (N28W44 L=210)   565    139        2 (1699/1334-1771/1402)  40.6 W40-W47 N24-N30
      7  907 1109 (S03E08 L=158)   299     97        0 ( 887/1057- 925/1164) -59.0 E09-E06 S06-N00
      8 1591 1084 (N07W34 L=200)   366    131        3 (1532/1040-1629/1113)  -7.1 W29-W37 N04-N08
      9 1205  833 (S15W14 L=180)   415    142        2 (1128/ 809-1282/ 855)  24.0 W09-W18 S16-S12
     10 1326  739 (S18W23 L=190)   862    204        0 (1235/ 688-1433/ 817)  45.0 W18-W28 S22-S11
     11  355  745 (S31E43 L=123)   410    113        0 ( 313/ 723- 392/ 781)  23.2 E47-E40 S32-S28
     12  259  610 (S41E55 L=111)   437     92        2 ( 242/ 589- 277/ 634)  31.0 E57-E52 S42-S39
     13 1748  526 (S21W63 L=230)  3199    327        2 (1634/ 441-1822/ 626)  57.3 W55-W70 S28-S14
     14  388  500 (S48E46 L=121)  1113    194        3 ( 326/ 480- 455/ 529)   8.1 E52-E38 S49-S45
     15  861  209 (S66W06 L=172)   577    103        2 ( 830/ 189- 895/ 242) -24.0 W01-W11 S68-S62
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y