Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  786 1609 (N21E31 L=310)   248     47        0 ( 761/1590- 806/1632)  71.6 E31-E29 N19-N22
      2  545 1525 (N10E43 L=297)   953    242        2 ( 490/1452- 602/1606) -31.6 E50-E37 N06-N14
      3  273 1102 (S19E51 L=289)  1324    412        4 ( 163/1051- 390/1169)   2.5 E64-E41 S22-S16
      4  612 1053 (S15E25 L=316)   234    106        0 ( 583/ 999- 651/1084)  68.2 E26-E22 S18-S13
      5  450 1031 (S20E36 L=305)   668    195        2 ( 370/1006- 537/1053)   8.7 E41-E28 S21-S18
      6 1880  914 (N12W61 L= 41)   819    108        2 (1854/ 883-1907/ 948)  59.0 W58-W64 N09-N14
      7 1916  865 (N11W68 L= 49)  1366    236        2 (1888/ 824-1950/ 912) -33.7 W63-W73 N08-N14
      8  332  811 (S36E43 L=298)   470    104        0 ( 289/ 789- 380/ 836)   0.0 E46-E38 S36-S34
      9  363  606 (S49E41 L=300)   704    188        0 ( 311/ 565- 415/ 650)  31.6 E47-E34 S52-S44
     10 1590  573 (S16W49 L= 29)   815    152        1 (1567/ 497-1610/ 641) -58.0 W46-W51 S19-S11
     11 1043  607 (S30W13 L=353)   243     74        0 (1008/ 595-1092/ 624)  18.4 W10-W16 S31-S28
     12 1294  473 (S30W34 L= 15)  2488    629        2 (1026/ 416-1564/ 538)  16.7 W14-W54 S35-S21
     13 1653  474 (S18W60 L= 40)   528    120        3 (1629/ 447-1678/ 512)  90.0 W57-W62 S19-S15
  

    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