Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1228 1761 (N46E05 L= 44)   528     81        0 (1195/1734-1263/1782)  66.8 E07-E02 N42-N49
      2  442 1676 (N22E61 L=348)  2830    152        6 ( 377/1625- 509/1743) -82.9 E71-E52 N18-N27
      3 1489 1478 (N31W20 L= 69)  1958    437        2 (1303/1350-1611/1596) -19.8 W05-W30 N25-N34
      4 1105 1401 (N16E03 L= 45)   270     87        0 (1074/1369-1141/1433) -21.8 E05-W00 N15-N17
      5  637 1245 (S02E27 L= 21)   261     44        0 ( 616/1222- 656/1274)  90.0 E28-E26 S03-N00
      6 1797 1085 (N15W50 L= 99)  2493    435        4 (1723/ 884-1844/1264) -55.0 W41-W56 N04-N24
      7  482  930 (S23E33 L= 16)   402     97        1 ( 471/ 873- 495/ 981) -81.9 E34-E31 S26-S19
      8  397  937 (S24E40 L=  9)   293     39        0 ( 375/ 911- 418/ 960) -56.3 E41-E37 S25-S22
      9  160  847 (S32E68 L=341)  1336    184        1 ( 129/ 767- 208/ 919)  24.2 E79-E59 S36-S27
     10  500  627 (S42E30 L= 19)   403    100        0 ( 454/ 593- 548/ 650)  29.1 E34-E25 S44-S39
     11 1466  501 (S26W44 L= 93)  1467    314        2 (1314/ 429-1576/ 584)  -2.1 W29-W56 S27-S23
     12 1460  340 (S35W56 L=105)  1072    102        2 (1414/ 307-1514/ 373)   4.4 W49-W63 S37-S33
     13 1369  282 (S42W54 L=103)   531     50        0 (1350/ 244-1389/ 314) -24.0 W50-W59 S43-S39
  

    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