Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  375 1615 (N12E66 L=170)  1725    193        4 ( 321/1574- 423/1680)  66.8 E75-E59 N08-N16
      2  463 1586 (N12E54 L=181)  2103    316        2 ( 413/1432- 528/1678) -62.1 E60-E48 N01-N18
      3  578 1631 (N17E47 L=188)   558    109        1 ( 540/1576- 616/1671)  81.9 E50-E45 N12-N19
      4  525 1538 (N10E46 L=189)   316     55        1 ( 504/1519- 548/1565) -11.3 E48-E43 N08-N11
      5  643 1530 (N12E38 L=198)   428     70        2 ( 612/1495- 669/1563) -26.6 E40-E34 N10-N14
      6 1632 1413 (N35W29 L=264)  1591    398        3 (1589/1290-1702/1512) -78.7 W24-W35 N25-N41
      7  452 1153 (S14E38 L=197)   287     66        1 ( 435/1127- 476/1179) -71.6 E39-E36 S15-S12
      8  668  989 (S18E20 L=216)   248     89        1 ( 630/ 966- 719/1016)  38.7 E22-E17 S19-S15
      9 1837  971 (N15W55 L=291)   392     64        1 (1810/ 945-1861/ 993)  -9.5 W52-W58 N14-N16
     10 1893  954 (N17W64 L=299)   654     84        0 (1855/ 925-1922/ 989)  29.1 W58-W67 N14-N19
     11  503  908 (S27E29 L=206)   438    126        1 ( 453/ 885- 551/ 948)   0.0 E33-E25 S27-S25
     12  290  869 (S34E49 L=187)   423    111        1 ( 243/ 840- 338/ 901)  24.4 E54-E43 S36-S31
     13 1703  623 (S08W57 L=292)   399     65        0 (1680/ 589-1725/ 658) -76.0 W55-W57 S09-S05
     14 1107  587 (S29W19 L=254)   343     93        0 (1065/ 570-1166/ 605)  15.9 W15-W22 S29-S27
  

    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