Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1408 1696 (N36W51 L=102)   389     91        0 (1359/1681-1451/1710) -14.0 W46-W55 N34-N36
      2 1619 1366 (N11W47 L= 98)  2669    692        4 (1534/1080-1688/1609)  63.4 W38-W57 S04-N26
      3 1237 1543 (N32W29 L= 80)   551     79        1 (1202/1503-1279/1576) -59.0 W25-W30 N28-N34
      4 1769 1369 (N07W60 L=111)  1914    187        3 (1696/1305-1847/1424) -59.0 W54-W69 N01-N11
      5  762 1263 (N27E11 L= 40)   279     99        3 ( 734/1227- 796/1294) -71.6 E12-E09 N23-N29
      6 1109 1199 (N15W09 L= 60)   542    241        3 (1044/1112-1179/1259)  31.0 W03-W14 N11-N17
      7  267 1145 (N28E53 L=358)   336     62        0 ( 238/1123- 288/1171) -26.6 E56-E50 N27-N30
      8  464 1075 (N21E35 L= 16)   439     86        1 ( 425/1042- 508/1109) -33.7 E37-E31 N18-N23
      9  738 1043 (N14E16 L= 35)   600    136        2 ( 683/1013- 801/1082) -45.0 E19-E12 N11-N17
     10 1872  974 (S18W59 L=110)  1759    152        5 (1826/ 903-1918/1043) -55.0 W54-W66 S23-S13
     11 1790  989 (S14W50 L=101)   429    114        1 (1757/ 949-1816/1016)   8.1 W45-W52 S16-S13
     12  663  930 (N09E23 L= 28)   325     76        3 ( 645/ 889- 683/ 971)  59.0 E24-E21 N06-N11
     13 1837  888 (S22W54 L=105)   532     68        3 (1816/ 858-1857/ 924) -51.3 W51-W56 S24-S19
     14 1390  755 (S17W16 L= 67)  1382    457        0 (1235/ 678-1522/ 897)  19.3 W05-W26 S19-S11
     15  341  780 (N06E50 L=  1)   768    184        0 ( 319/ 706- 360/ 871)  73.3 E53-E48 N01-N11
     16 1599  522 (S39W29 L= 80)  5944    697        6 (1332/ 354-1878/ 671)   0.0 W04-W71 S45-S33
     17  307  512 (S11E66 L=345)  1543    212        1 ( 280/ 418- 344/ 610)  57.3 E75-E60 S17-S03
     18  702  569 (S13E30 L= 21)   465    121        0 ( 656/ 519- 744/ 609) -74.1 E32-E28 S16-S09
     19 1152  264 (S46E14 L= 37)   365     62        1 (1123/ 243-1189/ 283)   0.0 E16-E10 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