Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1432 1547 (N26W37 L= 12)   240     35        1 (1409/1532-1456/1566) -56.3 W36-W38 N25-N28
      2  342 1527 (N41E54 L=280)   426     52        0 ( 318/1507- 368/1545)   0.0 E60-E49 N39-N43
      3  567 1302 (N22E27 L=308)  2003    466        6 ( 417/1171- 684/1381) -27.6 E40-E19 N13-N30
      4  140 1208 (N22E69 L=266)  1100    186        2 ( 100/1174- 181/1243)   8.1 E82-E62 N20-N25
      5 1228 1050 (S01W12 L=347)   276     91        1 (1188/1022-1281/1080)  18.4 W10-W15 S04-N01
      6 1871  948 (S15W62 L= 36)  1376    189        3 (1836/ 881-1912/1019)  41.6 W57-W69 S20-S11
      7 1337  964 (S08W18 L=353)   546    156        1 (1259/ 941-1410/1005) -29.1 W14-W22 S10-S04
      8 1219  879 (S11W10 L=345)   332    105        0 (1188/ 820-1254/ 931)  56.3 W08-W11 S15-S08
      9 1064  823 (S13E00 L=335)   662    193        1 (1044/ 729-1090/ 928)  71.6 E00-W00 S19-S06
     10 1886  837 (S23W66 L= 41)   564     95        1 (1868/ 811-1912/ 867) -26.6 W62-W71 S24-S20
     11  194  685 (S09E69 L=266)  6529    493        6 ( 135/ 576- 269/ 788) -85.6 E73-E65 S17-S03
     12 1610  660 (S30W38 L= 13)  2023    372        5 (1507/ 533-1673/ 783)  71.6 W28-W49 S40-S21
     13  558  585 (S20E38 L=297)  1238    259        4 ( 505/ 494- 596/ 702)  45.0 E38-E39 S27-S13
     14 1384  542 (S35W20 L=354)   464     88        2 (1359/ 497-1403/ 589)  81.9 W17-W22 S39-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