Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1187 1817 (N51E07 L=194)  1413    229        2 (1149/1747-1244/1878) -82.9 E11-E03 N43-N59
      2  318 1482 (N11E59 L=143)   651    104        3 ( 297/1441- 342/1535) -74.1 E61-E55 N07-N14
      3  489 1362 (N05E40 L=162)   442    124        0 ( 465/1290- 516/1421)  90.0 E41-E38 N00-N08
      4 1584 1353 (N24W30 L=231)   822    138        2 (1557/1278-1613/1410) -63.4 W27-W32 N19-N28
      5  860 1346 (N09E15 L=186)   398     75        1 ( 815/1315- 895/1376)   0.0 E18-E13 N07-N10
      6 1846 1236 (N24W54 L=255)  1754    210        3 (1805/1147-1890/1321) -59.0 W49-W59 N19-N29
      7 1643 1156 (N13W36 L=238)   273    101        1 (1623/1101-1662/1203) -51.3 W34-W38 N10-N16
      8  954 1177 (N01E07 L=195)   220     60        0 ( 915/1163- 990/1196)  26.6 E08-E04 N00-N02
      9  980  948 (S12E01 L=200)   926    306        3 ( 858/ 807-1049/1083)  73.3 E06-W01 S22-S02
     10 1741  994 (N06W47 L=248)   437    123        3 (1703/ 946-1783/1038) -26.6 W42-W51 N04-N08
     11  419  887 (S24E37 L=164)   669    249        3 ( 330/ 827- 501/ 972)  37.6 E44-E31 S28-S17
     12  684  827 (S24E18 L=184)   347     65        2 ( 659/ 789- 706/ 863)  78.7 E19-E16 S26-S21
     13 1370  786 (S14W25 L=227)   238     84        1 (1327/ 773-1415/ 810)  18.4 W22-W28 S14-S12
     14  490  708 (S34E31 L=170)  1085    234        2 ( 401/ 669- 582/ 747)  28.1 E39-E24 S38-S30
     15 1507  579 (S22W41 L=243)  5006   1103       10 (1055/ 487-1870/ 657)  22.6 W13-W79 S37-S10
  

    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