Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  962 1783 (N59W14 L= 48)  1363    291        3 ( 822/1737-1091/1823)   0.0 E03-W30 N56-N60
      2 1526 1658 (N36W56 L= 91)   392     59        0 (1499/1640-1556/1679)   6.3 W52-W61 N34-N36
      3 1360 1513 (N30W33 L= 67)   557    204        0 (1268/1451-1424/1556) -48.4 W27-W35 N25-N34
      4  343 1345 (N34E49 L=346)  3367    498        2 ( 257/1132- 467/1517)  56.9 E55-E39 N21-N45
      5 1159 1457 (N31W17 L= 51)   299    121        1 (1111/1428-1217/1497) -50.2 W13-W19 N27-N33
      6 1822 1324 (N09W65 L=100)  2452    226        6 (1769/1238-1895/1429) -90.0 W61-W75 N03-N16
      7  174 1221 (N27E68 L=326)  2040    204        6 ( 131/1136- 226/1297) -20.6 E84-E59 N21-N31
      8  748 1170 (N19E15 L= 19)   299    142        0 ( 700/1141- 814/1217) -40.6 E18-E11 N16-N22
      9 1786 1126 (S01W54 L= 89)   770    110        1 (1759/1075-1814/1173)  33.7 W50-W57 S03-N01
     10  856 1099 (N13E09 L= 26)   373    159        0 ( 771/1079- 916/1117) -12.5 E14-E05 N11-N14
     11  365  926 (N08E45 L=349)   261     41        1 ( 345/ 897- 382/ 953) -71.6 E46-E43 N06-N09
     12 1546  821 (S14W30 L= 65)   817    190        1 (1466/ 766-1626/ 866)  14.0 W24-W36 S16-S12
     13  663  590 (S15E30 L=  5)  1235    379        2 ( 559/ 515- 744/ 703)  31.0 E38-E22 S19-S08
     14  386  615 (S11E51 L=344)   757     92        2 ( 362/ 564- 408/ 662)  56.3 E53-E48 S14-S08
     15  507  613 (S12E40 L=354)   341     77        0 ( 474/ 599- 550/ 629) -21.8 E42-E37 S13-S11
     16 1534  432 (S42W31 L= 65)   387     65        0 (1501/ 414-1569/ 452)   0.0 W27-W34 S43-S40
     17 1364  335 (S47W15 L= 50)   787    113        3 (1307/ 307-1416/ 367)  -5.2 W09-W20 S49-S42
     18 1204  281 (S48W00 L= 35)   499     70        1 (1178/ 259-1243/ 304) -51.3 E02-W03 S49-S44
     19 1150  225 (S53E06 L= 28)  1086    106        2 (1107/ 199-1207/ 252) -12.5 E10-W00 S55-S49
     20 1175  161 (S62E07 L= 28)   721     60        2 (1141/ 147-1214/ 179) -35.5 E11-E02 S65-S58
  

    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