Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1301 1579 (N29W36 L=252)   284     60        1 (1280/1555-1330/1598)  11.3 W33-W38 N28-N30
      2 1202 1572 (N32W29 L=246)   302     65        0 (1166/1549-1239/1595)   0.0 W26-W32 N31-N32
      3 1697 1517 (N13W61 L=278)  2054    385        3 (1636/1406-1785/1564)   8.5 W50-W73 N09-N14
      4  468 1266 (N35E30 L=187)   315     85        0 ( 443/1224- 499/1306)  38.7 E32-E27 N32-N36
      5  761 1284 (N28E09 L=208)   460    119        0 ( 693/1261- 822/1303) -26.6 E13-E05 N25-N30
      6 1213 1255 (N14W17 L=234)  1962    424        2 (1000/1214-1420/1287) -21.8 W04-W29 N08-N18
      7  918 1249 (N22W00 L=217)   204     54        0 ( 903/1219- 935/1273)  63.4 W00-W01 N20-N23
      8  431 1121 (N27E35 L=182)   779    150        1 ( 411/1043- 456/1203) -90.0 E36-E32 N21-N32
      9 1746 1089 (S11W47 L=263)   777    154        3 (1701/1018-1784/1135)  63.4 W43-W51 S15-S07
     10  816  903 (N05E15 L=202)  1072    289        3 ( 774/ 818- 894/1056)  77.0 E17-E10 N00-N13
     11 1542  962 (S11W28 L=245)   384     89        0 (1499/ 919-1582/ 997)  15.9 W24-W31 S12-S09
     12 1605  956 (S13W32 L=249)   264     44        1 (1589/ 929-1623/ 981)  33.7 W30-W33 S14-S11
     13 1395  902 (S10W18 L=235)   242     68        0 (1377/ 866-1419/ 935)  45.0 W16-W19 S11-S08
     14 1760  800 (S28W42 L=259)   574     99        1 (1729/ 764-1777/ 857)  59.0 W38-W44 S30-S25
     15 1200  649 (S19E00 L=217)  2065    437        2 (1079/ 463-1278/ 812)  87.8 E04-W02 S32-S06
     16  222  728 (N08E65 L=152)   485     72        2 ( 195/ 714- 248/ 746)  -9.5 E68-E61 N06-N08
     17  564  593 (S07E40 L=177)   290     75        1 ( 539/ 567- 602/ 614) -11.3 E41-E36 S07-S05
     18 1031  439 (S28E17 L=200)   398    138        0 (1002/ 396-1073/ 495)  82.9 E18-E15 S31-S23
     19  677  434 (S19E39 L=178)   391     69        0 ( 643/ 394- 708/ 461) -80.5 E40-E37 S22-S16
     20  457  402 (S16E58 L=159)   681    214        0 ( 443/ 341- 478/ 457)  41.6 E62-E52 S20-S12
     21  714  275 (S31E46 L=171)   981    236        1 ( 681/ 216- 737/ 339)  33.7 E52-E40 S34-S26
  

    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