Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  587 1807 (N45E54 L=264)  1087    113        2 ( 537/1779- 638/1830)  -8.1 E65-E44 N42-N47
      2  835 1734 (N40E23 L=295)   337     97        2 ( 796/1711- 887/1747)  15.9 E26-E18 N37-N41
      3 1285 1708 (N43W13 L=331)   440    102        2 (1240/1680-1335/1735) -14.0 W09-W17 N41-N45
      4 1675 1561 (N37W48 L=  6)  1393    177        2 (1607/1503-1730/1615) -35.0 W42-W52 N33-N41
      5  925 1367 (N15E09 L=309)   843    351        2 ( 880/1245-1005/1497) -61.9 E13-E03 N07-N23
      6  224 1430 (N16E67 L=251)   786    109        4 ( 195/1393- 257/1460) -12.1 E75-E61 N13-N17
      7 1284 1041 (S02W15 L=333)   838    200        1 (1232/ 951-1355/1108)  56.3 W12-W19 S07-N02
      8 1699 1010 (N01W44 L=  2)   458     79        2 (1655/ 993-1738/1032)   8.1 W40-W47 N00-N02
      9 1607  963 (S03W38 L=355)   337     76        0 (1579/ 922-1632/ 994)  68.2 W36-W39 S05-N00
     10 1582  705 (S18W41 L=359)   526    207        0 (1493/ 669-1650/ 764)  41.6 W34-W45 S21-S13
     11  902  551 (S35E04 L=314)  1576    412        0 ( 742/ 475-1029/ 684)  40.1 E16-W03 S42-S25
     12  328  624 (S34E53 L=265)   597    128        0 ( 314/ 568- 346/ 682)  48.8 E57-E48 S38-S30
     13  511  609 (S35E35 L=283)   433     77        0 ( 473/ 592- 556/ 626)   0.0 E38-E30 S35-S33
     14  957  389 (S47W02 L=320)   302     57        0 ( 925/ 372- 992/ 406)  26.6 W00-W04 S48-S45
     15 1492  318 (S44W55 L= 13)   587     72        0 (1453/ 301-1532/ 336)  20.6 W51-W60 S46-S42
  

    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