Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1287 1690 (N40W41 L=170)   294     74        0 (1246/1673-1324/1705)  -7.1 W36-W44 N39-N41
      2 1643 1657 (N27W71 L=200)   540     64        1 (1614/1636-1678/1674) -33.7 W66-W74 N24-N28
      3  824 1489 (N39E03 L=127)   616    181        1 ( 803/1423- 861/1572)  84.3 E04-W01 N34-N44
      4 1052 1538 (N37W15 L=145)   293     77        1 (1026/1509-1092/1563)   0.0 W12-W18 N35-N38
      5 1523 1376 (N15W40 L=170)   285     86        1 (1498/1336-1541/1406) -90.0 W38-W42 N12-N17
      6  835 1212 (N22E07 L=122)  1055    322        1 ( 767/1089- 933/1342) -74.5 E10-E03 N12-N30
      7  193  889 (N12E64 L= 66)  1263    254        3 ( 168/ 795- 223/1018)  77.9 E69-E58 N06-N20
      8  156  902 (N13E69 L= 61)  1193    140        2 ( 120/ 854- 182/ 941)  59.0 E76-E64 N10-N15
      9  927  841 (S01E09 L=120)   262     91        1 ( 877/ 822- 970/ 861)   0.0 E12-E06 S02-N00
     10 1640  741 (S24W34 L=164)  1474    300        1 (1558/ 602-1706/ 850)  40.6 W26-W40 S31-S18
     11  502  716 (S01E39 L= 91)   307     96        0 ( 491/ 671- 515/ 767)  51.3 E40-E36 S04-N01
     12 1169  665 (S17W01 L=131)   515    105        2 (1137/ 630-1203/ 695)  26.6 E01-W03 S18-S14
     13  846  569 (S16E21 L=109)   248    132        0 ( 829/ 517- 874/ 614)  74.1 E22-E17 S20-S13
     14 1013  599 (S18E10 L=120)   257    101        1 ( 964/ 569-1057/ 614) -31.0 E12-E07 S20-S16
     15  917  517 (S21E18 L=112)   475     73        2 ( 889/ 486- 941/ 559)  78.7 E19-E16 S23-S18
     16 1054  509 (S24E10 L=120)   278     96        0 (1017/ 471-1081/ 550)  33.7 E13-E07 S26-S21
     17  720  517 (S17E30 L= 99)   258     77        0 ( 684/ 500- 765/ 537) -21.8 E32-E27 S18-S15
     18 1100  377 (S35E11 L=119)  1398    300        3 (1006/ 322-1184/ 477)  26.6 E18-E02 S38-S29
     19  386  428 (S18E63 L= 66)   697     91        0 ( 340/ 405- 420/ 453)  11.3 E72-E57 S20-S16
     20 1586  360 (S54W33 L=163)   733     72        2 (1561/ 333-1618/ 389) -28.6 W28-W39 S56-S49
     21  981  311 (S37E22 L=108)   564     62        2 ( 950/ 279-1010/ 350)  66.8 E24-E19 S40-S33
     22  806  251 (S38E39 L= 91)  3053    330        5 ( 671/ 168- 933/ 319)  10.7 E64-E25 S44-S33
  

    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