Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  730 1527 (N16E29 L=177)   359    108        0 ( 685/1508- 792/1544)  33.7 E32-E25 N14-N18
      2  319 1406 (N03E56 L=150)  1543    303        5 ( 286/1293- 355/1513) -69.0 E61-E52 S04-N09
      3  649 1438 (N10E32 L=175)   460    124        1 ( 628/1378- 675/1489) -45.0 E34-E28 N06-N12
      4  206  996 (S23E57 L=150)  2607    434        2 ( 137/ 818- 279/1150)  63.4 E63-E51 S33-S13
      5 1089  935 (S11W06 L=212)   877    259        5 ( 993/ 811-1139/1011) -41.6 E01-W09 S17-S06
      6 1185  951 (S08W11 L=217)   205     41        1 (1166/ 922-1202/ 978) -71.6 W09-W11 S09-S06
      7  726  843 (S24E14 L=192)   700    173        0 ( 654/ 775- 800/ 894)  48.4 E18-E10 S28-S19
      8  998  761 (S23W04 L=211)   439    145        0 ( 934/ 722-1052/ 824)  58.0 W01-W06 S26-S17
      9 1656  636 (S13W51 L=257)  2569    630        2 (1395/ 545-1846/ 784)  40.6 W35-W64 S24-N00
     10  241  639 (S45E55 L=151)   550    112        0 ( 208/ 617- 277/ 663)   0.0 E58-E50 S46-S43
     11  404  579 (S47E39 L=167)   799     95        1 ( 359/ 540- 467/ 615) -10.3 E43-E32 S48-S44
     12 1121  593 (S30W17 L=223)   570    125        0 (1060/ 577-1200/ 615)  18.4 W12-W21 S31-S27
     13 1654  431 (S24W62 L=268)  1919    244        4 (1582/ 386-1736/ 491)  45.0 W56-W67 S27-S18
     14 1229  457 (S35W29 L=236)   388    117        0 (1163/ 440-1285/ 475)  35.5 W25-W32 S37-S32
  

    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