Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  371 1641 (N34E71 L=306)   743     56        3 ( 356/1608- 390/1675) -15.9 E79-E65 N31-N35
      2  577 1595 (N33E42 L=335)  2001    362        4 ( 442/1473- 676/1660) -16.7 E59-E29 N25-N37
      3  474 1455 (N23E44 L=332)   504    171        0 ( 426/1387- 508/1533)  84.3 E46-E42 N17-N27
      4  399 1485 (N24E53 L=324)   411     52        0 ( 383/1454- 413/1515) -63.4 E54-E50 N21-N25
      5 1038 1428 (N27E03 L= 13)   344     99        0 ( 994/1396-1084/1451)  31.0 E05-W00 N24-N28
      6  901 1330 (N19E11 L=  6)   486    206        0 ( 802/1279- 981/1367) -14.0 E17-E05 N16-N20
      7 1613 1117 (N12W38 L= 55)   271     56        1 (1596/1087-1630/1144) -71.6 W36-W39 N10-N13
      8  900 1069 (N03E08 L=  9)   274     65        1 ( 871/1044- 938/1095)  26.6 E09-E05 N01-N04
      9 1225 1030 (N04W12 L= 29)   538    165        0 (1159/ 995-1300/1057)  20.6 W08-W16 N00-N05
     10  755 1033 (S01E17 L=360)   199     79        1 ( 717/1015- 792/1050)   0.0 E19-E14 S01-N00
     11  144  927 (S13E69 L=307)  1815    125        2 ( 118/ 866- 167/ 984) -82.9 E74-E65 S17-S09
     12 1593  739 (S11W41 L= 57)  2484    567        5 (1415/ 602-1729/ 962)  53.1 W30-W48 S21-N03
     13  308  645 (S30E53 L=323)   846    127        2 ( 266/ 594- 359/ 684)  29.7 E61-E46 S34-S26
  

    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