Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  409 1623 (N14E64 L=190)   677    236        2 ( 386/1577- 429/1674) -23.2 E74-E58 N11-N17
      2  316 1535 (N07E67 L=187)   565    123        0 ( 282/1522- 351/1547)   6.3 E74-E62 N07-N07
      3  806 1481 (N14E26 L=228)   554    123        0 ( 746/1433- 862/1538)  77.5 E32-E21 N13-N16
      4 1135 1463 (N22E06 L=248)   649    134        1 (1102/1407-1168/1535) -36.9 E11-E03 N20-N26
      5  193 1240 (S13E66 L=189)  4767    619       16 ( 127/1111- 244/1422) -62.2 147-E56 S19-S-2
      6  690 1323 (N02E27 L=227)   497    119        2 ( 659/1258- 717/1376) -33.7 E31-E24 S01-N05
      7  589 1304 (S01E33 L=221)   508    127        0 ( 526/1282- 647/1323)  12.5 E38-E29 S01-S01
      8 1041 1250 (N07E05 L=249)   321     92        0 ( 998/1214-1088/1275)  -8.1 E08-E02 N07-N08
      9  389 1215 (S11E45 L=210)   520    192        0 ( 324/1174- 464/1241)  35.0 E51-E38 S11-S10
     10  360 1147 (S15E46 L=209)   792    206        2 ( 301/1091- 446/1202)  32.5 E52-E37 S16-S13
     11  919 1146 (S02E09 L=245)   448    131        0 ( 865/1119- 984/1199)  -6.3 E13-E05 S01-S00
     12 1820 1113 (N24W53 L=308)   378     28        1 (1797/1090-1838/1134)  90.0 W51-W56 N23-N24
     13  498 1009 (S20E32 L=223)   988    234        2 ( 458/ 901- 543/1109) -57.5 E37-E27 S25-S15
     14  814  960 (S15E10 L=244)   227     44        1 ( 791/ 943- 845/ 983)   0.0 E12-E08 S15-S14
     15 1241  806 (S12W18 L=273)   195     39        0 (1217/ 787-1273/ 820)  56.3 W16-W21 S12-S11
     16  799  784 (S25E07 L=248)   351    103        0 ( 741/ 761- 841/ 819)   0.0 E11-E03 S25-S25
     17 1588  573 (S13W50 L=304)   468    114        1 (1567/ 525-1601/ 628) -56.3 W45-W54 S15-S11
     18  585  573 (S45E18 L=236)   274     62        0 ( 565/ 537- 609/ 611) -38.7 E21-E15 S46-S43
     19  956  362 (S47W22 L=277)  1561    269        3 ( 833/ 314-1056/ 401)  14.7 W10-W34 S46-S48
  

    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