Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1337 1827 (N50W61 L=167)  1080    139        0 (1268/1798-1386/1862)  -2.2 W49-W76 N49-N51
      2 1730 1378 (N12W58 L=164)   982    226        0 (1633/1339-1809/1432) -29.7 W51-W67 N08-N17
      3 1233 1293 (N19W18 L=124)   403    177        0 (1166/1245-1299/1315)  -6.3 W12-W21 N16-N19
      4 1082 1248 (N19W08 L=114)   201    135        0 (1062/1193-1113/1311)  54.5 W05-W10 N15-N22
      5 1722 1237 (N05W51 L=157)   441    106        0 (1688/1188-1752/1278)  24.0 W46-W55 N02-N06
      6  805 1164 (N19E11 L= 95)   227     65        0 ( 786/1138- 827/1201) -76.0 E12-E09 N16-N20
      7 1863 1022 (S11W61 L=167)  6754    390       17 (1779/ 846-1940/1153)  43.3 W50-W77 S21-S03
      8  968  813 (S05E07 L= 99)   524    235        1 ( 897/ 736-1041/ 905) -65.6 E09-E03 S10-N01
      9  193  828 (N05E66 L= 40)   500     73        0 ( 173/ 798- 216/ 859)  38.7 E69-E62 N03-N07
     10 1387  763 (S16W18 L=124)   734    272        1 (1336/ 616-1426/ 857)  66.8 W12-W20 S24-S10
     11 1290  798 (S11W12 L=118)   274     79        2 (1265/ 773-1320/ 834) -68.2 W10-W13 S13-S08
     12 1042  673 (S15E05 L=101)   658    184        4 ( 999/ 615-1081/ 733)  45.0 E08-E02 S18-S11
     13  496  683 (S06E40 L= 66)   333     82        0 ( 468/ 655- 529/ 716) -59.0 E41-E38 S08-S03
     14 1111  568 (S23E03 L=103)   381    113        0 (1089/ 517-1124/ 629)  66.8 E05-E01 S26-S18
     15  515  500 (S18E45 L= 61)   827    199        0 ( 483/ 423- 571/ 592)  85.6 E47-E43 S24-S11
     16  345  453 (S20E67 L= 39)   907    111        0 ( 331/ 400- 358/ 509)  26.6 E76-E60 S24-S16
     17 1229  464 (S33W03 L=109)   824    131        3 (1170/ 437-1292/ 501)   0.0 E01-W07 S34-S30
     18  794  425 (S27E28 L= 79)   710     89        2 ( 771/ 375- 823/ 473)  54.5 E31-E24 S30-S23
     19 1428  315 (S51W19 L=125)   754     95        3 (1383/ 290-1469/ 350)   0.0 W14-W23 S54-S48
     20  478  320 (S31E64 L= 42)  1141     77        3 ( 435/ 302- 518/ 337)   3.2 E75-E57 S33-S29
  

    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