Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1095 1844 (N47E26 L=110)   369     60        0 (1075/1816-1127/1862)  26.6 E28-E23 N44-N48
      2  909 1814 (N38E36 L=101)  1207    162        1 ( 846/1778- 999/1840)  52.1 E39-E30 N34-N43
      3  537 1625 (N16E49 L= 87)   334     57        0 ( 516/1595- 557/1655) -78.7 E50-E47 N13-N18
      4 1346 1544 (N32W05 L=141)  1223    245        2 (1239/1458-1408/1612)  66.4 W00-W07 N23-N39
      5 1535 1383 (N28W21 L=158)   448    110        0 (1510/1328-1567/1436) -39.8 W18-W24 N25-N30
      6  768 1412 (N08E25 L=112)   543    137        1 ( 696/1393- 846/1427)  18.4 E29-E20 N06-N10
      7  255 1211 (S14E56 L= 80)   724     86        2 ( 219/1173- 298/1253)  78.7 E60-E51 S15-S10
      8  497 1176 (S11E35 L=101)   398     95        1 ( 466/1134- 527/1215)  78.7 E37-E33 S13-S08
      9  712 1175 (S06E21 L=115)   385     86        0 ( 676/1131- 748/1215) -31.0 E24-E18 S08-S04
     10 1815 1081 (N19W50 L=186)   811    193        1 (1756/1007-1861/1171) -26.6 W42-W55 N16-N23
     11  737 1010 (S15E16 L=121)   888    263        3 ( 645/ 953- 860/1059)  12.1 E22-E08 S18-S11
     12 1659 1026 (N11W37 L=174)   387     53        0 (1628/1002-1689/1054)  45.0 W35-W39 N09-N13
     13 1758  924 (N09W48 L=185)   305     38        1 (1743/ 900-1780/ 949) -71.6 W46-W50 N07-N10
     14 1586  564 (S15W49 L=186)  1261    314        0 (1447/ 522-1716/ 625)  39.1 W41-W57 S21-S08
  

    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