Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1333 1796 (N46W56 L=197)   475     58        0 (1313/1768-1353/1827)  45.0 W52-W60 N43-N48
      2 1474 1629 (N31W50 L=191)   370     27        0 (1456/1601-1492/1650)  45.0 W48-W53 N29-N32
      3 1578 1611 (N27W58 L=199)   648     85        0 (1536/1584-1623/1634) -38.7 W55-W61 N24-N29
      4  917 1483 (N37W04 L=145)   313     68        2 ( 882/1455- 947/1507)   0.0 W01-W06 N35-N38
      5  695 1424 (N38E14 L=127)   627    133        2 ( 674/1371- 721/1497)  83.7 E15-E11 N33-N42
      6  661 1186 (N24E19 L=122)  1021    325        2 ( 611/1063- 736/1332) -83.7 E22-E16 N14-N32
      7  322 1259 (N34E48 L= 93)   307     59        1 ( 297/1237- 352/1276)  18.4 E50-E44 N32-N34
      8 1680 1165 (S00W45 L=185)   304     88        0 (1666/1119-1693/1209)  45.0 W42-W46 S02-N02
      9 1868 1012 (S15W60 L=201)  1267    248        0 (1792/ 904-1909/1097)  25.2 W49-W67 S18-S10
     10 1901  859 (S25W65 L=205)   691     72        0 (1878/ 831-1924/ 894)  45.0 W60-W69 S26-S23
     11  724  783 (S01E23 L=118)   435    136        0 ( 648/ 764- 783/ 816)   0.0 E27-E18 S02-N00
     12 1507  686 (S24W23 L=164)  1205    282        3 (1430/ 562-1581/ 785)  37.6 W16-W29 S30-S19
     13  388  630 (S05E51 L= 90)   449    131        0 ( 365/ 565- 422/ 685) -90.0 E51-E49 S09-S01
     14 1011  611 (S17E10 L=131)   494     80        3 ( 977/ 579-1057/ 645) -53.1 E11-E06 S18-S14
     15  833  558 (S17E22 L=119)   518    182        0 ( 762/ 511- 898/ 594) -53.1 E25-E18 S21-S13
     16  750  485 (S20E29 L=111)   681    202        2 ( 682/ 444- 808/ 544) -60.3 E32-E25 S22-S15
     17 1543  505 (S38W25 L=166)   423    100        0 (1491/ 487-1593/ 526)   0.0 W20-W29 S39-S36
     18  884  457 (S24E22 L=119)   349    138        0 ( 830/ 424- 927/ 502)   7.1 E25-E17 S26-S22
     19  839  290 (S36E33 L=108)  5166    722       10 ( 621/ 167-1106/ 491)  13.7 E81-E06 S44-S26
     20 1533  328 (S54W27 L=168)  1609    167        3 (1457/ 302-1609/ 364)  -8.5 W17-W38 S58-S50
  

    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