Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1209 1703 (N42W07 L=340)   495    130        1 (1143/1679-1269/1724) -11.3 W02-W12 N40-N43
      2 1514 1602 (N38W33 L=  5)  1424    206        1 (1422/1532-1581/1655) -30.3 W25-W37 N32-N40
      3  414 1569 (N26E52 L=280)   363     66        2 ( 381/1549- 448/1583)  -8.1 E55-E48 N24-N26
      4  576 1547 (N25E36 L=296)   393     55        1 ( 546/1521- 603/1569)   0.0 E38-E33 N22-N26
      5  422 1523 (N22E49 L=284)   404     82        0 ( 390/1508- 466/1546)  -7.1 E52-E44 N21-N23
      6 1167 1380 (N18W06 L=338)   566    227        2 (1064/1336-1271/1425) -14.0 W00-W12 N15-N20
      7  961 1358 (N15E07 L=326)   527    174        0 ( 891/1301-1016/1388) -26.6 E10-E02 N11-N16
      8 1829 1301 (N21W58 L= 30)  2205    193        5 (1771/1220-1873/1387) -73.3 W53-W64 N15-N26
      9  724 1305 (N10E21 L=311)   445    140        0 ( 685/1264- 765/1376) -45.0 E24-E17 N07-N13
     10 1071 1062 (S02W02 L=335)   848    207        1 (1026/ 961-1134/1146)  65.6 W00-W05 S08-N03
     11 1396 1003 (S03W23 L=355)   252     67        1 (1378/ 971-1433/1028)  56.3 W21-W25 S04-S01
     12 1602  736 (S16W42 L= 14)   281     58        1 (1575/ 721-1640/ 750)   0.0 W39-W44 S17-S15
     13  721  585 (S35E18 L=314)  1946    414        3 ( 563/ 496- 847/ 742)  36.5 E32-E08 S41-S23
     14  364  609 (S35E50 L=282)   375     79        1 ( 336/ 583- 407/ 626)  18.4 E53-E44 S36-S33
     15 1250  294 (S51W32 L=  4)   324     53        2 (1219/ 277-1281/ 310)  31.0 W29-W34 S52-S49
  

    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