Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1147 1709 (N38E15 L=283)   985    213        0 (1057/1663-1243/1763)   0.0 E23-E07 N36-N39
      2  598 1527 (N11E40 L=258)   982    223        2 ( 546/1442- 650/1630) -31.0 E48-E33 N07-N16
      3 1528 1376 (N28W20 L=318)   263     82        0 (1500/1340-1556/1411) -26.6 W17-W23 N26-N29
      4 1469 1328 (N23W17 L=315)   303    101        0 (1421/1299-1508/1361)   0.0 W13-W20 N22-N24
      5 1889 1087 (N24W59 L=357)   768    105        0 (1851/1044-1917/1130) -11.3 W53-W64 N22-N25
      6  688 1044 (S14E19 L=279)   334     72        3 ( 660/1019- 713/1089)  90.0 E20-E17 S15-S11
      7 1770  944 (N12W49 L=347)   669    100        2 (1749/ 899-1789/1001) -81.9 W46-W51 N08-N15
      8 1835  885 (N11W57 L=355)  1886    210        3 (1788/ 810-1887/ 977)  76.0 W52-W62 N05-N17
      9 1045  906 (S12W04 L=302)   392    146        0 ( 994/ 853-1087/ 969) -20.6 W00-W08 S14-S09
     10  952  816 (S20W02 L=300)   442    133        1 ( 894/ 788-1013/ 840)  15.9 E02-W05 S21-S17
     11 1782  776 (N03W56 L=354)   384     31        1 (1756/ 756-1803/ 797)  26.6 W53-W58 N02-N04
     12  806  717 (S29E04 L=294)   298    118        0 ( 777/ 669- 858/ 740)  63.4 E05-E01 S32-S26
     13  217  688 (S47E62 L=236)   608     75        1 ( 175/ 670- 253/ 708)  11.9 E73-E54 S48-S44
     14 1445  609 (S16W38 L=336)   280     58        1 (1412/ 594-1479/ 630)  21.8 W35-W40 S17-S15
     15  546  542 (S48E20 L=278)   711    184        2 ( 462/ 503- 624/ 580)   6.7 E28-E11 S50-S46
     16  868  452 (S44W10 L=308)   321     71        0 ( 843/ 428- 907/ 484)  -8.1 W06-W13 S44-S41
     17 1445  343 (S30W55 L=353)   496     83        0 (1410/ 314-1480/ 377)   0.0 W49-W60 S31-S29
     18 1584  326 (S26W70 L=  8)   576     47        0 (1562/ 301-1605/ 348)   0.0 W65-W76 S26-S24
     19 1027  168 (S58W49 L=347)   532     58        0 (1007/ 135-1049/ 197) -11.3 W42-W57 S59-S55
  

    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