Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1152 1583 (N33W25 L=147)   719    120        2 (1088/1543-1207/1612) -50.2 W21-W28 N29-N36
      2  694 1573 (N46E07 L=115)   275     56        0 ( 664/1555- 732/1588)   0.0 E09-E03 N45-N47
      3 1371 1512 (N22W36 L=157)   350    116        1 (1328/1473-1421/1546)   6.3 W31-W40 N21-N23
      4  634 1202 (N24E19 L=103)   256     90        0 ( 616/1160- 653/1242) -78.7 E19-E18 N21-N26
      5  221 1131 (N29E56 L= 66)  1209    100        2 ( 178/1084- 265/1176)  45.0 E61-E50 N26-N31
      6  858 1052 (N10E09 L=113)   198     78        0 ( 847/1009- 874/1089)  53.1 E10-E06 N07-N12
      7  162 1036 (N25E65 L= 57)   617     67        2 ( 132/1010- 204/1057)  -5.2 E69-E58 N23-N25
      8 1852  965 (S22W56 L=177)   930    114        2 (1833/ 916-1878/1013) -66.8 W53-W59 S25-S18
      9 1858  807 (S32W56 L=178)   653    121        0 (1812/ 776-1904/ 854)   4.4 W50-W63 S33-S30
     10  772  670 (S09E24 L= 98)   371     74        1 ( 749/ 629- 796/ 701)  45.0 E25-E21 S11-S07
     11 1620  585 (S38W29 L=151)  1559    310        3 (1480/ 516-1730/ 670)   2.4 W16-W40 S40-S35
     12  827  404 (S27E31 L= 91)   738    127        1 ( 775/ 380- 890/ 443) -45.0 E33-E26 S29-S23
     13  625  345 (S26E48 L= 73)   627    122        2 ( 580/ 305- 687/ 374)   8.7 E54-E41 S27-S24
     14 1013  141 (S54E42 L= 80)   581     55        1 ( 990/ 118-1036/ 160)  56.3 E46-E36 S57-S51
  

    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