Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1706 (N38E15 L=283)  1035    229        0 (1056/1659-1244/1763)  -3.4 E23-E06 N35-N39
      2  607 1522 (N11E39 L=258)   990    227        0 ( 551/1436- 661/1628) -33.7 E48-E32 N06-N16
      3 1532 1376 (N28W21 L=318)   268     85        0 (1507/1337-1559/1412) -31.0 W18-W23 N26-N30
      4 1476 1323 (N23W18 L=315)   311     98        0 (1428/1297-1519/1356)   0.0 W14-W21 N22-N24
      5 1892 1085 (N24W59 L=357)   685    117        0 (1854/1031-1924/1127) -15.3 W53-W65 N22-N25
      6  696 1041 (S14E19 L=278)   335     60        2 ( 668/1015- 722/1082)  90.0 E20-E17 S15-S11
      7 1776  940 (N12W49 L=347)   687    106        2 (1754/ 896-1797/ 999)  90.0 W46-W52 N08-N15
      8 1838  883 (N11W57 L=355)  1700    218        2 (1793/ 807-1891/ 973)  71.6 W53-W62 N05-N17
      9 1053  903 (S12W05 L=302)   427    145        0 ( 998/ 851-1094/ 966) -20.6 W00-W08 S14-S09
     10  958  813 (S20W02 L=300)   422    132        1 ( 898/ 785-1018/ 837)   0.0 E01-W06 S21-S17
     11 1788  773 (N03W56 L=354)   391     31        1 (1762/ 753-1810/ 794)  21.8 W53-W58 N02-N04
     12  812  716 (S29E04 L=294)   298    112        0 ( 782/ 674- 863/ 738)  63.4 E05-W00 S32-S26
     13  219  687 (S47E61 L=236)   687     84        0 ( 174/ 669- 256/ 707)   8.5 E73-E53 S48-S44
     14 1453  605 (S16W38 L=336)   259     50        0 (1426/ 589-1487/ 626)  14.0 W36-W40 S17-S15
     15  552  540 (S48E19 L=278)   689    189        1 ( 465/ 500- 628/ 577)   3.4 E28-E11 S50-S46
     16  873  449 (S44W10 L=307)   328     71        0 ( 846/ 426- 911/ 481)  -9.5 W07-W13 S45-S41
     17 1300  410 (S32W40 L=337)   269     52        0 (1279/ 387-1326/ 434)  90.0 W38-W41 S33-S29
     18 1440  348 (S30W54 L=352)   717    118        1 (1393/ 310-1494/ 386)   0.0 W47-W62 S31-S28
     19 1585  324 (S26W71 L=  8)   556     42        0 (1563/ 301-1607/ 347)   0.0 W65-W77 S26-S24
     20 1031  171 (S57W48 L=346)   549     74        0 (1014/ 135-1053/ 213) -16.4 W40-W57 S59-S54
  

    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