Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  525 1555 (N11E47 L=  6)   378     67        1 ( 494/1532- 553/1583)  36.9 E49-E44 N08-N12
      2  666 1505 (N11E35 L= 18)   298     71        1 ( 623/1482- 703/1529)  53.1 E37-E32 N09-N13
      3 1151 1447 (N21E05 L= 48)   360    144        0 (1094/1382-1194/1507) -21.8 E10-W00 N17-N23
      4  297 1270 (S10E54 L=359)   443    109        3 ( 278/1227- 313/1323) -51.3 E56-E51 S12-S07
      5 1581 1183 (N19W28 L= 82)   845    251        1 (1555/1051-1610/1303) -60.3 W24-W32 N11-N25
      6  669 1230 (S04E26 L= 28)   213     95        0 ( 652/1178- 682/1275) -80.5 E27-E24 S07-S01
      7 1738 1019 (N15W44 L= 97)  1260    207        2 (1710/ 928-1761/1125) -65.6 W39-W47 N09-N20
      8  359  891 (S31E40 L= 13)  1415    430        2 ( 213/ 859- 506/ 934)   6.3 E54-E27 S33-S28
      9 1155  884 (S10W11 L= 64)   223     75        0 (1123/ 854-1181/ 923)  78.7 W10-W12 S12-S07
     10 1042  715 (S23W10 L= 63)   432    108        1 ( 986/ 679-1087/ 747)  66.8 W07-W11 S26-S19
     11 1209  437 (S33W32 L= 85)  1499    321        2 (1092/ 382-1344/ 528)  63.4 W26-W35 S39-S23
     12 1502  430 (S23W51 L=105)  1306    225        0 (1393/ 391-1585/ 500)  50.7 W44-W54 S28-S17
     13 1618  382 (S22W64 L=118)   633     81        0 (1575/ 353-1657/ 416)  63.4 W61-W66 S24-S18
  

    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