Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  529 1679 (N26E54 L=176)   698    164        0 ( 484/1632- 557/1707) -26.6 E58-E50 N22-N27
      2  832 1433 (N17E21 L=208)   217     71        1 ( 821/1391- 848/1464) -63.4 E22-E19 N14-N18
      3  452 1408 (N07E46 L=183)   350     98        2 ( 423/1382- 491/1428)  45.0 E49-E43 N05-N09
      4 1176 1352 (N20W01 L=231)   467    141        2 (1162/1274-1198/1419) -78.7 W00-W03 N14-N24
      5 1462 1323 (N25W20 L=250)   428     87        0 (1423/1287-1496/1358) -26.6 W17-W23 N23-N26
      6 1085 1169 (N07W00 L=230)   561    178        1 (1028/1088-1127/1221) -35.5 E04-W04 N02-N09
      7 1601 1018 (N10W36 L=265)   521    125        0 (1556/ 972-1633/1075) -26.6 W31-W39 N08-N13
      8 1021  939 (S08W02 L=231)   184     64        0 ( 985/ 912-1055/ 960) -14.0 W00-W04 S08-S06
      9  432  850 (S26E35 L=195)   818    283        2 ( 382/ 799- 479/ 934)  66.0 E39-E31 S29-S20
     10  839  856 (S17E07 L=222)   192     49        1 ( 811/ 829- 859/ 890) -45.0 E08-E05 S17-S14
     11 1559  597 (S14W46 L=275)   830    138        2 (1513/ 564-1611/ 636)  50.2 W41-W49 S16-S10
     12  926  571 (S32W05 L=235)   346     67        1 ( 897/ 548- 969/ 603)  26.6 W03-W08 S34-S30
     13 1423  408 (S29W45 L=275)   629     90        2 (1391/ 381-1461/ 437)  36.9 W42-W48 S30-S27
     14 1148  305 (S44W33 L=263)   354     66        1 (1127/ 277-1166/ 333) -38.7 W30-W35 S46-S42
     15 1185  245 (S47W41 L=270)   757     90        1 (1140/ 217-1222/ 281)  80.5 W38-W43 S50-S43
  

    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