Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  833 1839 (N63W20 L= 39)   468     32        1 ( 814/1813- 857/1863)  18.4 W15-W24 N61-N65
      2  664 1760 (N63E05 L= 14)  2065    281        5 ( 540/1678- 782/1831)   5.0 E22-W12 N59-N65
      3  641 1468 (N40E14 L=  5)  1027    316        0 ( 501/1423- 786/1504) -26.6 E25-E03 N33-N44
      4 1611 1394 (N09W46 L= 65)   976    203        2 (1558/1320-1657/1479)  79.7 W43-W48 N04-N15
      5 1409 1389 (N15W32 L= 51)   297     53        0 (1376/1373-1440/1403) -11.3 W29-W34 N13-N15
      6  825 1326 (N26E04 L= 15)   460     81        0 ( 784/1289- 867/1362)  18.4 E07-W00 N24-N27
      7  186 1330 (N42E65 L=314)   485     44        0 ( 157/1316- 218/1344)  -8.1 E72-E58 N40-N42
      8 1829 1265 (S04W60 L= 79)   478     33        1 (1805/1245-1849/1290) -71.6 W57-W63 S05-S02
      9 1558 1164 (S01W34 L= 54)   304     37        0 (1533/1139-1583/1191)  14.0 W32-W36 S02-N00
     10  165  793 (N09E68 L=311)   942    119        1 ( 119/ 743- 203/ 824) -26.6 E76-E63 N06-N11
     11  757  585 (S14E27 L=352)   431    132        0 ( 730/ 528- 784/ 651)  40.6 E30-E23 S17-S10
     12 1710  557 (S44W40 L= 59)   444     82        1 (1674/ 541-1757/ 575) -15.3 W35-W46 S45-S41
     13  304  467 (S12E70 L=309)   849     59        2 ( 281/ 430- 326/ 508)  29.1 E75-E64 S14-S09
     14 1510  477 (S42W19 L= 38)   772    144        1 (1432/ 459-1584/ 500) -21.0 W12-W25 S45-S38
     15 1297  383 (S42E00 L= 19)   433     88        0 (1258/ 359-1347/ 409)   0.0 E03-W04 S43-S40
  

    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