Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1519 1666 (N26W54 L=209)  4232    798        6 (1301/1601-1736/1711) -18.4 W36-W75 N16-N33
      2 1609 1517 (N15W52 L=207)   815    230        1 (1532/1428-1691/1563) -59.0 W46-W55 N08-N18
      3  300 1390 (N45E45 L=110)   363     78        1 ( 278/1368- 326/1415) -31.0 E47-E42 N42-N46
      4  233  988 (N20E54 L=101)   841    175        0 ( 205/ 907- 271/1061)  56.3 E57-E49 N15-N24
      5 1861  839 (S30W53 L=208)  2792    367        2 (1758/ 691-1913/1019)  41.6 W41-W61 S36-S20
      6  870  982 (N06E10 L=146)   315    134        0 ( 822/ 929- 942/1018)   7.1 E13-E05 N04-N07
      7 1760  893 (S23W44 L=199)   998    229        1 (1699/ 786-1808/ 998)  36.9 W36-W49 S27-S17
      8 1109  826 (S09E00 L=155)   207     87        0 (1077/ 810-1152/ 853) -45.0 E01-W02 S09-S06
      9  802  724 (S07E20 L=135)   489    133        2 ( 768/ 647- 828/ 779)  77.5 E22-E18 S11-S02
     10 1223  687 (S20W03 L=158)   406    147        0 (1167/ 623-1253/ 757)  35.5 E02-W06 S22-S15
     11  276  578 (S04E65 L= 90)   584     80        2 ( 255/ 546- 297/ 605)  45.0 E68-E62 S05-S02
     12  510  502 (S13E47 L=108)   477    121        1 ( 481/ 468- 544/ 544)  20.6 E50-E42 S15-S11
     13 1006  424 (S30E19 L=137)   568    135        0 ( 956/ 380-1052/ 475)  21.8 E23-E13 S32-S27
     14  517  340 (S23E56 L= 99)  1354    236        1 ( 443/ 253- 581/ 421)  85.9 E58-E52 S30-S16
  

    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