Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1148 1841 (N65W23 L=342)  1901    262        3 (1002/1815-1261/1870)   2.6 W01-W46 N62-N67
      2 1433 1549 (N36W35 L=354)   341     86        2 (1395/1529-1475/1564) -18.4 W32-W38 N35-N37
      3  766 1362 (N26E17 L=302)  1213    392        4 ( 707/1272- 865/1461) -59.7 E21-E09 N20-N32
      4 1395 1380 (N25W27 L=346)   365     83        1 (1370/1330-1409/1419)  80.5 W25-W28 N21-N27
      5  384 1350 (N25E48 L=270)   488     94        1 ( 360/1308- 400/1403) -63.4 E50-E45 N22-N28
      6  396 1156 (N13E43 L=275)   633    129        1 ( 340/1129- 453/1189) -16.7 E48-E38 N11-N14
      7 1750  857 (S10W51 L= 10)   495     37        1 (1727/ 831-1771/ 881)  26.6 W49-W53 S11-S08
      8  569  800 (S09E30 L=288)  1082    216        2 ( 476/ 752- 646/ 836)  13.0 E37-E24 S12-S06
      9  429  802 (S09E41 L=277)   301     49        0 ( 407/ 776- 451/ 827)  45.0 E42-E39 S10-S07
     10 1102  686 (S17W04 L=323)   398    128        1 (1079/ 626-1121/ 751)  82.9 W02-W05 S21-S13
     11  770  659 (S18E18 L=301)   226     85        0 ( 737/ 637- 788/ 693)  45.0 E20-E16 S19-S16
     12  218  669 (S19E69 L=250)   707     70        1 ( 198/ 634- 246/ 691)  24.0 E74-E63 S21-S16
     13 1024  266 (S50E03 L=315)   328     54        2 (1004/ 243-1048/ 288) -45.0 E04-W00 S52-S48
  

    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