Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1898 (N63W47 L=199)   532     72        0 ( 957/1868- 998/1933)  10.3 W39-W61 N60-N65
      2  420 1456 (N47E35 L=116)   385     51        3 ( 396/1430- 444/1482)  56.3 E37-E32 N44-N48
      3  988 1312 (N22W06 L=157)   222     89        0 ( 949/1287-1032/1327)  -9.5 W02-W08 N20-N22
      4  818 1271 (N24E06 L=145)   220     68        1 ( 805/1233- 830/1311)  68.2 E07-E04 N21-N26
      5  320 1112 (N27E46 L=106)   476    178        0 ( 290/1035- 372/1154)  40.6 E48-E40 N22-N28
      6  253 1092 (N27E53 L= 98)   317    110        0 ( 239/1046- 263/1143)  59.0 E54-E51 N24-N29
      7 1680  901 (S20W38 L=189)   391    129        0 (1637/ 850-1729/ 937)  12.5 W33-W42 S21-S18
      8 1606  674 (S32W29 L=180)   454    132        0 (1551/ 639-1664/ 717)   5.2 W23-W34 S32-S30
      9 1217  576 (S26E01 L=150)   234     77        1 (1191/ 535-1246/ 611)  53.1 E03-W01 S28-S24
     10  817  558 (S17E25 L=126)   240     98        0 ( 776/ 534- 855/ 593)   9.5 E27-E21 S17-S15
     11  424  536 (S09E53 L= 98)   496    101        1 ( 409/ 482- 447/ 580)  36.9 E57-E49 S12-S06
     12 1394  482 (S38W09 L=160)   622    140        0 (1329/ 448-1462/ 526)   5.2 W03-W14 S39-S36
     13  570  286 (S28E60 L= 92)  1881    220        3 ( 493/ 237- 647/ 338) -12.1 E67-E48 S32-S23
  

    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