Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  620 1791 (N54E38 L= 38)   609     95        1 ( 588/1767- 652/1809)  15.9 E43-E32 N51-N55
      2 1697 1559 (N29W58 L=134)  1815    267        1 (1595/1473-1789/1641) -42.7 W50-W65 N23-N35
      3 1041 1509 (N28W03 L= 80)   345    139        0 (1009/1463-1109/1542)  29.7 W01-W08 N24-N29
      4 1509 1462 (N23W35 L=112)   384    179        0 (1461/1423-1534/1525) -74.1 W32-W37 N20-N27
      5  284 1286 (N18E52 L= 25)   440     71        2 ( 240/1271- 323/1301)  -7.1 E56-E48 N16-N18
      6  189 1244 (N16E62 L= 14)   810    110        1 ( 158/1203- 215/1297)  63.4 E66-E59 N13-N19
      7 1498  948 (S09W29 L=106)   694    238        0 (1416/ 864-1585/1025)  39.3 W23-W35 S13-S04
      8 1428  689 (S24W26 L=102)   461    129        1 (1408/ 630-1450/ 753)  90.0 W24-W26 S28-S20
      9 1795  658 (S27W60 L=137)   437     52        0 (1768/ 641-1819/ 678)  21.8 W56-W63 S28-S25
     10 1717  651 (S27W51 L=128)   358     35        1 (1699/ 630-1743/ 675)  90.0 W49-W54 S28-S25
     11 1758  511 (S37W65 L=142)  1080    175        1 (1722/ 435-1786/ 584) -65.6 W58-W71 S42-S31
     12  292  525 (S29E65 L= 11)   555     61        1 ( 262/ 510- 328/ 539)   4.4 E72-E59 S29-S27
     13  714  293 (S49E35 L= 41)   988    181        2 ( 627/ 265- 804/ 333) -23.2 E42-E26 S52-S45
  

    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