Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  985 1729 (N46E19 L=145)   360     58        0 ( 952/1714-1015/1745)   0.0 E21-E15 N44-N47
      2 1102 1625 (N40E06 L=158)   662    188        0 (1029/1580-1175/1662)  38.7 E10-W00 N35-N43
      3  334 1450 (N15E58 L=106)  3539    688       11 ( 251/1300- 435/1596)  87.3 E64-E47 N04-N25
      4  528 1315 (N10E37 L=127)   631    160        4 ( 490/1268- 570/1359) -15.9 E40-E33 N06-N12
      5 1057 1264 (N15E02 L=162)   298     82        0 (1019/1229-1090/1292) -26.6 E04-W00 N12-N16
      6  637 1189 (N04E26 L=137)   361    121        2 ( 618/1128- 661/1247) -63.4 E28-E24 N00-N06
      7  555  962 (S11E29 L=135)  1072    246        2 ( 522/ 854- 600/1087) -65.2 E31-E24 S17-S03
      8 1249  966 (S00W14 L=178)   382    118        0 (1190/ 938-1306/1001)  33.7 W11-W17 S02-N02
      9 1183  846 (S08W12 L=176)   199     74        0 (1158/ 809-1204/ 887)  78.7 W11-W13 S10-S05
     10  381  714 (S30E41 L=123)   385     84        1 ( 357/ 686- 409/ 752)  63.4 E43-E38 S31-S27
     11 1395  612 (S19W31 L=195)   674    268        0 (1291/ 538-1515/ 691)  42.5 W25-W38 S25-S13
     12  221  639 (S38E60 L=104)   731    203        1 ( 200/ 610- 239/ 678)  50.2 E63-E56 S40-S34
     13 1264  423 (S34W29 L=193)   313     71        1 (1234/ 405-1300/ 448) -15.9 W25-W32 S35-S32
     14 1532  384 (S32W52 L=216)  1495    341        0 (1429/ 354-1657/ 434)  14.7 W41-W61 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