Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1004 1872 (N59W45 L=351)  2337    234        4 ( 926/1794-1076/1962)   7.3 W30-W85 N54-N62
      2  834 1745 (N56W15 L=321)   762    147        2 ( 789/1689- 886/1800)  16.4 W07-W24 N53-N59
      3 1508 1687 (N27W59 L=  4)  1368    262        6 (1404/1654-1613/1715) -24.0 W49-W71 N22-N31
      4  479 1570 (N55E28 L=277)   308     50        0 ( 457/1550- 502/1597)  18.4 E31-E25 N53-N56
      5 1374 1182 (N05W24 L=330)   208     83        0 (1330/1169-1410/1200) -11.3 W21-W26 N04-N05
      6 1761  922 (S21W45 L=350)   849    208        2 (1728/ 803-1786/1003)  51.3 W40-W48 S27-S16
      7 1610  822 (S22W30 L=336)   850    354        2 (1508/ 680-1691/ 953)  27.8 W20-W39 S27-S16
      8 1715  649 (S37W38 L=344)   456     65        2 (1691/ 623-1736/ 677) -59.0 W35-W40 S40-S35
      9 1269  589 (S26W02 L=308)   248     60        1 (1242/ 566-1297/ 617) -63.4 W01-W03 S27-S23
     10  772  432 (S22E33 L=272)   303    100        0 ( 746/ 389- 804/ 465)  38.7 E35-E29 S24-S20
     11 1387  344 (S48W03 L=309)   330     59        0 (1358/ 326-1417/ 364) -18.4 W00-W06 S49-S46
     12  963  339 (S33E26 L=279)   438    123        0 ( 908/ 325-1030/ 363) -12.5 E29-E20 S35-S31
     13  630  323 (S26E50 L=255)   427     67        0 ( 610/ 288- 645/ 360)  26.6 E54-E46 S28-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