Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1304 1827 (N66W14 L= 77)  4640    400        9 (1130/1747-1490/1885)   1.0 E11-W44 N58-N71
      2 1371 1634 (N47W18 L= 82)  1724    318        5 (1213/1565-1468/1665)  -7.4 W03-W28 N42-N49
      3  781 1636 (N36E30 L= 34)   282     51        0 ( 749/1620- 812/1652)  36.9 E31-E27 N34-N37
      4  570 1487 (N22E39 L= 24)   905    318        0 ( 522/1399- 640/1614) -32.3 E50-E31 N17-N30
      5  740 1555 (N29E29 L= 35)   422    106        1 ( 705/1499- 769/1595) -45.0 E32-E25 N25-N32
      6 1773 1203 (N22W53 L=117)  1265    203        2 (1705/1121-1825/1273) -36.0 W46-W58 N17-N25
      7  404  759 (S25E40 L= 24)   465    142        0 ( 376/ 703- 419/ 828)  66.0 E43-E38 S29-S20
      8  797  767 (S19E11 L= 53)   212     96        0 ( 767/ 736- 825/ 796) -45.0 E12-E08 S20-S17
      9  502  677 (S29E32 L= 32)   433    147        0 ( 447/ 637- 554/ 734)  35.0 E37-E27 S32-S24
     10 1123  666 (S20W12 L= 76)   253     94        0 (1083/ 641-1170/ 688)  -8.1 W08-W15 S21-S19
     11 1560  645 (S15W43 L=106)   423    103        2 (1519/ 620-1604/ 668)  38.7 W40-W45 S17-S13
     12  918  621 (S26E01 L= 63)   572    144        3 ( 855/ 607- 986/ 642)  23.2 E05-W03 S27-S24
     13  630  586 (S33E22 L= 42)   451    154        0 ( 565/ 558- 693/ 614)  20.0 E27-E16 S36-S30
     14 1477  548 (S23W40 L=104)   674    277        0 (1395/ 480-1551/ 590)   0.0 W34-W49 S26-S19
     15  846  171 (S69W03 L= 67)  1258    101        1 ( 814/ 130- 879/ 216) -39.1 E02-W15 S77-S63
  

    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