Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1258 1724 (N51W03 L=135)   378     49        0 (1225/1709-1285/1738)   0.0 W00-W06 N49-N53
      2 1005 1359 (N19E07 L=124)   294     67        1 ( 973/1344-1041/1381)   0.0 E09-E04 N17-N20
      3 1624 1255 (N24W37 L=168)   948    250        5 (1539/1212-1716/1309)  -7.1 W29-W45 N21-N25
      4 1857 1153 (N22W62 L=193)   966    133        2 (1826/1103-1897/1193) -24.0 W57-W68 N18-N24
      5 1175 1077 (N05W08 L=139)  1144    295        3 (1091/ 999-1279/1183) -26.6 W01-W15 N01-N10
      6 1853  970 (N10W62 L=194)   968    126        2 (1829/ 925-1888/1033) -40.6 W58-W67 N07-N13
      7  948  964 (S05E04 L=128)   201    101        0 ( 906/ 927- 987/ 990) -18.4 E06-W00 S07-S04
      8 1806  875 (N04W58 L=190)   895    135        2 (1751/ 843-1853/ 922)  31.0 W52-W63 N01-N07
      9  827  869 (S13E09 L=122)   213     62        1 ( 803/ 843- 858/ 894)  56.3 E10-E07 S14-S11
     10  802  742 (S21E09 L=122)   549    212        1 ( 784/ 668- 845/ 837) -59.0 E11-E05 S25-S15
     11  582  648 (S32E24 L=107)   289     82        1 ( 567/ 610- 597/ 694) -68.2 E25-E22 S33-S28
     12 1649  567 (S17W54 L=186)  1270    216        3 (1605/ 495-1704/ 667) -85.2 W51-W57 S22-S10
     13 1107  538 (S29W15 L=146)   613    125        2 (1072/ 487-1140/ 601)  83.7 W13-W16 S33-S24
     14  842  445 (S41E02 L=130)  1108    230        3 ( 752/ 416- 949/ 473)  14.9 E09-W06 S44-S37
  

    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