Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1086 1778 (N42E24 L=188)   410     82        1 (1067/1739-1111/1825) -53.1 E27-E21 N38-N46
      2 1191 1751 (N44E15 L=197)   722    187        0 (1121/1684-1246/1816) -20.6 E24-E08 N40-N47
      3  348 1406 (S02E55 L=157)  1359    224        3 ( 313/1297- 391/1479) -34.7 E62-E48 S07-N03
      4 1200 1369 (N18W00 L=212)   685    146        0 (1137/1311-1255/1417) -14.0 E04-W04 N15-N19
      5  222 1063 (S24E58 L=154)   379     43        2 ( 204/1036- 241/1093) -71.6 E60-E55 S25-S22
      6  291 1008 (S26E49 L=163)   297     56        1 ( 274/ 977- 306/1039)  76.0 E51-E47 S27-S23
      7  787  898 (S20E10 L=202)  1149    415        0 ( 603/ 808- 965/ 957)  43.4 E19-W00 S29-S11
      8  410  795 (S36E35 L=177)   719    179        1 ( 378/ 719- 471/ 860)  70.0 E38-E30 S41-S30
      9  923  747 (S24W02 L=215)   567    170        0 ( 855/ 709-1009/ 772)  53.1 E01-W06 S28-S20
     10  984  617 (S30W10 L=223)  1007    297        1 ( 850/ 598-1116/ 644)  29.4 W01-W17 S34-S24
     11 1256  500 (S28W32 L=245)   330     90        0 (1221/ 470-1290/ 542) -14.0 W27-W35 S28-S26
     12 1564  446 (S20W57 L=269)   954    158        0 (1498/ 407-1628/ 493)  60.9 W53-W60 S24-S15
     13  419  443 (S62E39 L=174)   533     58        1 ( 392/ 423- 446/ 470) -31.0 E44-E34 S64-S60
  

    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