Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1415 (N21E03 L=356)   221    117        1 ( 947/1362- 996/1454)  71.6 E04-E01 N17-N23
      2  313 1409 (N23E53 L=306)   864    132        2 ( 271/1370- 353/1443) -11.3 E58-E48 N20-N25
      3  304 1303 (N16E51 L=308)  1161    217        2 ( 265/1222- 342/1365) -83.7 E55-E46 N11-N20
      4  759 1125 (N03E16 L=343)   390    143        2 ( 729/1068- 809/1188)  60.3 E17-E12 N00-N07
      5  255 1121 (N05E53 L=306)   834    147        2 ( 188/1067- 317/1160)  17.1 E60-E47 N02-N07
      6  183  954 (S05E62 L=297)   412     44        1 ( 157/ 936- 209/ 979)  -8.1 E65-E58 S05-S03
      7  551  785 (S16E31 L=328)   806    325        1 ( 467/ 650- 627/ 917) -63.4 E36-E27 S24-S08
      8  259  756 (S17E57 L=302)   468     50        0 ( 235/ 730- 287/ 780) -36.9 E59-E54 S18-S15
      9 1788  576 (S30W65 L= 65)  1276    216        4 (1716/ 483-1839/ 640)  70.0 W61-W71 S36-S25
     10  461  469 (S36E48 L=311)  1073    197        2 ( 399/ 410- 540/ 508)  15.9 E59-E38 S40-S33
     11 1352  358 (S47W29 L= 28)   522     88        0 (1324/ 326-1385/ 397) -33.7 W24-W33 S49-S43
     12 1227  350 (S48W17 L= 16)   549     67        2 (1195/ 325-1267/ 376)   9.5 W13-W20 S49-S45
     13 1414  328 (S50W37 L= 36)   607     88        0 (1386/ 296-1447/ 367) -28.6 W31-W43 S52-S46
     14  730  236 (S57E36 L=323)   567     87        0 ( 693/ 221- 776/ 254)   0.0 E42-E30 S58-S55
  

    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