Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1654 (N34W37 L=181)   444     92        1 (1364/1627-1448/1676) -18.4 W33-W39 N32-N36
      2  329 1479 (N36E48 L= 97)  2033    476        2 ( 218/1447- 434/1519) -15.6 E62-E37 N32-N40
      3  588 1266 (N18E25 L=120)   219     78        0 ( 551/1252- 626/1278) -21.8 E27-E22 N17-N19
      4  147 1140 (N16E64 L= 81)  1411    235        0 ( 119/1085- 172/1200)  54.5 E67-E60 N12-N19
      5  259 1138 (N14E51 L= 93)   803    106        3 ( 229/1096- 291/1187)  51.3 E54-E48 N12-N17
      6  688 1123 (N09E19 L=125)   475    116        1 ( 633/1073- 739/1178) -49.4 E22-E16 N05-N12
      7 1873 1034 (S09W61 L=206)   759    161        3 (1846/ 981-1908/1092) -80.5 W58-W65 S11-S05
      8  876 1030 (N01E09 L=136)   358    107        1 ( 835/ 964- 910/1080)  45.0 E11-E06 S02-N04
      9 1781  971 (S12W51 L=195)   348     83        0 (1749/ 945-1802/1006)  45.0 W47-W52 S13-S09
     10 1480  907 (S12W27 L=172)   260     65        0 (1456/ 876-1508/ 944)  53.1 W25-W29 S14-S10
     11 1293  684 (S24W13 L=158)   413    136        0 (1218/ 667-1362/ 706)   0.0 W08-W18 S24-S22
     12 1687  552 (S38W46 L=190)   388     41        0 (1672/ 523-1701/ 583) -76.0 W44-W47 S39-S35
     13 1159  444 (S39W02 L=147)   582    165        0 (1098/ 399-1239/ 504)  26.6 E02-W08 S41-S35
     14  440  441 (S30E52 L= 93)   806    162        0 ( 423/ 373- 457/ 499)  66.0 E54-E49 S34-S25
  

    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