Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  473 1660 (N37E57 L=302)  2033    186        5 ( 429/1590- 517/1743) -16.4 E81-E47 N32-N42
      2  677 1605 (N35E33 L=326)  1522    218        4 ( 585/1562- 780/1637)  14.9 E40-E24 N31-N38
      3  675 1416 (N22E27 L=332)   515    198        0 ( 625/1348- 701/1510)  84.8 E29-E26 N17-N28
      4  586 1448 (N24E35 L=325)   255     75        0 ( 576/1411- 597/1496) -59.0 E36-E33 N21-N26
      5 1281 1393 (N27W14 L= 13)   300    124        0 (1245/1352-1337/1417)  33.7 W11-W18 N23-N28
      6 1740 1323 (N26W52 L= 51)   331     71        0 (1727/1287-1755/1362)  78.7 W50-W53 N23-N28
      7 1491 1189 (N15W29 L= 28)   244     98        0 (1447/1177-1539/1211)  -8.1 W25-W32 N14-N16
      8 1793 1125 (N14W55 L= 54)   376     84        1 (1779/1093-1816/1169) -90.0 W53-W57 N11-N16
      9 1472  980 (N02W29 L= 28)   408    155        0 (1422/ 925-1535/1007)  23.2 W25-W32 S01-N04
     10  254  892 (S14E54 L=305)   825    161        2 ( 222/ 814- 289/ 965) -71.6 E57-E50 S18-S09
     11  176  901 (S14E64 L=295)  1105    147        6 ( 148/ 844- 204/ 959) -54.5 E68-E60 S17-S10
     12 1793  702 (S12W61 L= 60)  3881    409        4 (1667/ 582-1887/ 866)  48.2 W51-W71 S20-S01
     13  460  579 (S32E39 L=321)  1124    203        0 ( 391/ 503- 548/ 634)  30.1 E48-E29 S38-S27
  

    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