Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  988 1708 (N34E26 L=228)   459    114        0 ( 962/1653-1007/1753) -41.2 E30-E22 N30-N37
      2  462 1680 (N19E64 L=190)  3277    196        6 ( 391/1598- 521/1750) -63.4 E74-E54 N12-N24
      3  739 1643 (N23E38 L=216)   268     25        1 ( 718/1622- 755/1663) -71.6 E39-E36 N21-N24
      4  354 1635 (N14E73 L=181)  1024     80        2 ( 323/1597- 381/1662)  78.7 E77-E69 N10-N15
      5  772 1594 (N20E33 L=221)   332     71        0 ( 733/1575- 803/1623)  36.9 E35-E31 N18-N22
      6  451 1512 (N08E52 L=202)  1374    158        3 ( 376/1456- 531/1543)  24.4 E57-E45 N03-N11
      7 1775 1286 (N34W45 L=299)   569     92        1 (1758/1232-1794/1329)  76.0 W43-W47 N29-N37
      8  393 1097 (S18E42 L=212)   563    120        2 ( 370/1050- 412/1159) -56.3 E45-E39 S20-S14
      9  606 1128 (S11E27 L=227)   256     62        1 ( 574/1108- 640/1151)   0.0 E29-E24 S11-S09
     10 1843 1011 (N19W56 L=310)  1631    333        3 (1801/ 852-1886/1145) -45.0 W49-W65 N11-N26
     11  302  952 (S28E48 L=206)  1572    355        1 ( 170/ 908- 454/1023)  16.7 E65-E35 S31-S20
     12  832  661 (S31E01 L=253)   295     70        0 ( 815/ 627- 854/ 699) -45.0 E02-W01 S32-S29
     13 1667  565 (S10W58 L=312)   345     41        2 (1643/ 540-1688/ 586)   0.0 W54-W61 S11-S09
     14  862  500 (S41W07 L=261)   359     77        0 ( 844/ 458- 882/ 535) -63.4 W05-W09 S43-S37
     15 1121  445 (S35W27 L=281)   286     49        1 (1099/ 420-1144/ 473) -63.4 W25-W28 S37-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