Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  946 1611 (N33E08 L=293)   654    104        2 ( 913/1562- 979/1662)  90.0 E10-E05 N29-N36
      2  541 1623 (N33E40 L=261)   384     65        0 ( 506/1607- 575/1639)   9.5 E42-E36 N31-N34
      3 1384 1477 (N25W22 L=323)   687    177        0 (1312/1443-1480/1516) -14.0 W17-W29 N23-N27
      4  801 1420 (N19E16 L=285)   237     54        0 ( 782/1388- 823/1451) -63.4 E16-E13 N17-N21
      5  212 1336 (N14E62 L=238)  1344    193        4 ( 162/1291- 251/1385)  24.0 E68-E57 N11-N17
      6 1575 1302 (N15W35 L=336)   922    264        0 (1453/1225-1674/1346) -17.4 W26-W42 N11-N17
      7 1868 1211 (N12W62 L=  3)  2948    239        2 (1823/1123-1922/1326) -85.6 W57-W70 N06-N19
      8  160 1244 (N09E67 L=234)   720     41        1 ( 125/1223- 193/1264)  -9.5 E73-E61 N07-N10
      9  262 1233 (N07E54 L=247)   433     57        1 ( 240/1206- 288/1260)  90.0 E56-E51 N05-N09
     10 1536 1192 (N08W32 L=332)   377    117        0 (1485/1173-1594/1222)  23.2 W28-W35 N06-N10
     11 1562 1066 (N01W34 L=334)   449    137        0 (1541/1005-1584/1134) -71.6 W32-W35 S02-N04
     12 1153  908 (S11W08 L=309)   259    139        0 (1122/ 847-1198/ 961)  60.3 W06-W10 S14-S07
     13 1832  826 (S11W60 L=  0)  2011    225        7 (1769/ 772-1896/ 882)  30.3 W53-W67 S14-S07
     14  981  688 (S25E02 L=299)  1235    360        0 ( 893/ 570-1142/ 757)  42.9 E07-W08 S32-S19
     15 1839  646 (S22W69 L= 10)   821     91        1 (1812/ 592-1867/ 672)  78.7 W63-W73 S25-S19
     16 1636  594 (S27W48 L=348)  1186    173        2 (1548/ 560-1708/ 633)  17.1 W39-W53 S29-S23
     17  261  580 (S32E65 L=236)   860     84        1 ( 223/ 550- 306/ 602)   0.0 E73-E57 S33-S30
     18 1012  545 (S34W01 L=302)   438    102        1 ( 969/ 526-1061/ 570)   0.0 E02-W04 S35-S32
     19 1470  379 (S43W43 L=344)  2857    422        1 (1272/ 351-1656/ 418)   5.7 W23-W63 S45-S38
     20  658  350 (S50E32 L=269)  1896    297        4 ( 496/ 315- 796/ 395)   6.3 E53-E17 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