Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1597 1601 (N24W59 L=107)   694     90        1 (1555/1566-1635/1632) -59.0 W56-W61 N21-N26
      2 1287 1568 (N32W33 L= 81)   346     58        1 (1260/1535-1311/1594) -76.0 W30-W34 N29-N33
      3 1634 1441 (N15W52 L= 99)   475    124        2 (1616/1376-1652/1502)  49.4 W48-W55 N10-N17
      4 1431 1462 (N22W37 L= 85)   252     33        0 (1407/1446-1454/1480) -56.3 W36-W39 N20-N23
      5 1765 1386 (N08W61 L=108)  2130    317        8 (1645/1323-1861/1446) -14.0 W48-W72 N02-N11
      6 1676 1208 (N01W45 L= 93)   629    164        0 (1653/1127-1697/1294)  66.0 W42-W47 S03-N06
      7 1152 1226 (N16W12 L= 60)   295    141        0 (1100/1179-1215/1257)   7.1 W08-W16 N14-N16
      8  503 1085 (N21E32 L= 16)   401    121        0 ( 449/1058- 557/1117) -26.6 E35-E27 N18-N23
      9  617 1072 (N18E24 L= 24)   238     68        0 ( 585/1041- 655/1102)  21.8 E26-E20 N16-N19
     10  786 1062 (N14E13 L= 34)   414    128        0 ( 734/1039- 844/1099) -45.0 E15-E09 N12-N17
     11 1889  996 (S18W62 L=109)  1256    159        5 (1856/ 934-1925/1060) -52.1 W57-W67 S22-S13
     12 1817 1016 (S14W53 L=100)   374     69        1 (1799/ 982-1840/1053)  53.1 W50-W55 S15-S11
     13  719  951 (N09E19 L= 28)   365    100        0 ( 695/ 909- 760/ 983)  36.9 E21-E16 N07-N10
     14 1863  912 (S22W57 L=105)   583     68        1 (1847/ 881-1884/ 951) -63.4 W55-W60 S24-S18
     15 1450  783 (S17W20 L= 67)  1215    431        0 (1291/ 704-1568/ 919)  10.8 W09-W30 S19-S11
     16  377  807 (N07E46 L=  1)   585    178        1 ( 344/ 729- 396/ 891) -90.0 E48-E44 N02-N12
     17 1628  536 (S39W32 L= 79)  5002    631        6 (1371/ 366-1857/ 689)   4.3 W07-W62 S45-S33
     18  734  597 (S12E27 L= 20)   217     66        0 ( 702/ 579- 767/ 614) -45.0 E28-E25 S13-S09
     19  341  484 (S13E64 L=343)  1411    204        1 ( 316/ 406- 379/ 589)  61.7 E70-E58 S18-S05
     20 1188  275 (S46E10 L= 37)   329     65        0 (1162/ 254-1220/ 295)   0.0 E12-E07 S47-S44
  

    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