Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1214 1656 (N40W32 L=297)   846    110        3 (1159/1608-1271/1714) -90.0 W29-W34 N35-N45
      2 1689 1581 (N21W65 L=329)  1475    210        4 (1645/1549-1748/1616) -20.0 W59-W70 N18-N23
      3 1759 1454 (N13W65 L=329)  1382    237        3 (1704/1385-1805/1541)  84.3 W60-W69 N08-N18
      4  797 1377 (N33E07 L=258)  1221    352        3 ( 695/1230- 878/1490) -73.3 E13-E03 N22-N42
      5 1452 1429 (N20W37 L=302)   405    100        1 (1413/1395-1505/1465) -51.3 W34-W40 N17-N22
      6 1876 1134 (S08W64 L=329)  1447    254        2 (1831/1068-1927/1232) -67.4 W61-W70 S13-S01
      7  322 1072 (N22E47 L=218)  3324    730        4 ( 151/ 924- 561/1218) -33.7 E64-E30 N10-N32
      8 1191 1189 (N13W13 L=278)   227    108        1 (1130/1172-1239/1206) -15.9 W09-W16 N11-N14
      9 1594  830 (S18W31 L=296)  1606    313        2 (1508/ 702-1644/1004)  47.0 W23-W37 S23-S08
     10  650  890 (N06E25 L=239)   347     77        1 ( 618/ 862- 675/ 926)  63.4 E27-E23 N04-N08
     11  662  695 (S05E29 L=236)   451    184        0 ( 582/ 662- 742/ 719)   0.0 E34-E23 S06-S04
     12  491  458 (S18E50 L=215)  1026    241        1 ( 413/ 384- 584/ 528) -59.7 E54-E44 S24-S12
     13 1415  456 (S38W14 L=278)   374     52        1 (1392/ 435-1439/ 481) -68.2 W11-W15 S40-S35
     14  469  374 (S24E57 L=208)   623     75        0 ( 437/ 338- 505/ 405) -80.5 E59-E55 S26-S20
  

    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