Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1365 1774 (N54W43 L= 99)   598     83        0 (1330/1742-1398/1804)  19.7 W36-W50 N51-N57
      2 1825 1279 (N15W63 L=119)  1201    167        1 (1788/1213-1851/1346)  76.0 W58-W67 N11-N19
      3  496 1277 (N20E36 L= 20)   266     14        0 ( 479/1255- 515/1299)  90.0 E37-E34 N18-N21
      4  366 1071 (N07E45 L= 12)   271    101        0 ( 335/1042- 406/1108) -33.7 E47-E41 N05-N09
      5  304  978 (N02E50 L=  6)   438    131        0 ( 248/ 945- 362/1009) -10.3 E55-E44 N00-N03
      6 1501  954 (S02W30 L= 86)   217    101        0 (1488/ 909-1510/1008)  78.7 W29-W30 S04-N01
      7 1231  910 (S03W12 L= 68)   560    190        0 (1209/ 826-1260/ 995) -90.0 W11-W14 S08-N01
      8 1730  937 (S04W48 L=104)   540     87        0 (1687/ 912-1764/ 974)  15.9 W44-W51 S05-S02
      9  778  915 (S02E15 L= 41)   358     75        2 ( 745/ 875- 813/ 952)  63.4 E17-E13 S04-N00
     10  461  857 (S06E37 L= 19)   558    170        1 ( 401/ 819- 498/ 916)  35.5 E42-E34 S07-S01
     11  253  774 (S11E58 L=358)  1176    179        3 ( 217/ 714- 293/ 844)  82.9 E62-E52 S15-S06
     12 1140  778 (S11W07 L= 63)   634    212        1 (1044/ 716-1228/ 823)  28.6 W00-W12 S15-S08
     13  201  717 (S15E67 L=349)  1580    238        8 ( 167/ 632- 247/ 810) -74.7 E72-E63 S20-S09
     14 1695  445 (S38W61 L=117)   554     67        0 (1670/ 424-1724/ 472) -17.4 W54-W70 S40-S35
  

    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