Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  574 1723 (N29E51 L=286)  2918    436        9 ( 486/1617- 646/1812) -72.6 E57-E43 N20-N36
      2  564 1493 (N13E39 L=298)  1354    247        2 ( 487/1407- 643/1599)  74.1 E42-E37 N07-N21
      3  705 1469 (N14E29 L=309)   371    112        1 ( 679/1419- 733/1506) -80.5 E30-E27 N10-N16
      4 1524 1429 (N28W24 L=  1)   241     60        0 (1506/1395-1546/1459) -53.1 W22-W26 N26-N30
      5  893 1346 (N09E14 L=323)   533    173        1 ( 842/1277- 943/1429)  90.0 E15-E11 N04-N14
      6 1823 1229 (N24W53 L= 30)   546     68        0 (1800/1189-1846/1267) -59.0 W49-W55 N21-N26
      7 1522 1231 (N16W26 L=  3)   440     97        0 (1474/1187-1553/1260) -18.4 W22-W28 N13-N17
      8 1340 1215 (N10W15 L=352)   291     66        1 (1317/1178-1360/1255) -63.4 W12-W16 N08-N12
      9  185 1065 (S17E62 L=275)  2066    242        2 ( 147/ 962- 243/1147)  59.7 E67-E56 S23-S11
     10  620 1091 (S10E25 L=312)   230     72        1 ( 576/1067- 643/1114)  36.9 E28-E24 S11-S08
     11 1760 1035 (N10W48 L= 25)   428     89        0 (1746/ 977-1779/1070)  90.0 W46-W49 N06-N12
     12  550  814 (S28E27 L=310)  1563    544        3 ( 361/ 678- 660/1004)  47.4 E44-E20 S39-S14
     13 1324  948 (S05W19 L=356)   210     52        0 (1312/ 917-1335/ 983) -56.3 W17-W20 S06-S03
     14 1803  890 (N03W55 L= 32)   323     43        2 (1785/ 856-1819/ 919) -71.6 W52-W57 N01-N04
     15 1769  676 (S09W60 L= 37)   422     76        1 (1734/ 652-1802/ 702)  18.4 W56-W63 S10-S07
     16 1808  653 (S09W66 L= 43)   643    148        2 (1750/ 613-1868/ 691)  32.5 W60-W73 S12-S05
     17 1539  670 (S16W41 L= 18)   244     73        0 (1506/ 655-1578/ 689)   0.0 W37-W44 S16-S15
     18 1578  516 (S23W51 L= 28)  1609    297        2 (1524/ 388-1629/ 648) -62.1 W47-W56 S31-S14
     19 1752  515 (S18W70 L= 47)  1816    204        7 (1674/ 449-1829/ 572)  35.5 W65-W80 S23-S13
  

    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