Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1130 1512 (N28W19 L=334)   345     73        0 (1089/1493-1167/1533) -45.0 W16-W20 N26-N30
      2  583 1399 (N34E21 L=295)   274     72        0 ( 547/1380- 621/1416)   0.0 E23-E17 N33-N34
      3 1851 1384 (N04W69 L= 25)  1022    100        0 (1814/1343-1901/1408)   3.0 W62-W82 N02-N04
      4 1517 1366 (N11W38 L=353)   416    101        1 (1472/1348-1572/1385) -33.7 W35-W41 N08-N12
      5  638 1167 (N19E20 L=296)   216     83        0 ( 601/1147- 667/1197)  11.3 E22-E17 N17-N19
      6 1758 1145 (S07W50 L=  5)   457     91        1 (1735/1105-1778/1195)  78.7 W46-W51 S09-S04
      7 1718 1020 (S13W43 L=359)   373     64        2 (1691/ 990-1747/1044)   9.5 W40-W46 S14-S11
      8 1747  870 (S23W44 L=360)  1249    197        2 (1678/ 802-1799/ 947)  22.6 W37-W49 S25-S18
      9  500  902 (N06E34 L=282)   318     66        0 ( 466/ 872- 530/ 926) -45.0 E35-E32 N04-N07
     10 1245  862 (S11W09 L=325)   229     97        0 (1198/ 844-1295/ 881)  -9.5 W06-W12 S11-S10
     11  296  828 (N06E51 L=264)  1320    220        4 ( 217/ 769- 380/ 879)   0.0 E60-E44 N03-N08
     12 1338  660 (S25W11 L=326)  2552    730        5 (1077/ 421-1594/ 832)  18.9 E11-W30 S34-S19
     13  624  316 (S31E49 L=267)  2193    325        3 ( 536/ 208- 752/ 404)  13.0 E75-E35 S37-S27
     14  867  254 (S41E35 L=280)   448     79        0 ( 830/ 225- 903/ 284)  11.3 E40-E30 S43-S39
  

    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