Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  715 1741 (N30E42 L=313)   867    144        1 ( 654/1701- 775/1779)  -8.1 E49-E35 N28-N32
      2  537 1666 (N22E51 L=304)   401     61        1 ( 514/1636- 565/1695) -20.6 E54-E46 N19-N23
      3  795 1610 (N23E29 L=325)   260     61        1 ( 772/1591- 828/1630) -14.0 E30-E26 N21-N23
      4 1098 1511 (N23E07 L=347)   319     46        0 (1069/1489-1127/1536)   0.0 E08-E04 N21-N24
      5 1444 1485 (N31W16 L= 10)   494    123        0 (1391/1448-1504/1520)  -6.3 W11-W20 N29-N32
      6 1207 1451 (N22W01 L=355)   358    112        0 (1193/1392-1221/1509) -81.9 W00-W02 N18-N25
      7 1095 1435 (N18E05 L=349)   385     88        0 (1070/1387-1117/1478) -59.0 E07-E03 N15-N20
      8 1803 1133 (N19W49 L= 44)   927    227        0 (1728/1055-1863/1211) -17.4 W41-W57 N16-N21
      9  227  951 (S26E57 L=298)   619    141        1 ( 179/ 900- 275/1006)  35.0 E63-E51 S29-S22
     10  385  967 (S23E41 L=314)   275     71        0 ( 349/ 945- 410/ 995)  45.0 E43-E38 S24-S20
     11  511  862 (S27E29 L=325)   713    199        1 ( 435/ 819- 569/ 945)  48.0 E35-E25 S30-S20
     12  643  709 (S34E18 L=337)   854    308        0 ( 534/ 656- 787/ 778)  35.8 E26-E08 S39-S26
     13  944  717 (S26W02 L=357)   251     58        2 ( 916/ 696- 972/ 734)  56.3 W00-W04 S28-S24
     14  941  402 (S47W13 L=  7)   248     60        1 ( 904/ 388- 980/ 417)  31.0 W10-W15 S48-S44
  

    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