Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  429 1588 (N26E58 L=241)   859    114        0 ( 403/1543- 462/1639) -76.0 E61-E55 N22-N30
      2 1392 1595 (N44W19 L=318)   414     63        2 (1367/1568-1421/1627) -53.1 W17-W22 N41-N46
      3  640 1497 (N23E35 L=264)   312    105        1 ( 593/1476- 673/1510)  31.0 E37-E31 N21-N24
      4 1683 1307 (N28W44 L=343)   392     83        1 (1659/1262-1705/1344) -59.0 W41-W45 N24-N29
      5 1397 1198 (N16W21 L=320)   519    176        2 (1339/1142-1452/1269) -33.7 W16-W25 N13-N19
      6  134 1042 (S12E73 L=226)  3478    156        4 ( 104/ 977- 159/1126)  71.6 E82-E67 S15-S06
      7  291  981 (S13E51 L=248)   436     59        1 ( 272/ 948- 308/1016) -63.4 E52-E49 S15-S10
      8 1535  779 (S07W37 L=336)   262    107        0 (1494/ 756-1579/ 810) -15.9 W33-W40 S08-S05
      9  606  762 (S22E24 L=275)   306     91        0 ( 588/ 734- 640/ 805) -53.1 E25-E20 S23-S19
     10 1638  666 (S13W49 L=348)   959    195        3 (1597/ 586-1677/ 741) -84.3 W46-W51 S17-S07
     11 1534  660 (S15W40 L=339)  1225    244        2 (1471/ 576-1578/ 708) -71.6 W34-W44 S20-S11
     12  360  637 (S35E47 L=252)   430     75        0 ( 342/ 610- 383/ 674)  45.0 E49-E43 S36-S31
     13 1673  582 (S17W56 L=355)  1172    334        0 (1538/ 481-1761/ 674)  51.3 W48-W61 S25-S10
     14  905  558 (S31E00 L=299)  1623    450        1 ( 713/ 506-1107/ 613)  26.6 E14-W12 S37-S24
     15 1200  302 (S45W31 L=330)  1530    230        2 (1096/ 276-1304/ 332)  19.4 W22-W39 S48-S41
  

    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