Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  969 1887 (N47E39 L=111)   693     70        2 ( 943/1854- 998/1915) -20.0 E44-E33 N44-N49
      2  772 1858 (N38E51 L=100)   892    137        1 ( 717/1830- 843/1881)  60.3 E54-E46 N34-N41
      3 1164 1645 (N33E10 L=141)   818    115        2 (1127/1596-1207/1699) -40.6 E13-E05 N30-N36
      4  576 1487 (N08E39 L=111)   845    176        2 ( 516/1458- 646/1517)  26.6 E44-E34 N05-N11
      5  401 1455 (N03E51 L= 99)   399     52        0 ( 383/1420- 423/1483) -76.0 E52-E49 N00-N04
      6  494 1283 (S05E38 L=113)   777    239        0 ( 423/1191- 556/1371) -26.6 E45-E31 S08-S01
      7  961 1299 (N06E11 L=140)   372    127        0 ( 911/1255- 989/1354)  82.9 E12-E09 N02-N10
      8 1746 1277 (N29W40 L=191)   461    100        0 (1712/1229-1768/1317) -26.6 W36-W42 N26-N30
      9  326 1218 (S12E50 L=101)   592    139        1 ( 293/1146- 351/1276)  90.0 E51-E48 S16-S08
     10  131 1166 (S18E72 L= 79)  1255    154        1 ( 109/1096- 152/1242) -83.7 E75-E68 S21-S12
     11 1553 1133 (N13W28 L=178)   282     67        2 (1524/1105-1585/1153)  26.6 W25-W29 N11-N14
     12  608 1076 (S14E25 L=125)   784    276        1 ( 524/1040- 696/1111)  24.4 E30-E19 S17-S11
     13  758  735 (S30E08 L=142)   248     31        0 ( 740/ 708- 778/ 759) -56.3 E09-E06 S31-S28
     14 1463  670 (S14W36 L=187)  1134    303        3 (1323/ 637-1592/ 726)  40.6 W28-W43 S19-S07
     15  761  415 (S51W02 L=153)   296     57        0 ( 738/ 400- 796/ 437)  36.9 W00-W04 S52-S49
  

    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