Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  383 1603 (N27E66 L=205)  1095     77        4 ( 353/1572- 421/1647) -45.0 E71-E59 N24-N30
      2  739 1550 (N29E29 L=242)  1171    211        2 ( 697/1454- 802/1640) -85.9 E31-E27 N22-N36
      3 1665 1531 (N43W49 L=320)   673     87        0 (1622/1494-1686/1559) -21.8 W44-W53 N40-N45
      4 1032 1406 (N24E05 L=266)   275     85        0 ( 994/1374-1061/1430) -21.8 E07-E02 N22-N25
      5  229 1037 (S10E58 L=212)   752     75        1 ( 193/1002- 252/1069)  33.7 E62-E55 S11-S07
      6  326 1006 (S10E48 L=223)   396     69        3 ( 296/ 987- 349/1036)   0.0 E50-E45 S11-S08
      7  358  966 (S12E45 L=226)   385    118        2 ( 317/ 935- 384/1023)  71.6 E48-E42 S14-S08
      8  246  948 (S15E56 L=215)   356     35        0 ( 229/ 922- 260/ 973) -45.0 E57-E54 S16-S13
      9  200  749 (S29E66 L=205)  1176    101        2 ( 155/ 717- 245/ 777)  12.8 E80-E58 S31-S26
     10 1011  644 (S23W05 L=275)   249     79        1 ( 993/ 617-1038/ 683) -53.1 W03-W06 S24-S20
     11 1791  617 (S14W68 L=339)  1400     95        2 (1758/ 579-1822/ 654)  33.7 W63-W75 S16-S11
     12 1319  481 (S30W30 L=301)  1388    384        0 (1151/ 442-1490/ 530)  24.4 W19-W41 S34-S23
     13 1183  250 (S51W33 L=304)   494     63        1 (1145/ 238-1219/ 270)  18.4 W29-W37 S51-S48
  

    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