Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1816 (N52E27 L=199)   405     40        1 ( 946/1794- 989/1837) -15.9 E30-E23 N49-N54
      2 1034 1724 (N45E15 L=211)  1137    152        3 ( 976/1686-1097/1765)  11.3 E19-E08 N42-N49
      3 1040 1606 (N36E10 L=216)   502    101        1 ( 999/1579-1086/1644)  26.6 E12-E06 N33-N39
      4  372 1529 (N20E59 L=167)  1205    233        0 ( 302/1447- 448/1616) -14.8 E81-E47 N15-N24
      5  283 1393 (N10E61 L=165)   885     99        3 ( 241/1351- 311/1430)  63.4 E64-E56 N06-N12
      6 1328 1178 (N13W16 L=242)   798    176        2 (1261/1132-1386/1219)  45.0 W12-W19 N09-N16
      7 1255 1114 (N08W12 L=238)   703    203        2 (1202/1046-1314/1215) -41.6 W07-W16 N05-N13
      8  758 1176 (N04E18 L=208)   269     69        0 ( 725/1151- 788/1203) -26.6 E20-E16 N03-N05
      9 1048 1122 (N06E00 L=226)   436    132        0 (1030/1057-1068/1190) -74.1 E01-W02 N02-N09
     10  391 1007 (S11E41 L=185)   972    263        1 ( 373/ 882- 418/1125) -85.9 E43-E38 S18-S04
     11 1350 1094 (N09W18 L=245)   194     48        1 (1322/1074-1371/1115)  45.0 W17-W19 N07-N10
     12 1547 1016 (N07W33 L=259)   336    124        0 (1499/ 975-1585/1040)  -8.1 W29-W36 N05-N08
     13  300  858 (S22E49 L=177)  1068    182        0 ( 218/ 820- 383/ 881)  15.5 E58-E40 S25-S19
     14 1274  736 (S14W20 L=246)   713    262        1 (1219/ 643-1345/ 855)  81.9 W18-W22 S19-S05
     15  756  722 (S23E12 L=214)   205     80        0 ( 710/ 712- 797/ 732)   9.5 E15-E09 S23-S22
     16 1658  612 (S15W52 L=278)   360     95        0 (1607/ 589-1688/ 633)  -6.3 W46-W55 S15-S13
     17 1497  419 (S30W48 L=274)   447     72        0 (1457/ 402-1535/ 443)  38.7 W45-W51 S31-S27
     18  500  421 (S50E35 L=191)   368     40        0 ( 480/ 404- 526/ 439) -11.3 E38-E32 S51-S48
     19  652  337 (S54E19 L=207)  1396    227        2 ( 569/ 273- 730/ 423) -40.6 E27-E10 S59-S47
     20  961  236 (S56W16 L=242)  1095    154        3 ( 907/ 185-1021/ 299) -22.8 W07-W26 S60-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