Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1256 1806 (N52E01 L=287)   490     70        0 (1226/1790-1300/1822)   0.0 E04-W02 N49-N53
      2  697 1779 (N36E44 L=244)   480     66        0 ( 679/1737- 717/1813) -40.6 E48-E40 N32-N38
      3  697 1681 (N28E37 L=251)   300     44        0 ( 667/1666- 724/1696)   0.0 E39-E34 N27-N29
      4 1136 1635 (N33E06 L=283)   297     92        0 (1125/1584-1148/1682) -60.3 E07-E03 N29-N36
      5  532 1625 (N22E47 L=241)   342     72        0 ( 497/1606- 568/1638)   0.0 E50-E43 N20-N22
      6 1184 1320 (N13W04 L=292)   435    186        1 (1134/1233-1226/1392)  79.7 W02-W05 N07-N18
      7 1766 1268 (N24W46 L=335)   643    101        2 (1721/1239-1806/1307)  26.6 W41-W51 N21-N27
      8 1050 1222 (N05E02 L=286)   244     66        1 (1026/1196-1084/1242)  45.0 E03-W00 N03-N06
      9  953  757 (S24W01 L=289)   289    100        1 ( 914/ 740-1000/ 782)  26.6 E01-W03 S24-S21
     10 1004  551 (S35W09 L=298)   478    124        0 ( 947/ 535-1079/ 567)  26.6 W05-W13 S37-S32
     11  676  523 (S44E15 L=273)   555     96        2 ( 640/ 487- 711/ 559) -31.0 E18-E11 S46-S41
     12 1204  232 (S52W44 L=333)   472     53        1 (1185/ 198-1225/ 259) -45.0 W41-W49 S55-S49
     13 1247  143 (S57W67 L=356)   628     73        1 (1213/ 119-1275/ 170)  76.0 W60-W78 S58-S54
  

    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