Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  727 1764 (N31E42 L=316)   564     52        2 ( 695/1730- 755/1791) -35.5 E46-E39 N28-N33
      2 1315 1740 (N46E00 L=358)   340     46        1 (1290/1713-1335/1762) -45.0 E02-W01 N44-N48
      3  845 1625 (N24E27 L=331)   435     97        0 ( 822/1575- 872/1675) -66.8 E28-E24 N20-N27
      4  718 1584 (N19E33 L=325)   554    136        0 ( 654/1561- 795/1609)   5.7 E37-E27 N17-N19
      5 1444 1426 (N26W16 L= 14)   410    109        0 (1415/1380-1491/1458)  60.3 W14-W18 N22-N29
      6 1559 1360 (N26W25 L= 23)   267     77        0 (1530/1319-1579/1393) -36.9 W22-W27 N23-N27
      7  844 1316 (N05E17 L=341)  1203    398        2 ( 649/1267-1002/1380)  31.4 E27-E08 N00-N11
      8  245 1335 (S04E61 L=297)   577     75        2 ( 223/1292- 267/1367)  78.7 E63-E59 S06-S01
      9 1497 1263 (N18W22 L= 20)   368    144        1 (1448/1232-1560/1310)   0.0 W18-W26 N16-N20
     10 1742 1054 (N13W44 L= 42)   589    147        1 (1729/ 976-1759/1124) -77.5 W42-W46 N08-N17
     11 1360  999 (S01W19 L= 17)   212     52        0 (1331/ 980-1392/1018)   0.0 W17-W21 S01-N00
     12  169  995 (S25E64 L=294)   409     45        1 ( 145/ 977- 189/1011)   8.1 E67-E60 S25-S23
     13  105  980 (S26E75 L=283)   603     32        1 (  89/ 957- 121/1007)  45.0 E79-E71 S27-S24
     14 1022  709 (S25W08 L=  6)   286     44        1 ( 997/ 686-1049/ 735) -33.7 W05-W09 S25-S23
     15  173  663 (S45E75 L=283)   773     68        1 ( 145/ 641- 202/ 694) -31.0 E84-E68 S46-S43
     16 1357  580 (S23W33 L= 31)  1950    562        1 (1114/ 525-1605/ 662)  36.5 W19-W46 S33-S12
     17 1706  535 (S15W62 L= 60)   814    100        1 (1658/ 513-1758/ 556)  21.8 W56-W68 S17-S13
     18  952  341 (S50W18 L= 16)   748    155        3 ( 877/ 305-1016/ 372)   4.1 W10-W24 S52-S47
     19 1031  346 (S47W24 L= 22)   307     72        0 (1002/ 328-1063/ 372)   9.5 W20-W26 S48-S45
     20 1330  256 (S43W54 L= 52)   769    110        2 (1305/ 199-1359/ 305) -15.5 W47-W65 S45-S40
  

    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