Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1193 1721 (N48W33 L=327)   525     78        0 (1163/1691-1230/1744)  11.3 W27-W37 N46-N50
      2 1321 1631 (N39W37 L=331)   908    130        2 (1270/1584-1370/1677) -76.0 W32-W39 N34-N43
      3 1668 1564 (N26W65 L=359)   722    116        0 (1618/1526-1717/1596) -49.4 W60-W68 N22-N29
      4 1254 1549 (N35W27 L=322)   528    139        1 (1208/1491-1279/1582) -90.0 W24-W29 N30-N37
      5 1173 1512 (N34W20 L=314)   331    112        0 (1148/1468-1204/1563) -90.0 W18-W21 N30-N37
      6  264 1136 (N22E55 L=239)   762    193        0 ( 230/1044- 283/1213) -61.4 E60-E52 N16-N27
      7  694 1138 (N18E19 L=275)   707    282        0 ( 571/1093- 814/1186) -26.6 E27-E11 N13-N22
      8 1673  912 (S12W41 L=335)  1330    244        0 (1603/ 808-1724/1014)  42.3 W34-W46 S16-S06
      9  568  971 (N09E30 L=265)   317    137        0 ( 519/ 921- 611/1008) -54.5 E32-E27 N05-N12
     10 1833  901 (S17W57 L=352)   463    139        0 (1787/ 857-1870/ 962)  21.8 W51-W62 S18-S13
     11 1212  850 (S07W09 L=303)   790    208        3 (1165/ 744-1252/ 932)  55.0 W04-W11 S12-S02
     12 1407  762 (S16W20 L=314)   224     50        0 (1389/ 739-1431/ 782)  18.4 W18-W21 S17-S14
     13 1666  724 (S24W40 L=334)   461    108        0 (1638/ 678-1686/ 773)  56.3 W37-W41 S26-S20
     14 1194  280 (S48E02 L=293)   352     63        0 (1179/ 254-1212/ 314)  63.4 E03-W00 S50-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