Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  773 1750 (N60W10 L= 75)   382     67        1 ( 740/1726- 797/1777)  11.3 W05-W15 N57-N61
      2  612 1680 (N61E11 L= 54)   662     92        1 ( 575/1650- 658/1703)   0.0 E16-E05 N58-N63
      3  489 1639 (N62E29 L= 36)   685     53        3 ( 460/1610- 517/1668)  63.4 E34-E24 N59-N64
      4 1147 1551 (N32W25 L= 90)   776    326        2 (1005/1485-1279/1601) -53.7 W17-W30 N24-N39
      5  628 1436 (N41E15 L= 50)   515    142        1 ( 592/1372- 664/1494) -77.5 E17-E12 N36-N45
      6 1003 1368 (N26W09 L= 74)   496    198        1 ( 898/1337-1079/1383) -35.0 W02-W12 N22-N29
      7  720 1135 (N20E15 L= 50)  1771    530        8 ( 581/ 997- 897/1255) -53.1 E22-E07 N08-N29
      8  733 1185 (N23E13 L= 52)   328     71        1 ( 695/1157- 762/1209) -36.9 E15-E11 N20-N24
      9  493 1036 (N20E32 L= 33)   510    150        0 ( 431/ 998- 564/1060) -33.7 E36-E27 N16-N22
     10 1699  852 (S23W38 L=103)  1135    382        0 (1567/ 755-1801/ 984)  14.0 W25-W49 S26-S18
     11 1449  737 (S22W17 L= 82)   494    170        0 (1396/ 676-1492/ 803)  24.0 W12-W21 S23-S19
     12  948  506 (S21E19 L= 46)   614    102        1 ( 897/ 463- 995/ 547)  14.0 E23-E15 S23-S19
     13  411  472 (S11E59 L=  7)   389     43        1 ( 389/ 444- 429/ 496) -90.0 E60-E56 S13-S09
     14  817  317 (S30E37 L= 28)   308    117        0 ( 762/ 297- 855/ 350)   5.7 E42-E32 S31-S28
  

    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