Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1791 (N57W29 L= 40)   423     50        1 ( 940/1768- 994/1813)  78.7 W25-W32 N54-N59
      2 1564 1677 (N28W65 L= 75)   571     59        1 (1534/1652-1596/1695) -45.0 W61-W68 N26-N29
      3 1440 1530 (N24W43 L= 53)   477    111        2 (1406/1496-1471/1584) -90.0 W39-W44 N22-N28
      4 1302 1342 (N18W25 L= 36)   536    133        1 (1232/1320-1357/1382) -50.2 W22-W28 N15-N21
      5 1119 1238 (N17W11 L= 22)   429    133        3 (1087/1203-1155/1285) -78.7 W08-W13 N15-N20
      6 1049 1183 (N15W05 L= 16)   193     79        1 (1033/1151-1066/1223)  36.9 W03-W07 N13-N17
      7  581 1195 (N27E24 L=347)   278     53        1 ( 550/1169- 604/1220)  56.3 E26-E22 N25-N28
      8 1374 1058 (N00W21 L= 32)  1290    269        4 (1311/ 942-1429/1189)  42.5 W15-W27 S05-N06
      9  621 1028 (N16E24 L=347)   456    127        1 ( 595/ 981- 672/1079) -66.8 E25-E21 N12-N19
     10 1516  792 (S19W24 L= 35)   380     90        0 (1472/ 765-1560/ 813) -45.0 W21-W26 S21-S16
     11 1403  592 (S28W13 L= 23)   709    191        0 (1329/ 559-1490/ 652)  -4.8 W07-W19 S30-S26
     12 1673  603 (S37W35 L= 46)   758     69        2 (1634/ 571-1708/ 630) -26.6 W31-W39 S40-S34
     13 1519  464 (S42W20 L= 31)  1570    286        1 (1414/ 395-1631/ 532)   5.4 W10-W31 S45-S39
     14  803  284 (S34E39 L=332)   736     98        0 ( 774/ 251- 848/ 324) -80.5 E41-E36 S37-S30
     15  507  283 (S28E68 L=303)  1511     95        3 ( 460/ 253- 546/ 311) -10.3 E76-E63 S31-S25
  

    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