Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1293 1713 (N42W42 L=252)  1382    278        4 (1172/1676-1420/1739)  -8.7 W29-W55 N39-N45
      2  985 1665 (N48W15 L=224)   433    104        2 ( 954/1632-1038/1689)   7.1 W11-W19 N45-N49
      3  672 1546 (N47E16 L=194)  1701    317        5 ( 555/1474- 820/1611)   0.0 E27-E01 N42-N48
      4 1546 1340 (N14W40 L=250)   663    228        1 (1467/1247-1594/1402) -71.6 W36-W41 N07-N19
      5  471 1342 (N36E34 L=176)   362     83        1 ( 434/1308- 505/1363) -33.7 E37-E30 N33-N37
      6  847 1115 (N15E09 L=201)   901    347        0 ( 764/ 982- 922/1246) -74.5 E12-E06 N06-N24
      7  553 1218 (N27E27 L=182)   254     76        2 ( 515/1204- 604/1234)  -8.1 E30-E23 N25-N27
      8  191  968 (N16E63 L=147)   566     86        3 ( 171/ 930- 218/1015) -59.0 E65-E59 N13-N18
      9 1458  975 (S05W25 L=235)   308     52        2 (1433/ 943-1483/1006) -76.0 W23-W26 S06-S02
     10 1530  853 (S14W28 L=237)   286     81        1 (1503/ 813-1553/ 888)  53.1 W25-W29 S15-S11
     11  273  764 (N03E57 L=152)   598     83        0 ( 245/ 729- 302/ 808) -68.2 E59-E54 N00-N05
     12  674  745 (S03E26 L=183)   432    152        1 ( 655/ 679- 705/ 807)  60.3 E28-E23 S07-N00
     13 1604  713 (S24W32 L=242)   959    216        2 (1532/ 673-1691/ 768) -24.8 W26-W39 S27-S19
     14  940  749 (S08E10 L=199)   214     70        0 ( 894/ 736- 970/ 764)   0.0 E13-E08 S08-S06
     15 1657  475 (S44W40 L=249)  2603    331        5 (1517/ 405-1776/ 543)   0.0 W24-W56 S46-S40
     16  350  438 (S19E67 L=142)  4324    241        8 ( 266/ 369- 432/ 514) -42.3 E77-E57 S24-S13
     17  573  410 (S23E45 L=164)  1161    212        2 ( 543/ 313- 600/ 500)  54.5 E52-E40 S30-S16
     18 1174  435 (S33E03 L=207)   250     84        0 (1142/ 405-1207/ 472)  31.0 E05-W00 S34-S30
     19 1007  378 (S33E16 L=194)   335     87        1 ( 989/ 330-1040/ 411)  56.3 E18-E13 S36-S30
     20 1436  347 (S48W17 L=226)   420     65        0 (1396/ 336-1473/ 360) -14.0 W12-W20 S50-S45
  

    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