Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  938 1603 (N43E05 L=277)   306     70        1 ( 923/1574- 960/1640)  90.0 E05-E02 N40-N45
      2 1124 1598 (N42W11 L=293)   338     73        1 (1092/1571-1159/1629) -38.7 W08-W13 N39-N44
      3  994 1437 (N31E01 L=281)   284     58        1 ( 964/1413-1017/1464) -76.0 E02-W00 N28-N32
      4 1739 1273 (N16W54 L=336)   675    117        2 (1686/1238-1790/1307) -29.1 W49-W58 N13-N18
      5 1481 1190 (N12W31 L=313)   556    164        0 (1415/1142-1540/1244) -36.9 W26-W34 N09-N16
      6  642  848 (S06E25 L=257)   430    166        0 ( 571/ 803- 708/ 878) -24.0 E29-E20 S08-S03
      7  245  843 (S06E58 L=224)   603     91        2 ( 205/ 822- 291/ 870) -11.3 E63-E53 S07-S04
      8  363  715 (S14E49 L=234)   346     61        0 ( 341/ 686- 386/ 743)  45.0 E51-E45 S16-S12
      9  680  604 (S22E25 L=257)   361    157        0 ( 643/ 551- 708/ 657) -90.0 E27-E22 S25-S18
     10 1019  625 (S21E02 L=280)   206     59        0 ( 993/ 600-1044/ 652)  45.0 E03-W00 S22-S19
     11  291  603 (S22E61 L=221)   784     99        1 ( 258/ 574- 329/ 643) -45.0 E64-E57 S24-S19
     12  535  605 (S22E36 L=246)   320     99        0 ( 513/ 568- 569/ 640) -68.2 E37-E34 S24-S19
     13  867  472 (S32E14 L=268)   324    103        1 ( 832/ 438- 912/ 506)  29.7 E16-E09 S33-S29
     14 1277  416 (S38W17 L=299)   746    161        0 (1247/ 348-1313/ 474)  73.3 W15-W19 S43-S33
  

    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