Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  991 1855 (N58W41 L=336)  2680    361        4 ( 871/1739-1101/1958)   6.2 W18-W82 N53-N60
      2 1534 1725 (N28W66 L=  1)  1833    183        3 (1445/1680-1616/1750) -21.3 W57-W77 N25-N32
      3  548 1605 (N56E20 L=275)   648    121        2 ( 486/1564- 605/1635)   0.0 E27-E12 N53-N57
      4 1457 1426 (N15W38 L=333)   368     81        0 (1430/1384-1476/1457) -90.0 W36-W39 N12-N17
      5  482 1356 (N39E28 L=267)   401     98        0 ( 437/1339- 535/1369)  -6.3 E32-E23 N37-N40
      6 1707  856 (S23W39 L=334)   772    235        1 (1635/ 759-1769/ 956)  29.7 W31-W46 S27-S19
      7 1650  885 (S20W34 L=330)   455    177        0 (1612/ 812-1695/ 955)  29.1 W30-W39 S23-S17
      8 1831  877 (S27W52 L=347)   379     89        0 (1813/ 834-1848/ 918)  38.7 W49-W54 S28-S24
      9 1394  652 (S26W12 L=307)   263     45        0 (1367/ 627-1418/ 675) -63.4 W10-W12 S27-S23
     10 1202  571 (S25E02 L=293)   683    276        0 (1114/ 479-1312/ 629)  14.9 E10-W05 S28-S23
     11  906  490 (S22E22 L=273)   376    106        1 ( 872/ 442- 949/ 520)  26.6 E24-E18 S24-S20
     12 1524  466 (S44W18 L=313)   319     59        0 (1507/ 436-1539/ 496)  53.1 W16-W19 S45-S41
     13 1083  391 (S33E16 L=279)   448    121        1 (1029/ 379-1153/ 410) -18.4 E19-E10 S35-S31
     14  737  353 (S26E40 L=255)   519    103        1 ( 718/ 304- 759/ 404)  33.7 E44-E35 S29-S23
  

    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