Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1690 1598 (N22W70 L= 18)   992     77        2 (1670/1557-1718/1636)  26.6 W66-W76 N19-N23
      2  751 1408 (N36E10 L=298)   985    265        2 ( 622/1379- 864/1434) -15.5 E19-E01 N32-N39
      3 1093 1365 (N25W12 L=320)   609    178        1 (1009/1314-1166/1394) -41.2 W07-W15 N20-N28
      4 1054 1192 (N16W05 L=313)   418    205        0 (1020/1133-1111/1236)  56.3 W02-W08 N12-N18
      5  789 1059 (N14E13 L=294)   211     82        1 ( 756/1027- 832/1092) -53.1 E15-E11 N11-N16
      6 1899 1028 (S15W65 L= 13)   522     64        1 (1871/1010-1918/1054)   0.0 W60-W68 S16-S13
      7 1623  981 (S09W36 L=344)   578    176        1 (1562/ 919-1656/1051)  33.7 W30-W39 S11-S05
      8  125  999 (N19E75 L=233)   767     85        4 ( 105/ 971- 152/1042) -21.8 E79-E69 N17-N21
      9  437 1013 (N17E38 L=269)   283     52        1 ( 417/ 986- 469/1037) -26.6 E39-E35 N15-N18
     10  214  898 (N13E61 L=246)  1912    139        3 ( 179/ 833- 255/ 958)  60.3 E66-E56 N09-N16
     11  436  876 (N09E40 L=267)   502     82        1 ( 415/ 827- 464/ 918) -90.0 E41-E38 N05-N11
     12 1280  893 (S06W12 L=320)   268    131        0 (1232/ 856-1326/ 916) -45.0 W09-W14 S09-S04
     13 1216  823 (S09W07 L=314)   199     84        1 (1195/ 797-1248/ 850)  26.6 W05-W09 S09-S07
     14  475  366 (S24E60 L=248)   964    118        1 ( 421/ 338- 528/ 387)   3.6 E69-E52 S26-S22
  

    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