Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1328 1710 (N38W38 L=229)   299     52        1 (1300/1692-1352/1730)   0.0 W35-W40 N37-N39
      2  766 1656 (N45E08 L=183)   427     76        0 ( 736/1623- 801/1681)  26.6 E10-E04 N42-N47
      3 1151 1562 (N31W18 L=209)   852    150        2 (1094/1509-1217/1596)  12.5 W13-W22 N28-N33
      4 1701 1518 (N19W59 L=250)   921    152        1 (1658/1459-1765/1569) -54.5 W55-W63 N14-N22
      5 1045 1520 (N30W10 L=201)   339     69        1 (1023/1478-1066/1554)  59.0 W07-W11 N27-N32
      6  955 1469 (N28W03 L=194)   977    200        4 ( 884/1396-1020/1535)  35.0 E02-W08 N24-N32
      7  545 1434 (N33E27 L=164)  1321    306        3 ( 429/1408- 718/1462) -14.0 E37-E13 N29-N36
      8  186 1366 (N34E67 L=124)   632     87        2 ( 155/1345- 219/1384)  11.3 E73-E59 N32-N35
      9 1922 1024 (S13W69 L=260)   513     75        0 (1905/ 988-1942/1066)  33.7 W65-W72 S15-S10
     10 1838  869 (S21W57 L=248)  2367    426        5 (1781/ 759-1900/1064) -81.0 W50-W67 S28-S09
     11 1219  921 (S08W10 L=201)   408    158        2 (1166/ 851-1284/ 960)  20.6 W05-W14 S11-S06
     12 1693  934 (S15W42 L=233)   390    106        0 (1640/ 901-1732/ 959)   7.1 W37-W45 S16-S13
     13  711  591 (S21E27 L=164)  1306    568        1 ( 544/ 456- 881/ 741)  20.6 E44-E12 S26-S13
     14  408  459 (S24E57 L=134)   936    175        1 ( 377/ 382- 448/ 533)  59.0 E60-E51 S29-S19
     15 1044  511 (S31E07 L=184)   211     66        0 (1011/ 492-1069/ 531)  11.3 E10-E05 S32-S29
  

    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