Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  756 1765 (N58E06 L= 84)   330     94        0 ( 720/1743- 795/1788) -41.2 E09-E01 N54-N61
      2 1670 1605 (N24W65 L=155)  2268    218        6 (1590/1533-1735/1692) -85.6 W60-W71 N18-N31
      3  719 1437 (N32E13 L= 76)   427    130        0 ( 668/1380- 768/1463)  23.2 E16-E08 N28-N33
      4  526 1396 (N33E28 L= 61)   431    107        0 ( 481/1356- 566/1428)  26.6 E31-E24 N30-N34
      5  219 1290 (N31E60 L= 29)  1987    229        9 ( 174/1213- 267/1378) -74.7 E67-E52 N26-N37
      6 1878 1023 (S14W64 L=153)  2271    184        8 (1821/ 964-1925/1090)  22.6 W56-W72 S18-S10
      7 1683 1043 (S09W43 L=132)   405     59        1 (1664/1005-1697/1080)  63.4 W41-W44 S11-S07
      8  220  996 (N13E58 L= 31)   546     54        1 ( 201/ 962- 241/1032) -78.7 E60-E55 N10-N15
      9 1267  885 (S11W12 L=101)   907    272        2 (1202/ 765-1327/ 998)  47.5 W06-W17 S17-S05
     10  447  912 (N04E38 L= 51)   996    176        1 ( 364/ 875- 516/ 973)   8.7 E45-E32 N02-N06
     11  683  820 (S05E24 L= 65)   269     59        0 ( 658/ 791- 714/ 838)  14.0 E26-E22 S06-S03
     12 1876  721 (S34W69 L=158)  1335    108        2 (1842/ 681-1901/ 758) -35.0 W63-W78 S37-S30
     13  679  674 (S13E28 L= 61)   508     94        2 ( 652/ 639- 708/ 727)  51.3 E30-E25 S15-S10
     14  402  396 (S26E66 L= 23)   610     52        0 ( 376/ 376- 429/ 410)   0.0 E71-E61 S27-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