Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  829 1828 (N44E46 L=346)  1892    219        4 ( 737/1768- 911/1872)  -2.5 E59-E33 N41-N47
      2 1352 1728 (N53W05 L= 36)   386     46        0 (1331/1706-1372/1749)  59.0 W02-W06 N50-N55
      3 1567 1613 (N51W29 L= 61)  2693    350        7 (1430/1540-1697/1691)  -3.6 W13-W46 N46-N54
      4 1024 1583 (N31E15 L= 17)   631    142        0 ( 975/1522-1067/1627) -29.1 E19-E10 N27-N33
      5  770 1532 (N22E29 L=  2)   497    150        0 ( 745/1460- 802/1599) -68.2 E31-E26 N16-N26
      6 1708 1512 (N47W46 L= 77)   602     72        1 (1670/1494-1744/1533)  17.1 W39-W52 N44-N49
      7  350 1473 (N09E59 L=332)   616    103        1 ( 334/1431- 376/1522) -32.0 E63-E54 N06-N11
      8  630 1443 (N13E35 L=357)   667    118        1 ( 609/1390- 658/1504) -66.8 E37-E31 N09-N16
      9  454 1420 (N08E47 L=345)   516     85        1 ( 426/1380- 497/1449)  59.0 E49-E44 N05-N10
     10 1561 1409 (N34W27 L= 59)   300     72        1 (1527/1378-1588/1439)   0.0 W24-W29 N31-N35
     11 1065 1309 (N15E04 L= 27)   411    127        2 (1011/1283-1128/1349)  15.9 E07-W00 N12-N16
     12 1776 1247 (N29W49 L= 81)   923    144        0 (1725/1204-1831/1300) -14.0 W43-W56 N28-N31
     13  166 1144 (S14E68 L=324)  1003     93        1 ( 129/1116- 216/1167)  12.1 E75-E60 S15-S11
     14  256  969 (S23E54 L=338)  2262    432        1 ( 217/ 837- 330/1148) -81.0 E58-E44 S29-S10
     15 1868 1081 (N22W61 L= 93)   623    102        0 (1834/1053-1910/1124)  -8.7 W56-W69 N20-N23
     16  867  930 (S12E07 L= 24)   332    106        1 ( 819/ 911- 926/ 946)  26.6 E09-E03 S13-S09
     17  456  789 (S29E33 L=359)   314    109        0 ( 419/ 743- 500/ 817)  49.4 E35-E29 S33-S26
     18  769  709 (S27E08 L= 23)   342    171        0 ( 685/ 693- 854/ 719)  20.0 E13-E02 S29-S24
     19 1164  472 (S32W25 L= 56)  1783    348        3 ( 997/ 439-1319/ 521)  30.1 W13-W34 S37-S25
     20  659  402 (S52E11 L= 20)   297     35        0 ( 630/ 387- 679/ 419)  38.7 E14-E08 S54-S50
     21  691  253 (S67E04 L= 28)  1860    236        2 ( 602/ 220- 799/ 296)   5.7 E19-W11 S70-S62
  

    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