Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1743 (N32E34 L=315)   577     88        0 ( 788/1700- 857/1775) -18.4 E38-E29 N29-N33
      2  979 1581 (N24E17 L=331)   308     95        1 ( 961/1533- 994/1629) -56.3 E18-E14 N21-N27
      3  846 1541 (N19E23 L=325)   486    165        1 ( 765/1516- 929/1560)  11.3 E28-E18 N17-N20
      4 1574 1350 (N25W26 L= 15)   603    220        1 (1536/1254-1621/1399)  71.6 W23-W29 N18-N30
      5 1007 1261 (N05E06 L=342)   951    437        2 ( 817/1210-1181/1345)  31.4 E16-W02 N00-N13
      6 1677 1299 (N25W35 L= 23)   440    134        0 (1626/1242-1704/1343) -29.7 W30-W37 N22-N27
      7 1294 1294 (N14W09 L=357)   327    130        1 (1271/1249-1336/1325) -78.7 W07-W11 N11-N16
      8 1584 1221 (N18W29 L= 17)   255     66        2 (1557/1199-1607/1242)  53.1 W27-W30 N15-N19
      9 1838 1000 (N13W54 L= 42)   746    133        0 (1826/ 933-1851/1071) -76.0 W52-W56 N09-N17
     10  199  977 (S26E59 L=289)  1590    176        3 ( 124/ 940- 270/1011)  14.0 E70-E50 S28-S23
     11 1455  736 (S12W33 L= 21)   216     40        0 (1428/ 716-1483/ 755)  33.7 W31-W34 S13-S10
     12  200  667 (S45E67 L=281)  1171    123        1 ( 136/ 640- 257/ 691)  -6.1 E85-E57 S46-S43
     13 1151  652 (S25W17 L=  5)   392     63        1 (1116/ 635-1198/ 674)  11.3 W15-W20 S26-S23
     14 1463  520 (S24W42 L= 31)  2150    537        1 (1246/ 464-1710/ 608)  37.9 W30-W57 S32-S11
     15 1765  487 (S15W73 L= 61)   851     68        1 (1727/ 472-1802/ 510)  14.0 W67-W80 S16-S12
  

    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