Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1135 1810 (N48W43 L= 31)   403     55        0 (1119/1774-1150/1842)  29.1 W39-W48 N45-N50
      2 1531 1683 (N26W60 L= 48)   903    115        1 (1472/1663-1587/1701) -29.1 W54-W64 N23-N28
      3 1318 1562 (N27W35 L= 23)   499    146        0 (1261/1531-1390/1597) -58.0 W32-W38 N22-N30
      4 1533 1504 (N17W47 L= 35)   738    140        2 (1478/1481-1619/1533) -33.7 W42-W52 N13-N19
      5 1694 1475 (N10W59 L= 46)   610    134        0 (1654/1419-1738/1519) -74.1 W56-W61 N06-N13
      6 1066 1397 (N24W13 L=  1)   909    307        1 ( 927/1342-1201/1450) -45.0 W06-W19 N18-N31
      7 1514 1302 (N07W36 L= 24)   250     40        0 (1495/1281-1536/1326)  71.6 W35-W37 N05-N08
      8 1623 1071 (S09W37 L= 25)   531    163        0 (1547/1049-1679/1114)  -5.2 W31-W42 S10-S07
      9  148  997 (N23E68 L=280)  1264    118        1 ( 101/ 971- 211/1015)  -6.0 E77-E58 N21-N24
     10 1352  970 (S07W17 L=  5)   357    109        1 (1319/ 913-1371/1009)  59.0 W14-W18 S10-S04
     11 1848  837 (S30W55 L= 42)   393     44        1 (1834/ 809-1865/ 863)  71.6 W52-W57 S31-S28
     12 1839  730 (S37W55 L= 42)   967    128        2 (1801/ 682-1867/ 769) -36.0 W48-W60 S41-S33
     13 1455  604 (S32W15 L=  3)  1876    284       10 (1396/ 485-1494/ 725)  54.5 W08-W20 S39-S23
     14 1703  593 (S42W38 L= 26)  3216    367       10 (1541/ 527-1844/ 679) -11.8 W21-W64 S50-S36
     15  901  315 (S34E31 L=316)   414     99        0 ( 886/ 276- 924/ 355)  45.0 E33-E27 S37-S31
  

    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