Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1620 1439 (N23W43 L= 41)   304     47        2 (1600/1415-1645/1458) -45.0 W41-W45 N21-N23
      2  986 1413 (N21E02 L=356)   328    115        1 ( 965/1356-1020/1456)  71.6 E03-W00 N17-N23
      3  331 1409 (N23E51 L=307)   678    125        2 ( 289/1372- 366/1441) -12.5 E55-E46 N20-N24
      4  292 1233 (N12E51 L=307)  1877    454        2 ( 195/1070- 359/1364)  58.0 E59-E45 N02-N19
      5  310 1167 (N07E48 L=309)   453     87        2 ( 294/1128- 334/1210)  78.7 E49-E45 N05-N10
      6  772 1111 (N03E15 L=343)   387     76        4 ( 748/1065- 797/1142)  76.0 E16-E13 N00-N04
      7  198  950 (S05E60 L=298)   346     34        1 ( 175/ 936- 225/ 969)  -9.5 E62-E56 S05-S03
      8  561  799 (S16E30 L=327)  1051    349        1 ( 471/ 655- 647/ 940) -63.4 E35-E26 S24-S06
      9  262  758 (S17E57 L=301)   663    115        3 ( 219/ 734- 302/ 790) -29.7 E61-E52 S18-S14
     10  478  474 (S36E46 L=312)   955    154        2 ( 412/ 437- 554/ 506)   9.5 E55-E37 S38-S34
     11  683  421 (S41E29 L=328)   255     64        0 ( 651/ 407- 721/ 434)   8.1 E32-E25 S42-S40
     12 1358  356 (S47W29 L= 27)   604     66        1 (1334/ 318-1385/ 398) -49.4 W25-W33 S50-S43
     13 1236  348 (S48W18 L= 16)   611    101        2 (1208/ 320-1277/ 386)  38.7 W14-W21 S50-S44
     14 1423  332 (S49W38 L= 35)   657    103        1 (1395/ 294-1456/ 378) -26.6 W32-W45 S52-S45
     15  737  236 (S57E36 L=322)   572     65        1 ( 698/ 217- 777/ 254)  -6.3 E40-E29 S59-S55
  

    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