Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1005 1839 (N56W15 L=114)   505     80        2 ( 962/1814-1045/1859)   0.0 W10-W20 N53-N57
      2 1331 1662 (N36W33 L=132)  1476    375        3 (1165/1612-1488/1728)   3.6 W18-W50 N33-N38
      3 1568 1687 (N34W57 L=156)   582     70        0 (1533/1670-1604/1704) -31.0 W52-W60 N32-N35
      4  431 1445 (N33E38 L= 61)   279     50        0 ( 403/1423- 454/1463) -26.6 E41-E35 N31-N34
      5 1522 1355 (N13W36 L=135)   244     51        0 (1497/1336-1546/1380) -63.4 W34-W37 N11-N15
      6  272 1313 (N26E52 L= 47)   536     94        1 ( 233/1285- 310/1349) -26.6 E57-E47 N24-N29
      7  257 1081 (N12E52 L= 47)  1416    178        4 ( 223/ 993- 283/1170) -84.8 E55-E49 N06-N17
      8 1769 1011 (S10W50 L=149)   877    193        0 (1726/ 921-1807/1099)  59.0 W45-W54 S14-S04
      9  173 1020 (N09E62 L= 37)  1544    153        5 ( 130/ 968- 229/1078)  24.4 E68-E55 N06-N12
     10 1209  848 (S13W09 L=108)   230    127        1 (1171/ 806-1240/ 893)  45.0 W06-W11 S15-S10
     11 1594  723 (S25W35 L=134)  1541    369        0 (1532/ 564-1686/ 878)  62.2 W30-W42 S35-S16
     12 1865  808 (S23W62 L=162)   900    154        0 (1814/ 760-1919/ 855) -26.6 W55-W73 S26-S19
     13 1154  621 (S26W03 L=102)   482    157        1 (1124/ 552-1180/ 707)  84.3 W01-W04 S30-S20
     14  574  615 (S19E35 L= 64)   344    116        0 ( 546/ 564- 613/ 657)  39.8 E38-E31 S22-S17
     15 1316  588 (S31W14 L=113)   556    116        0 (1259/ 558-1367/ 624)  14.0 W09-W17 S32-S28
  

    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