Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1034 1726 (N36E22 L=343)  1300    190        0 ( 968/1642-1088/1795) -26.6 E30-E14 N30-N40
      2  649 1638 (N20E42 L=322)   769    173        1 ( 588/1587- 736/1668)  49.4 E44-E36 N15-N23
      3  484 1533 (N10E49 L=316)   782    169        0 ( 460/1459- 513/1606) -48.4 E52-E44 N05-N14
      4 1437 1474 (N31W13 L= 17)  1226    247        2 (1350/1390-1510/1529) -17.1 W06-W19 N26-N33
      5 1101 1353 (N13E04 L=  0)   639    219        0 (1049/1280-1199/1402)  63.4 E05-W00 N07-N17
      6 1306 1242 (N12W10 L= 15)   821    260        2 (1229/1141-1381/1346) -31.6 W03-W16 N08-N16
      7  223 1236 (S12E62 L=303)   416     68        0 ( 187/1219- 261/1249)  12.5 E66-E57 S13-S11
      8  333  806 (S36E44 L=320)   528     90        0 ( 287/ 778- 378/ 836)  26.6 E49-E39 S38-S33
      9 1538  656 (S13W42 L= 46)   593    177        0 (1463/ 602-1614/ 700)  56.3 W38-W45 S17-S07
     10 1081  623 (S28W15 L= 19)   778    163        3 (1005/ 587-1149/ 675)  56.3 W11-W18 S32-S23
     11 1696  582 (S11W59 L= 63)   591     90        1 (1672/ 546-1733/ 610)  68.2 W56-W61 S13-S08
     12 1725  527 (S13W66 L= 70)   517     76        2 (1702/ 494-1745/ 559) -63.4 W62-W69 S14-S10
     13 1561  438 (S23W57 L= 61)  3871    441        7 (1313/ 362-1729/ 509)  25.9 W38-W75 S31-S15
     14 1171  343 (S42W36 L= 41)   408     67        1 (1137/ 316-1196/ 378)  90.0 W34-W39 S43-S39
  

    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