Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  435 1709 (N20E66 L=253)   729    213        1 ( 421/1665- 450/1745) -40.6 E70-E62 N16-N22
      2  427 1620 (N13E60 L=259)   582     96        3 ( 399/1596- 458/1642)  53.1 E62-E57 N11-N15
      3  377 1560 (N09E61 L=258)   594     89        1 ( 352/1535- 410/1587)   0.0 E65-E57 N07-N10
      4  334 1204 (S13E49 L=270)  1116    140        1 ( 267/1152- 387/1279)  55.0 E53-E45 S17-S07
      5  146 1104 (S22E65 L=254)   642    168        0 ( 111/1073- 177/1139)  39.8 E68-E61 S24-S19
      6  312 1067 (S21E47 L=272)   511    160        0 ( 274/1010- 367/1103)  49.4 E49-E42 S25-S18
      7  749 1007 (S14E15 L=304)   211    105        0 ( 739/ 952- 757/1063) -66.8 E16-E13 S17-S10
      8 1742  940 (N11W47 L=  6)   323     47        0 (1727/ 911-1761/ 970) -71.6 W45-W48 N09-N12
      9  690  872 (S23E15 L=304)   319    126        0 ( 635/ 844- 752/ 918)  -6.3 E19-E10 S24-S22
     10  355  797 (S37E40 L=279)   412    150        0 ( 312/ 745- 398/ 828)  48.8 E43-E35 S41-S33
     11 1761  615 (S05W63 L= 22)  2053    340        5 (1680/ 516-1838/ 732)  82.4 W57-W70 S12-N03
     12  248  656 (S49E52 L=267)  1215    273        2 ( 191/ 636- 308/ 685)  11.3 E59-E44 S51-S47
     13 1616  599 (S11W50 L=  9)   567    129        1 (1573/ 569-1669/ 619)  29.7 W47-W54 S13-S08
     14 1401  346 (S31W50 L=  9)  1425    402        1 (1265/ 297-1503/ 423)   4.8 W36-W60 S33-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