Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  970 1763 (N37E31 L=156)   365     53        1 ( 949/1730- 987/1793) -33.7 E33-E27 N34-N39
      2  416 1668 (N16E67 L=119)  1820    103        3 ( 384/1634- 467/1704)  45.0 E78-E61 N13-N18
      3 1466 1605 (N43W11 L=197)   617    176        0 (1404/1542-1518/1672) -24.8 W03-W16 N39-N47
      4 1383 1566 (N37W06 L=192)   401    157        0 (1354/1501-1424/1627) -37.9 W01-W10 N33-N40
      5  566 1514 (N09E43 L=144)   290     55        2 ( 552/1475- 584/1546) -63.4 E44-E40 N06-N11
      6  667 1274 (S02E27 L=159)  1196    331        3 ( 595/1123- 738/1405) -40.6 E35-E20 S09-N04
      7 1580 1175 (N19W28 L=215)   947    203        1 (1510/1089-1640/1239) -22.6 W22-W34 N15-N20
      8  200 1098 (S22E61 L=125)   928    221        0 ( 182/ 994- 222/1187)  80.5 E64-E59 S28-S16
      9  108 1088 (S24E78 L=108)  1578    104        3 (  94/1035- 121/1142) -63.4 E84-E74 S26-S20
     10 1650  883 (N05W41 L=227)   388     92        0 (1637/ 838-1663/ 930) -51.3 W39-W43 N02-N07
     11  781  710 (S31E05 L=181)   917    292        0 ( 668/ 659- 912/ 776)  49.8 E11-W01 S37-S23
     12 1200  728 (S17W19 L=205)  1047    304        0 (1054/ 698-1341/ 758)  33.7 W11-W26 S22-S12
     13 1257  450 (S31W35 L=221)  1104    180        2 (1163/ 429-1340/ 482)  28.6 W29-W40 S33-S27
     14 1447  393 (S27W52 L=238)   819    117        3 (1402/ 357-1499/ 441) -71.6 W49-W54 S29-S23
     15  535  386 (S63E20 L=166)   883    178        0 ( 470/ 345- 605/ 425)   0.0 E30-E08 S65-S60
  

    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