Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1787 (N59W15 L= 47)  1351    298        2 ( 836/1741-1098/1829)  -1.7 E01-W32 N56-N60
      2 1385 1527 (N31W35 L= 67)   495    206        0 (1294/1464-1453/1568) -48.4 W29-W37 N25-N34
      3  360 1339 (N34E47 L=345)  3039    454        2 ( 286/1137- 455/1513)  67.4 E51-E41 N21-N45
      4  522 1480 (N42E33 L=359)   390     92        0 ( 486/1438- 557/1512) -36.9 E37-E28 N38-N44
      5 1216 1456 (N29W20 L= 52)   284    111        0 (1170/1437-1269/1482) -38.7 W17-W23 N27-N31
      6 1832 1340 (N10W67 L= 99)   713     70        2 (1805/1311-1857/1373) -45.0 W64-W71 N08-N12
      7  189 1227 (N27E66 L=326)  2422    220        5 ( 134/1131- 247/1310) -19.7 E85-E56 N21-N31
      8 1791 1276 (N07W59 L= 91)   423     66        1 (1775/1249-1821/1307)  76.0 W57-W63 N05-N09
      9 1363 1227 (N13W24 L= 56)   251    108        0 (1322/1186-1403/1248)   9.5 W20-W26 N11-N14
     10  554 1200 (N23E29 L=  3)   247    149        0 ( 495/1170- 606/1247) -29.1 E33-E24 N20-N26
     11  791 1174 (N18E12 L= 20)   323    143        1 ( 743/1145- 859/1221) -39.8 E15-E08 N15-N21
     12  447 1002 (N12E38 L=354)   440    131        0 ( 423/ 948- 464/1064) -81.9 E39-E36 N08-N15
     13  394  927 (N08E43 L=349)   306     87        0 ( 370/ 881- 416/ 965) -78.7 E44-E41 N05-N10
     14  363  869 (N05E46 L=346)   316     81        0 ( 344/ 835- 386/ 914) -78.7 E47-E44 N02-N07
     15 1572  824 (S15W32 L= 64)   955    200        1 (1489/ 772-1650/ 872)   8.7 W25-W38 S16-S12
     16  703  605 (S15E27 L=  5)  1245    418        2 ( 596/ 525- 784/ 724)  35.5 E35-E20 S19-S07
     17  426  636 (S10E46 L=346)   929    136        2 ( 404/ 564- 466/ 689)  58.0 E50-E41 S14-S06
     18  541  622 (S12E38 L=354)   260     25        0 ( 514/ 607- 563/ 638) -33.7 E39-E36 S13-S10
     19 1562  442 (S42W33 L= 65)   351     55        0 (1535/ 426-1591/ 459)  -9.5 W30-W36 S43-S40
     20 1405  346 (S46W19 L= 51)   709     75        1 (1370/ 328-1450/ 374) -14.0 W15-W23 S49-S43
     21 1231  283 (S48W03 L= 34)   527     47        1 (1204/ 256-1260/ 308) -56.3 W00-W05 S51-S45
     22 1175  230 (S52E04 L= 28)  1097     90        3 (1130/ 205-1225/ 268) -26.6 E08-W01 S56-S48
     23 1192  166 (S62E05 L= 27)   648     46        1 (1164/ 151-1220/ 184) -39.8 E08-E01 S64-S58
  

    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