Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  689 1836 (N34E58 L=176)   834    137        1 ( 650/1785- 721/1878) -22.4 E68-E51 N29-N37
      2  447 1617 (N13E58 L=175)  2720    344        4 ( 334/1567- 548/1666)  26.6 E72-E49 N08-N17
      3  604 1626 (N17E45 L=188)   554    118        1 ( 561/1576- 646/1664)  59.0 E48-E42 N13-N19
      4  673 1508 (N11E35 L=199)   564    141        2 ( 624/1464- 727/1565)  33.7 E37-E30 N07-N14
      5 1693 1443 (N39W35 L=268)   601    135        0 (1646/1384-1728/1491) -29.1 W29-W38 N36-N41
      6 1637 1376 (N32W29 L=263)   687    207        1 (1620/1285-1658/1480) -69.0 W27-W32 N26-N39
      7  371 1159 (S15E45 L=188)   279     50        1 ( 347/1139- 395/1187)  45.0 E46-E43 S16-S13
      8  477 1141 (S14E36 L=197)   263     56        2 ( 450/1110- 502/1162) -14.0 E38-E34 S15-S12
      9  715  971 (S18E16 L=217)   202     80        1 ( 669/ 959- 757/ 985)  26.6 E19-E13 S19-S16
     10 1907  944 (N17W66 L=299)   634     85        0 (1872/ 917-1936/ 979)  33.7 W61-W71 N14-N20
     11  527  892 (S27E27 L=206)   355    108        1 ( 486/ 875- 581/ 916)  15.9 E30-E23 S28-S25
     12 1885  789 (N08W69 L=302)   608     49        2 (1872/ 763-1903/ 816)  -8.1 W65-W73 N06-N09
     13 1698  589 (S09W58 L=292)   665    144        0 (1643/ 541-1741/ 651)  77.5 W55-W60 S13-S04
     14 1135  573 (S29W21 L=254)   330    105        1 (1090/ 554-1195/ 594)   7.1 W17-W25 S29-S27
     15 1613  439 (S20W62 L=295)  1005    152        2 (1561/ 391-1673/ 483)  63.4 W59-W64 S23-S15
  

    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